AccessTr.neT

Arkadaşlar Merhabalar
Aşağıdaki Kodları Bir Butonun Tıklanma Olayında Kullanıyorum.Ancak Butona Tıkladığımda Ekteki Gibi Tüm Kutularda Silindi Şeklinde Hata Alıyorum.Kontrol Edebilirseniz Sevinirim.İyi Çalışmalar

Private Sub s3_Click()

On Error Resume Next

Dim rs As Recordset

    Set rs = CurrentDb.OpenRecordset("select * from tbl_Fatura_Serileri where faturaserino = '" & Me.Metin22 & "'")

    

    If rs.Fields("EnBuyukNo") - 10 < rs.Fields("SonNo") Then

        MsgBox "Faturanız 10 Adetten Az Kaldı.Lütfen Faturanızı Kontrol Ediniz.", vbCritical, "Bitiyor.."

    End If

    

    If rs.Fields("EnKucukNo") > rs.Fields("SonNo") Or rs.Fields("EnBuyukNo") < rs.Fields("SonNo") Then

        MsgBox "Faturanız Bitti.Fatura Tanımlama İşleminiz Yapılana Kadar Fatura Kesemezsiniz.Fatura Tanımlama İşlemi İçin Bilgi İşlemi Arayınız.", vbCritical, "Fatura Bitti.."

        rs.Close

    

Exit Sub

 End If

    

   If IsNull(cikismerkezi) Then

   MsgBox "Lütfen Gönderilecek Kargo'nun Çıkış Merkezini Belirtiniz.Aksi Halde Satış İşleminiz Durdurulacaktır.", vbOKOnly + vbCritical, "Eksik Bilgi": Me.cikismerkezi.SetFocus

 

Exit Sub

 End If

   

   If IsNull(varismerkezi) Then

   MsgBox "Lütfen Gönderilecek Kargo'nun Varış Merkezini Belirtiniz.Aksi Halde Satış İşleminiz Durdurulacaktır.", vbOKOnly + vbCritical, "Eksik Bilgi": Me.varismerkezi.SetFocus

   

 Exit Sub

 End If

   

   If IsNull(gonderenadi) Then

   MsgBox "Lütfen Gönderen Müşteri Bilgilerini Giriniz.Aksi Halde Satış İşleminiz Durdurulacaktır.", vbOKOnly + vbCritical, "Eksik Kayıt": Me.gonderenadi.SetFocus



Exit Sub

 End If

   

   If IsNull(alicisoyadi) Then

   MsgBox "Lütfen Alıcı Müşteri Bilgilerini Giriniz.Aksi Halde Satış İşleminiz Durdurulacaktır.", vbOKOnly + vbCritical, "Eksik Kayıt": Me.alicisoyadi.SetFocus



Exit Sub

 End If

   

   If IsNull(kargoadeti) Then

   MsgBox "Lütfen Gönderilecek Kargo Adetini Belirtiniz.Aksi Halde Satış İşleminiz Durdurulacaktır.", vbOKOnly + vbCritical, "Eksik Kayıt": Me.kargoadeti.SetFocus



Else

    

    rs.Edit

    Me.faturasirano = IIf(IsNull(rs.Fields("SonNo")), 1, rs.Fields("SonNo") + 1)

    Me.faturaserino = Me.Metin22

    rs.Fields("SonNo") = IIf(IsNull(rs.Fields("SonNo")), 1, rs.Fields("SonNo") + 1)

    rs.Update

    rs.Close

  

  'Yazıcı İşlemlerini Buradan Gerçekleştiriyorum



DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

DoCmd.OpenReport "FaturaSorgu", acViewNormal

DoCmd.GoToRecord , , acNewRec



End If

End Sub

Arkadaşlar Sorunu Çözdüm.Sorun Tablolarımı Mysql Sunucu Üzerinde Tutuyorum ve Access İle Bağlantısını Mysql ODBC le Sağlıyorum.Tablolarda El İle Oluşturduğum Veriler Vardı ve Bunlara da ID Tanımlamadığım İçin ODBC Bu Verilerin Doğruluğunu Sağlayamıyordu ve Buyüzden Bu Şekilde Bir Hata Veriyordu.İyi Çalışmalar

Aynı sorun bende de var, nasıl çözdüğünüzü tam idrak edemedim.

bir tarih alanından, bir altta geçerken alttaki tarih üsttekinin durumuna göre, silme sorgusu devreye giriyor ve ana tablodan silip, bitenler tablosuna atıyor..Silme işleminde ise, FORMDA TÜM ALANLARDA #SİLİNDİ yazıları çıkıyor !

Açıklayabilecek sayın üyemiz olursa, istifade edebiliriz.