in list1 è :
List1.ListIndex = 0
in listview1 com'è?
vi dico il motivo allora questo è il codice:
Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset
Dim WS As Workspace
Dim Max As Long
nome.Locked = True
Combo4.Locked = True
uomo.Enabled = False
donna.Enabled = False
indir.Locked = True
n.Locked = True
citta.Locked = True
pr.Locked = True
telf.Locked = True
telc.Locked = True
email.Locked = True
assicurazione.Enabled = False
mensile.Locked = True
gennaio.Enabled = False
gennaio1.Locked = True
febbraio.Enabled = False
febbraio1.Locked = True
marzo.Enabled = False
marzo1.Locked = True
aprile.Enabled = False
aprile1.Locked = True
maggio.Enabled = False
maggio1.Locked = True
giugno.Enabled = False
giugno1.Locked = True
luglio.Enabled = False
luglio1.Locked = True
agosto.Enabled = False
agosto1.Locked = True
settembre.Enabled = False
settembre1.Locked = True
ottobre.Enabled = False
ottobre1.Locked = True
novembre.Enabled = False
novembre1.Locked = True
dicembre.Enabled = False
dicembre1.Locked = True
trimestrale.Enabled = False
trimestrale1.Locked = True
semestrale.Enabled = False
semestrale1.Locked = True
annuale.Enabled = False
annuale1.Locked = True
Set WS = DBEngine.Workspaces(0)
dbfile = (App.Path & "\Data\date.mdb")
pwdstring = "swordfish"
Set db = DBEngine.OpenDatabase(dbfile, False, False, ";PWD=" & pwdstring)
Set rs = db.OpenRecordset("user", dbOpenTable)
Set rs1 = db.OpenRecordset("pagamenti", dbOpenTable)
rs.Edit
rs1.Edit
rs("nome") = nome.Text
rs1("nome") = nome.Text
rs("eta") = Combo4.Text
rs("uomo") = uomo.Value
rs("donna") = donna.Value
rs("indirizzo") = indir.Text
rs("num") = n.Text
rs("citta") = citta.Text
rs("provincia") = pr.Text
rs("telefono") = telf.Text
rs("cellulare") = telc.Text
rs("email") = email.Text
rs("assicurazione") = assicurazione.Value
rs("mensile") = mensile.Text
rs1("Gennaio") = gennaio.Value
rs1("Gennaio1") = gennaio1.Text
rs1("Febbraio") = febbraio.Value
rs1("Febbraio1") = febbraio1.Text
rs1("Marzo") = marzo.Value
rs1("Marzo1") = marzo1.Text
rs1("Aprile") = aprile.Value
rs1("Aprile1") = aprile1.Text
rs1("Maggio") = maggio.Value
rs1("Maggio1") = maggio1.Text
rs1("Giugno") = giugno.Value
rs1("Giugno1") = giugno1.Text
rs1("Luglio") = luglio.Value
rs1("Luglio1") = luglio1.Text
rs1("Agosto") = agosto.Value
rs1("Agosto1") = agosto1.Text
rs1("Settembre") = settembre.Value
rs1("Settembre1") = settembre1.Text
rs1("Ottobre") = ottobre.Value
rs1("Ottobre1") = ottobre1.Text
rs1("Novembre") = novembre.Value
rs1("Novembre1") = novembre1.Text
rs1("Dicembre") = dicembre.Value
rs1("Dicembre1") = dicembre1.Text
rs1("Trimestre") = trimestrale.Value
rs1("Trimestre1") = trimestrale1.Text
rs1("Semestre") = semestrale.Value
rs1("Semestre1") = semestrale1.Text
rs1("Annuale") = annuale.Value
rs1("Annuale1") = annuale1.Text
rs.Update
rs1.Update
rs.MoveFirst
rs1.MoveFirst
ListView1.ListItems.Clear
ListView1.ListItems.Add , , rs!nome, , 3
rs.MoveNext
rs1.MoveNext
(qui andrebbe List1.ListIndex = 0) però io sto usando una listview1
senza questa stringa se sto modificando A mi va a modificare B se avete qualche altro metodo sono accettati consigli.
ciao e grazie
Rispondi quotando
