Kod:
Function kullanıcı()
Dim rs As New ADODB.Recordset
rs.Open "AD", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("AD") = AD.Value
rs.Update
Set rs = Nothing
End Function
Kod:
call kullanıcı
Function kullanıcı()
Dim rs As New ADODB.Recordset
rs.Open "AD", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("AD") = AD.Value
rs.Update
Set rs = Nothing
End Function
call kullanıcı