AccessTr.neT

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ü;)