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