04-02-2011, 16:17
Aşağıdaki kodu oluşturdum sorun yok gibi gözüküyor. Kodun yazılımında bir sorun varmı acaba? (Evet1 = yes/no obje adı
Private Sub Evet1_Click()
Dim cevap As String
cevap = MsgBox("giriş yapmak istiyormusunuz?", vbYesNo, "Konuyla ilgili olarak;")
If cevap = vbNo Then Evet1 = False
If cevap = vbYes Then
DoCmd.OpenForm "özlük bilgileri", acNormal
End If
End Sub
Private Sub Evet1_Click()
Dim cevap As String
cevap = MsgBox("giriş yapmak istiyormusunuz?", vbYesNo, "Konuyla ilgili olarak;")
If cevap = vbNo Then Evet1 = False
If cevap = vbYes Then
DoCmd.OpenForm "özlük bilgileri", acNormal
End If
End Sub