AccessTr.neT

Bul · 12/11/2009, 19:29

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.

.

kayıt gezintisi.rar (Dosya Boyutu: 13,12 KB | İndirme Sayısı: 17)

Bul · 12/11/2009, 20:37

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

Bul · 12/11/2009, 22:07

Sayın Ayhan2122
ilginize çok teşekkür ederim tam olarak istediğim buydu.

AccessTr.neT

kayıt gezintisi bitince form kapansın

kayıt gezintisi bitince form kapansın

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri