1 - ilk kullandığım yer "tarihgir" metin kutusunda değişiklik olduğunda çalışıyor
böylece belirtilen tarihe göre veri tabanını ve list boxların hepsini yeniliyor
Private Sub TarihGir_Change()
SendKeys "{F5}"
'SendKeys "{NUMLOCK}"
'DoCmd.RefreshRecord
'Me.SyList.Requery
'Me.Ara1List.Requery
'Me.OYlist.Requery
'Me.ara2List.Requery
'Me.AYList.Requery
'Me.Ara3List.Requery
End Sub
2 - 2. kullandığım yer ise "sil" butonu
kayıt silme onaylanınca yine veritabanını ve listboxları yenilemek için:
Private Sub Sil_Click()
x = MsgBox("Bu kaydı Silmek İstediğinize Emin misiniz?", vbYesNo + vbQuestion, "DİKKAT")
If x = vbYes Then
DoCmd.RunSQL " DELETE *" & _
" FROM MenuTbl" & _
" WHERE (((MenuTbl.Tarih)=[Formlar]![Menueklefrm]![TarihSil])" & _
" AND ((MenuTbl.Ogun)=[Formlar]![Menueklefrm]![OgunSil]) " & _
" AND ((MenuTbl.Yemek)=[Formlar]![Menueklefrm]![YemekSil]));"
SendKeys "{F5}"
Else
Undo
End If
End Sub
SendKeys "{F5}" sorunu ve çoklu kayıtlardan sadece birini gösterme
Konuyu Okuyanlar: 1 Ziyaretçi