Sn Ilgilenenler

Asagida yazacagim kod a nasil birsey eklemem gerekir ki mesaj kutusu ciktigi zaman tus kombinasyonlarinda "Hayir" secenegi varsayilan secenek olsun...


-----

Private Sub Guncelle_Click()
Dim mesaj
mesaj = MsgBox("Mesai'yi OTOMATIK duzeltmesini istiyor musunuz?", vbYesNoCancel)

If mesaj = vbYes Then
If Format$([Tarih], "w") <> 1 And 7 Then SecMesai = 1
If Format$([Tarih], "w") = 1 Then SecMesai = 9
If Format$([Tarih], "w") = 7 Then SecMesai = 10
DoCmd.SetWarnings False
DoCmd.OpenQuery ("GuncelleInKaPuantaj")
DoCmd.OpenQuery ("GuncelleInKaPuantajIzin")
DoCmd.OpenQuery ("GuncelleInKaPuantajIzin1")
DoCmd.OpenQuery ("GuncelleInKaPuantajIzin2")
DoCmd.OpenQuery ("GuncelleInKaPuantajTatil")
DoCmd.OpenQuery ("GuncelleInKaPuantajRpr")
DoCmd.SetWarnings True
Me.Detay.Requery

ElseIf mesaj = vbNo Then
If SecMesai <> "" Then
DoCmd.SetWarnings False
DoCmd.OpenQuery ("GuncelleInKaPuantaj")
DoCmd.OpenQuery ("GuncelleInKaPuantajIzin")
DoCmd.OpenQuery ("GuncelleInKaPuantajIzin1")
DoCmd.OpenQuery ("GuncelleInKaPuantajIzin2")
DoCmd.OpenQuery ("GuncelleInKaPuantajTatil")
DoCmd.OpenQuery ("GuncelleInKaPuantajRpr")
DoCmd.SetWarnings True
Me.Detay.Requery
End If
End If
End Sub
------

Merhaba



ifadesinden sonra




ifadesini ekleyin...

Sn Onur_Can

Tesekkurler