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

Dim GMiktari As Integer

Dim GMiktari As Variant