slm sayın üyeler,
bahsettiğim konunun ilki çok kullanılan If Then Else olsun ,
elinde örneği olan bütün farklılıkları ile lütfen buraya eklesin...
ben basit bir örnek ekliyorum...konu ile ilgili video kaydı olan varsa onlarda eklesinler lütfen..
'------------------------Kod burdan başlasın------------------------------
On Error GoTo Err_kapat_Click
If (MsgBox("Programdan Çıkılsın mı?", vbQuestion + 1, "Size Soruyorum") = 1) Then
DoCmd.Quit
End If
Exit_kapat_Click:
Exit Sub
Err_kapat_Click:
MsgBox Err.Description
Resume Exit_kapat_Click
'--------------------Kod burada biter-------------------------------------
bahsettiğim konunun ilki çok kullanılan If Then Else olsun ,
elinde örneği olan bütün farklılıkları ile lütfen buraya eklesin...
ben basit bir örnek ekliyorum...konu ile ilgili video kaydı olan varsa onlarda eklesinler lütfen..
'------------------------Kod burdan başlasın------------------------------
On Error GoTo Err_kapat_Click
If (MsgBox("Programdan Çıkılsın mı?", vbQuestion + 1, "Size Soruyorum") = 1) Then
DoCmd.Quit
End If
Exit_kapat_Click:
Exit Sub
Err_kapat_Click:
MsgBox Err.Description
Resume Exit_kapat_Click
'--------------------Kod burada biter-------------------------------------