kayıt gezintisi bitince form kapansın

kayıt gezintisi bitince form kapansın - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: kayıt gezintisi bitince form kapansın (/konu-kayit-gezintisi-bitince-form-kapansin.html)

kayıt gezintisi bitince form kapansın - zetyu - 12/11/2009

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ı: 16)

Cvp: kayıt gezintisi bitince form kapansın - ayhan2122 - 12/11/2009

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

Cvp: kayıt gezintisi bitince form kapansın - zetyu - 12/11/2009

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