25/03/2020, 20:25 #1 Sefer ŞANLI SeferŞANLI Bul Aktif Üye Adı Soyadı: Se.... ŞA.... Yaşı: 45 Konum: - Ofis Versiyonu: Ofis 2010 64 Bit Son Oturumu: 23/10/2020,12:03 Yorumları: 548 Konuları: 103 Kayıt Tarihi: 21/12/2014 Rep Puanı: 9 Mesleğiniz: Öğretmen Visual Basic Code Private Sub btn_aktar_Click() Dim GItem As Variant Dim GurunAdi, Gurunno As String Dim GBirimi As String Dim GMiktari As Integer For Each GItem In Me.Liste0.ItemsSelected Gurunno = Me.Liste0.Column(0, GItem) GurunAdi = Me.Liste0.Column(1, GItem) GBirimi = Me.Liste0.Column(2, GItem) If DCount("*", "tbl_ihtiyac", "[urun_adi] = '" & GurunAdi & "' And [ihale_id] = " & [mtn_is_no] & "") <> 0 Then MsgBox (GurunAdi & ", Daha Önce Eklenmiş !") Else GMiktari = InputBox("Alınacak Malzeme Miktarını Giriniz !") If StrPtr(GMiktari) = 0 Then Exit Sub ElseIf Len(GMiktari) = 0 Then MsgBox ("Miktar boş bırakılamaz !") Exit Sub End If DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO tbl_ihtiyac (urun_no,ihale_id,urun_adi,birimi,miktari) VALUES ('" & Gurunno & "', ' " & mtn_is_no & "','" & GurunAdi & "' ,'" & GBirimi & "', '" & GMiktari & "')" DoCmd.SetWarnings True End If Next GItem Me.frm_ihtiyac.Requery etk_kalemsayisi.Caption = "Toplam " & Me.frm_ihtiyac.Form.RecordsetClone.RecordCount & "( " & Sayiyi_Metne_Cevir(Me.frm_ihtiyac.Form.RecordsetClone.RecordCount) & ") Kalem" End Sub Yukarıda verilen kodda frm_malzemeler formundan listeden seçilen ürün-listeye ekle- butonuna tıklayıp değer girmeden işlemden vazgeçilince yani esc yada iptale basınca hata veriyor. Sebebi nedir acaba? DOĞRUDAN TEMİN PROGRAMI SON HALİ.rar (Dosya Boyutu: 351,54 KB | İndirme Sayısı: 4) Cevapla Cevapla
25/03/2020, 20:54 #2 Berduş berduş Bul Uzman Adı Soyadı: ha.... Konum: - Ofis Versiyonu: Ofis 2019 64 Bit Son Oturumu: Bugün,00:38 Yorumları: 5.442 Konuları: 94 Kayıt Tarihi: 30/07/2014 Rep Puanı: 695 Visual Basic Code Dim GMiktari As Integer yerine Visual Basic Code Dim GMiktari As Variant yazmayı dener misiniz? Cevapla Cevapla
25/03/2020, 21:00 #3 Sefer ŞANLI SeferŞANLI Bul Aktif Üye Adı Soyadı: Se.... ŞA.... Yaşı: 45 Konum: - Ofis Versiyonu: Ofis 2010 64 Bit Son Oturumu: 23/10/2020,12:03 Yorumları: 548 Konuları: 103 Kayıt Tarihi: 21/12/2014 Rep Puanı: 9 Mesleğiniz: Öğretmen Teşekkür ederim. Sorun çözüldü;) Cevapla Cevapla