Teşeküre ederim hocam explicit kullandığım formların sadece bir tabesinde aşağıdaki kodda hata verdi
Private Sub Komut141_Click()
If IsNull(Me.Açılan_Kutu0) Or IsNull(Açılan_Kutu2) Or IsNull(Açılan_Kutu4) Or IsNull(Açılan_Kutu10) Or IsNull(Metin12) Or IsNull(Metin14) Then
If MsgBox("Formu Kapatmak İstediğinizden Emin misiniz?", vbInformation + vbYesNo, "ERZURUM OTOMASYON") = vbYes Then
Me.Undo
DoCmd.SetWarnings False
DoCmd.RunSQL ("DELETE ID_GIRIS, ID_URUN, ID_KATEGORI, ID_BIRIM, GIRIS_TARIHI, ID_TEDARIKCI, GIRIS_MIKTARI FROM T_GIRIS WHERE (((ID_GIRIS) Is Null)) OR (((ID_URUN) Is Null)) OR (((ID_KATEGORI) Is Null)) OR (((ID_BIRIM) Is Null)) OR (((GIRIS_TARIHI) Is Null)) OR (((ID_TEDARIKCI) Is Null)) OR (((GIRIS_MIKTARI) Is Null));")
DoCmd.SetWarnings True
ShrinkMe (Me.Name)
DoCmd.Close
DoCmd.OpenForm "F_CIKIS", acNormal
End If
Else
mesaj = MsgBox("Form Kapatılmadan Önce Girilen Veriler Kaydedilsin mi?", vbCritical + vbYesNoCancel, "ERZURUM OTOMASYON")
Select Case mesaj
Case 6
DoCmd.Save
MsgBox Metin14 & " - " & Metin222 & " STOK GİRİŞİ GERÇEKLEŞTİ, GÜNCEL STOK MİKTARI " & ([Metin217] + [Metin14]) & "", vbInformation, "ERZURUM OTOMASYON"
ShrinkMe (Me.Name)
DoCmd.Close
DoCmd.OpenForm "F_CIKIS", acNormal
Case 7
Me.Undo
ShrinkMe (Me.Name)
DoCmd.Close
DoCmd.OpenForm "F_CIKIS", acNormal
Case 2
Exit Sub
End Select
End If
End Sub
Bu kodun başlığı Option Compare Database olunca hata vermiyor normalde..
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla
Son Düzenleme: 27/04/2014, 13:34, Düzenleyen: akdemir1.