Type Mismatc Hatası (aktar Butonunda Hata)

25/03/2020, 20:25

SeferŞANLI

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?
25/03/2020, 20:54

berduş

Dim GMiktari As Integer
yerine
Dim GMiktari As Variant
yazmayı dener misiniz?
25/03/2020, 21:00

SeferŞANLI

Teşekkür ederim. Sorun çözüldü;)