Mi spiego meglio:
codice:
Private Sub Form_Load()
Set mydata = OpenDatabase(App.Path + "\" + "DBclienti.mdb")
Set myrecord = mydata.OpenRecordset("clienti")
If myrecord.EOF Then
MsgBox "Nessun Cliente nel database. Il database verrà creato ora!", vbInformation, "DBcalc"
Else
myrecord.MoveFirst
Do Until myrecord.EOF
lstboxclient.AddItem myrecord.Fields("nome")
myrecord.MoveNext
Loop
End If
mydata.Close
E così popolo il mio listbox che apparirà così
Tizio
Caio
Sempronio
Io modifico "Tizio"
codice:
Private Sub cmdmodifica_Click()
If MsgBox(" Modificare il preventivo? ", vbYesNo + vbQuestion, "DBcalc") = vbNo Then
'Trasferisce lo stato attivo al campo textnomeindirizzo
textindirizzo.SetFocus
'esce dalla procedura senza cancellare
Exit Sub
End If
Timer1.Enabled = True
Set mydata = OpenDatabase(App.Path + "\" + "DBclienti.mdb")
Set myrecord = mydata.OpenRecordset("clienti")
Do Until myrecord.EOF
If lstboxclient.Text = myrecord!nome Then
lstboxlient.RemoveItem (lstclient.ListIndex)
lstboxclient.AddItem txtf.Text
With myrecord
.Edit
!nome = Trim(txtf.Text)
!indirizzo = Trim(textindirizzo.Text)
!cont = Trim(txtcont.Text)
!Data = Trim(txtdata.Text)
!pagina = Trim(txtpag.Text)
.Update
End With
End If
myrecord.MoveNext
Loop
mnusalva.Enabled = False
cmdsalva.Enabled = False
End Sub
Ed ora il listboxclient appare così
Caio
Sempronio
Tizio
Mi mette tizio davanti, domanda come fare x non far succedere questo?