#silindi Hatası
Tarih
23/02/2011 16:27
Konu Sahibi
life_exciting
Yorumlar
2
Okunma
1181
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



life_exciting
Aktif Üye
Kullanici Avatari
Aktif Üye
837
28/12/2009
361
Ankara
Ofis 2003
18/11/2010,00:42
Çözüldü 
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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
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




Ek Dosyalar Ekran Görüntüleri
   
Cevapla

life_exciting
Aktif Üye
Kullanici Avatari
Aktif Üye
837
28/12/2009
361
Ankara
Ofis 2003
18/11/2010,00:42
Çözüldü 
Sponsor Reklam
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
Cevapla

yorum70

Kullanici Avatari
Özel Üye
A.... Ş....
1.187
08/10/2010
71
Ankara
Ofis 2013 64 Bit
22/10/2016,21:00
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.
"Her tercih, bir vazgeçiştir"

Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Ondalık Para Birimine Dönüştürmede Nokta Hatası kadirba72 5 80 25/02/2017, 01:46 kadirba72
  Access Otomatik Sayı Hatası kadirba72 3 98 23/02/2017, 21:19 kadirba72
  Belirtilen Kayda Gidemezsiniz Hatası Hakkında İbrahim Şenol 11 89 23/02/2017, 20:01 İbrahim Şenol
  Alt Forma Veri Girerken Fielsize Hatası murat dikme 6 93 23/02/2017, 15:24 murat dikme
  Kapatma Hatası metınaycıcek 14 154 23/02/2017, 00:05 metınaycıcek


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya