Skip to main content

AccessTr.neT


Kaydet Uyarısı

Kaydet Uyarısı

Çözüldü #1
Formdaki arkadaşların yardımlarıyla fatura programımı bitirdim. Vermiş olduğunuz üstün yardımlardan dolayı öncelikle hepinize çok teşekkür ediyorum.

Son olarak Fatura giriş sayfasında kaydet ve yazdır butonuna tıkladığım zaman uyarı vermesini istiyorum. HAZIRLADIĞINIZ FATURA KAYIT EDİLSİN Mİ?  , HAZIRLADIĞINIZ FATURA YAZDIRILSIN MI? gibi. Bu konuda da yardım ederseniz sevinirim. iyi geceler.
.rar Fatura 1.8.rar (Dosya Boyutu: 78,19 KB | İndirme Sayısı: 4)
Son Düzenleme: 20/01/2016, 01:56, Düzenleyen: kenan827.
Cevapla
#2
Kod:
Kaydet butonun Güncelleştirme öncesi olay yordamına bu kodu ekle.

Private Sub Form_BeforeUpdate(Cancel As Integer)
   'Yeni kayıt yaptığınız da size işlem onayı için soracaktır
If NewRecord = True Then
If MsgBox("İşlem kaydedilsin mi?", vbQuestion + vbYesNo, "Onay") = vbNo Then
DoCmd.RunCommand acCmdUndo
End If
End If




End Sub

Cevapla
#3
sayın kenan827,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

son olarak;
şu iki hususa dair tavsiyelerde bulunmak üzere belirtmekte fayda görmekteyim,naçizane.

1) lütfen,form üzerinde gerek formun kendisi için ve gerekse de denetimleri için olay yordamlarında KATIŞTIRILMIŞ MAKRO kullanımı yerine,kod yazmaya gayret ederek hem bu konuda tecrübe edinmeye istekli olunuz hem de ileride makro sorunlarına maruz kalma durumlarına engel olunuz.

2) modülleriniz içerisindeki ptrsafe kullanımlarına dair yazmış olduğunuz if...then yazımlarını tekrar gözden geçiriniz.else öncesi ve sonrası yazımlarında hem üstte hem de alt kısımda ptrsafe kullanmayıp sadece ya öncesinde ya da sonrasında kullanmaya gayret ediniz.

ÖRNEK:
MODULE11 adlı modülde olduğu gibi.

Kod:
#If VBA7 Then
    Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

    Declare PtrSafe Function LoadCursorFromFile Lib "user32" Alias _
  "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

    Declare PtrSafe Function SetCursor Lib "user32" _
  (ByVal hCursor As Long) As Long
#Else
    Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

    Declare PtrSafe Function LoadCursorFromFile Lib "user32" Alias _
  "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

    Declare PtrSafe Function SetCursor Lib "user32" _
  (ByVal hCursor As Long) As Long
#End If

bilginize...iyi çalışmalar,saygılar.
.rar Fatura 1.8-ATOZ2.rar (Dosya Boyutu: 88,78 KB | İndirme Sayısı: 20)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#4
(20/01/2016, 15:12)atoz112 yazdı: sayın kenan827, EK'te; bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz. son olarak; şu iki hususa dair tavsiyelerde bulunmak üzere belirtmekte fayda görmekteyim,naçizane. 1) lütfen,form üzerinde gerek formun kendisi için ve gerekse de denetimleri için olay yordamlarında KATIŞTIRILMIŞ MAKRO kullanımı yerine,kod yazmaya gayret ederek hem bu konuda tecrübe edinmeye istekli olunuz hem de ileride makro sorunlarına maruz kalma durumlarına engel olunuz. 2) modülleriniz içerisindeki ptrsafe kullanımlarına dair yazmış olduğunuz if...then yazımlarını tekrar gözden geçiriniz.else öncesi ve sonrası yazımlarında hem üstte hem de alt kısımda ptrsafe kullanmayıp sadece ya öncesinde ya da sonrasında kullanmaya gayret ediniz. ÖRNEK: MODULE11 adlı modülde olduğu gibi.
Kod:
#If VBA7 Then     Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _   (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long     Declare PtrSafe Function LoadCursorFromFile Lib "user32" Alias _   "LoadCursorFromFileA" (ByVal lpFileName As String) As Long     Declare PtrSafe Function SetCursor Lib "user32" _   (ByVal hCursor As Long) As Long #Else     Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _   (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long     Declare PtrSafe Function LoadCursorFromFile Lib "user32" Alias _   "LoadCursorFromFileA" (ByVal lpFileName As String) As Long     Declare PtrSafe Function SetCursor Lib "user32" _   (ByVal hCursor As Long) As Long #End If
bilginize...iyi çalışmalar,saygılar.

Arkadaşlar çok teşekkürler ellerinize sağlık.

atoz112 Hocam bu pragramı pormdan indirdim. Sizlerin sayesinde tam istediğim hale geldi. Kodlardan hiç anlamiyorum. if...then, Else nerelerde kullanılır ne gibi işlem yapar hiç bilmiyorum. Değindiğiniz if...then sorun yaratacaksa size zahmet olmayacaksa anlattığın Else düzeltmelerini yaparsanız sevinirim. Hocam birde arkadaki Access sayfasını gizlerseniz çok iyi olacak. Saygılarımla iyi çalışmalar diliyorum.
Son Düzenleme: 20/01/2016, 18:16, Düzenleyen: kenan827.
Cevapla
#5
sayın kenan827,

Alıntı:...anlattığın Else düzeltmelerini yaparsanız sevinirim. Hocam birde arkadaki Accesssayfasını gizlerseniz çok iyi olacak...

talebiniz doğrultusunda,
konunuzun 3.mesajında eklenen örnek uygulama güncellenmiştir.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#6
Çok, çok teşekkürler hocam ellerinize sağlık tam istediğim gibi olmuş.

Hocam Fatura yazdır butonuna tıkladığımız zaman Alt formdaki satış ile ilgili metin kutuları boş olduğu zaman Fatura boş bilgileri kontrol ediniz. Uyarısını veriyor. Bu şekli ile çok güzel. Kaydet butonunda tıkladığımız zaman da Alt formdaki satış ile ilgili metin kutuları boş ise ayni şekilde Fatura boş bilgileri kontrol ediniz. uyarısını verirse çok güzel olur.
Son Düzenleme: 20/01/2016, 20:13, Düzenleyen: kenan827.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da