Programdan çıkışta bilgi notu

[İsmail Küçükşengün]

Merhaba;

Excel çalışmalarımda kullandığım:

[SIZE=3][FONT=Times New Roman]Sub auto_close()[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]kullanici = Application.UserName[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]saat = Format(Now, "hh:mm:ss")[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]tarih = Format(Date, "d mmmm yyyy dddd")[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]sor = MsgBox(" GÖRÜŞMEK ÜZERE " & kullanici & Chr(10) & Chr(10) & _[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]"KÜÇÜKŞENGÜN HUKUK BÜROSU/ 0212 534 93 98" & Chr(10) & Chr(10) & _[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]"Tarih : " & tarih & Chr(10) & Chr(10) _[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]& "Saat : " & saat & Chr(10) & Chr(10) _[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]& "KÜÇÜKŞENGÜN HUKUK BÜROSU iyi Çalışmalar Diler." & Chr(10) & Chr(10) & _[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]"Dosyanızın kaydedilmesini istiyor musunuz?", 4, "")[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]If sor = vbYes Then[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]ActiveWorkbook.Save[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]ActiveWorkbook.Close[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Else[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Application.DisplayAlerts = False[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]ActiveWorkbook.Close[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]End If[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]End Sub[/FONT][/SIZE]

Bu kodla EXCEL.de çıkışta uyarı mesajı geliyor ve seçime göre dosyayı kayıt edip veya kayıt etmeden programdan çıkılyor.

1-)Bu ve buna benzer bir kod ile access programından çıkılırken mesaj gelmesi sağlanabilir mi?

2-)Bu mümkünse, bunun makroya uyarlanması nasıl olur?

Şimdiden teşekkürlerimle.

 

[Recep İpek]

Aşağıdaki kodları bir butona atayarak deneyebilirmisiniz?

Private Sub Command10_Click()
kullanici = Application.CurrentUser
saat = Format(Now, "hh:mm:ss")
tarih = Format(Date, "d mmmm yyyy dddd")
sor = MsgBox(" GÖRÜŞMEK ÜZERE " & kullanici & Chr(10) & Chr(10) & _
"KÜÇÜKŞENGÜN HUKUK BÜROSU/ 0212 534 93 98" & Chr(10) & Chr(10) & _
"Tarih : " & tarih & Chr(10) & Chr(10) _
& "Saat : " & saat & Chr(10) & Chr(10) _
& "KÜÇÜKŞENGÜN HUKUK BÜROSU iyi Çalışmalar Diler." & Chr(10) & Chr(10) & _
"Dosyanızın kaydedilmesini istiyor musunuz?", 4, "")
If sor = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close acForm, "DATA", acSaveYes
Else
Me.Undo
DoCmd.Close acForm, "DATA", acSaveNo
End If
End Sub

 

[İsmail Küçükşengün]

Sn ripek;

Maalesef. Saat kısmında hata verdi.
Saat kısmını sildim. Mesaj penceresi açıldı.Bu kez dosya kaydedilemez. diyor.
DoCmd.RunCommand acCmdSaveRecord
satırında hata veriyor.

Aslında küçük bir incelik olması gerekli. Ama acemilik işte.

İlgine teşekkürler.

 

[beab05]

Merhaba;

Kodlar bende hatasız çalışıyor, belki siz

"DoCmd.Close acForm, "DATA", acSaveYes"

buradaki DATA kısmı yerine kendi form adınızı yazmamış olabilir misiniz??