Hi have ID Pesel
Code:
Option Compare Database
Private Sub WIEK_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Klienci")
Dim dzien
Dim miesiac
Dim rok
Dim Datowanie
Dim Wiekowanie
rok = 1900 + (Mid(PESEL, 1, 2))
miesiac = Mid(PESEL, 3, 2)
dzien = Mid(PESEL, 5, 2)
Datowanie = DateSerial(rok, miesiac, dzien)
Wiekowanie = DateDiff("yyyy", Datowanie, Date)
rs.Edit
rs!WIEK = Wiekowanie
rs.Update
'MsgBox (Wiekowanie)
End Sub
and my script in VBA set age form PESEL but alway my script only change first form and I want only set in current record how can I do it?