[VB6] Cancellazione accidentale di record Access

[RastaRego]

Ciao... qualcuno saprebbe dirmi perchè TUTTE LE VOLTE che inserisco un codice nel mio programma di VB, mi si cancella il primo record della mia tabella di Access???!?!?!

Non mi sembra molto normale!

Può esserci un fattore di incompatibilità???
Non credo, uso VB6, e i DB li converto in Access 97!

Qualcuno ha qualche idea?!??

Grazie!

[motogpdesmo16]

a mio parere non ci dovrebbe essere problema di incompatibilità. In fondo vb6 inizialmente lavorava con access97.
Tuttavia potresti provare a postare il codice associato al bottone/altra funzione che ti fa inserire il record nel db..

[GudFella]

posta il codice che usi

[RastaRego]

ECCOLO!!
MA STAVO PENSANDO.. NON SAREBBE SUFFICIENTE CHE ALL'AVVIO DEL MIO PROG CREASSI UNA COPIA DEL DB, SUL QUALE LAVORER0'??
COSI ANCHE SE CANCELLA QUALCOSA, AL PROSSIMO AVVIO DEL PROGRAMMA E' ANCORA TUTTO NORMALE!!
NON PUò ESSERE UN 'IDEA??


Private Sub txtq_LostFocus(index As Integer)
Static Y As Integer
Dim X As Currency
Dim tb As DAO.Recordset
If txtq(index).Text = "" Or index < txtq.count - 1 Then
Exit Sub
End If
Set ok2 = OpenDatabase("c:\DOCUMENTS AND SETTINGS\RUSTILLO\desktop\OK2.MDB")
Set tb = ok2.OpenRecordset("select * from articoli_catalogo where cod_art='" & cod1(index).Text & "'")
cod1(index).Text = tb.Fields("cod_art").Value
TXT1(index).Text = tb.Fields("DES_ART").Value
txtpu(index).Text = tb.Fields("PREZZO_LISTINO").Value
Y = Y + 300
If index = txtq.count - 1 Then
Load cod1(cod1.count)
Load TXT1(TXT1.count)
Load txtq(txtq.count)
Load txtpu(txtpu.count)
Load txtimp1(txtimp1.count)
End If
cod1(index + 1).Move 350, 1820 + Y
cod1(index + 1).Visible = True
cod1(index + 1).Text = ""
cod1(index + 1).SetFocus
TXT1(index + 1).Move 1910, 1820 + Y
TXT1(index + 1).Visible = True
TXT1(index + 1).Text = ""
txtq(index + 1).Move 6840, 1820 + Y
txtq(index + 1).Visible = True
txtq(index + 1).Text = ""
txtpu(index + 1).Move 7690, 1820 + Y
txtpu(index + 1).Visible = True
txtpu(index + 1).Text = ""
txtimp1(index + 1).Move 9840, 1820 + Y
txtimp1(index + 1).Visible = True
txtimp1(index + 1).Text = ""
Call importo
End Sub