Eğer alan ile ilgili tablo var ise aşağıdaki kodu güncellendiğinde alanına yaz.
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 = Nothing
kullanıcı sisteme girdiğinde ana menu ekranında kimin adına logon olduğunu görmek istiyorsan Polsoftun KULLANICIGİRİŞ formunu incele, kullanıcı giriş yaptığında
Kod:
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 = Nothing
kodlarıyla kullanıcı logları tablosuna veri aktarıyor, daha sonra giriş formunu açtığında
Kod:
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
kodlarıyla ilgili metin kutularına veri aktarılıyor
