AccessTr.neT

Tam Versiyon: Type Mismatc Hatası (aktar Butonunda Hata)
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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?
Dim GMiktari As Integer
yerine
Dim GMiktari As Variant
yazmayı dener misiniz?
Teşekkür ederim. Sorun çözüldü;)