merhaba,
bahsettiğiniz sorun,temizle butonundan kaynaklı değil aksine satış formunuzun güncelleme öncesi olay yordamında yer alan kodlamadan dolayı olmakta.
temizle butonu kodunuz:
Private Sub Komut27_Click()
Dim nesne As Object
For Each nesne In Me.Controls
If TypeName(nesne) = "TextBox" Or TypeName(nesne) = "ComboBox" Then
YAPILANISLEM = ""
ADEDI = ""
SATISFIYATI = ""
TOPLAMSATIS = ""
Me.ANAISLEMLER_ISLEMTARIHI.SetFocus
End If
Next
End Sub
form güncelle öncesi kodunuz:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim C As Integer
C = MsgBox("...!!!.GİRDİĞİNİZ VERİLER KAYDEDİLSİN Mİ?.!!!...", vbYesNo + vbQuestion + vbDefaultButton1, " Bilgi")
If C = vbNo Then
DoCmd.RunCommand acCmdUndo
End If
End Sub
bu sebeple,listeden bir kayıt seçtiğinizde,bu güncelleme öncesi kod çalışmakta.
ek'te çalışmanıza dair sadece çalışma durumunu görmeniz açısından bazı düzeltmeler yaparak,bir örnek çalışma hazırladım.inceleyebilirsiniz.
fakat,form ve sorgularınızda yapılması gereken düzeltmeler ve ayarlamalar da zannımca hala mevcut.
YAPILANLAR:
1-form üzerindeki müşteri no alanını açılan kutu olarak değiştirilip seçim yapıldığında yandaki isim alanına otomatik bilgisi de gelmektedir.
2-form üzerindeki kayıt bilgi ve sorgulamalar ile liste bilgileri düzeltildi.
3-mükerrer kayıt kontrolü eklendi.
4-temizle butonu içeriği iptal edilip yerine yeni kayıt açma ifadesi yazıldı.
bilgilerinize,
iyi çalışmalar,
saygılar.
ÖrnekATOZ.rar
(Dosya Boyutu: 302,73 KB | İndirme Sayısı: 48)