Yeni bir modul açalım ve bu kodları yazalım
[color=#FF0000]Public Function hatagec()
On Error Resume Next
End Function
Public Function BuGun()
BuGun = Date
End Function
Public Function Ileri()
DoCmd.GoToRecord , , acNext
End Function
Public Function Geri()
DoCmd.GoToRecord , , acPrevious
End Function
Public Function EnBas()
DoCmd.GoToRecord , , acFirst
End Function
Public Function EnSon()
DoCmd.GoToRecord , , acLast
End Function
Public Function Yeni()
DoCmd.GoToRecord , , a
|