Skip to main content

AccessTr.neT


kayıt gezintisi bitince form kapansın

kayıt gezintisi bitince form kapansın

Çözüldü #1
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.


.
.rar kayıt gezintisi.rar (Dosya Boyutu: 13,12 KB | İndirme Sayısı: 16)
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 12/11/2009, 19:30, Düzenleyen: zetyu.
Cevapla
Çözüldü #2
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

Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #3
Sayın Ayhan2122
ilginize çok teşekkür ederim tam olarak istediğim buydu.
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task