Tabloda daha önceden girilmiş veri olsun ve kod çalıştığında bu veriyi güncellesin,
Tablodaki veriyi rapor ve formlarda kullanabilirsin.
Kod:
Dim rs As New ADODB.Recordset
rs.Open "TABLOADI", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveLast
rs("ALANADI") = ALANADI.Value
rs.Update
Set rs = Nothing
Set conn = NothingKod:
Dim rs As New ADODB.Recordset
rs.Open "KULLANICILOGLARI", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("ADISOYADI") = ADISOYADI.Value
rs("YETKİ") = YETKİ.Value
rs("BİRİMİ") = BİRİMİ.Value
rs("GİRİŞZAMANI") = GİRİŞZAMANI.Value
rs("HOST") = txthost.Value
rs("İP") = txtip.Value
rs("ŞİFRESİ") = ŞİFREYAZ.Value
rs.Update
Set rs = Nothing
Set conn = NothingKod:
Dim rs As New ADODB.Recordset
rs.Open "KULLANICILOGLARI", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
ADISOYADI = rs("ADISOYADI")
YETKİ = rs("YETKİ")
BİRİMİ = rs("BİRİMİ")
Set rs = Nothing