kayıt gezintisi
; ileri düğmesine basarak gezinti yaparken kayıt gezintisi tamamlandığında formun kapanması olabilirmi.Yardımlarınız için şimdiden teşekkür ediyorum.
.[
attachment=5358]
Gezinti bittikten sonra yeni kayıt gösterilip de kapansın derseniz;
Kod:
Private Sub Komut6_Click()
On Error GoTo Err_Komut6_Click
DoCmd.GoToRecord , , acNext
Exit_Komut6_Click:
Exit Sub
Err_Komut6_Click:
'MsgBox Err.Description
DoCmd.Close 'Bu satır kapattırıyor.
Resume Exit_Komut6_Click
End Sub
Yok hayır Yeni kayda geçmeden SonKayıttan sonra kapansın derseniz;
Kod:
Private Sub Komut6_Click()
On Error GoTo Err_Komut6_Click
Dim SonKayit
SonKayit = DLast("[no]", "Tablo1", "[no]<>0")
If [no] = SonKayit Then
DoCmd.Close
Else
DoCmd.GoToRecord , , acNext
End If
Exit_Komut6_Click:
Exit Sub
Err_Komut6_Click:
MsgBox Err.Description
Resume Exit_Komut6_Click
End Sub
Sayın Ayhan2122
ilginize çok teşekkür ederim tam olarak istediğim buydu.