İsmail Küçükşengün
Özel Üye
- Katılım
- 31 Ağustos 2005
- Mesajlar
- 1,534
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
Merhaba;
Excel çalışmalarımda kullandığım:
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.
Excel çalışmalarımda kullandığım:
Kod:
[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]
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.