Skip to main content

AccessTr.neT


Type Mismatc Hatası (aktar Butonunda Hata)

Type Mismatc Hatası (aktar Butonunda Hata)

Çözüldü #1
Visual Basic Code
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?
.rar DOĞRUDAN TEMİN PROGRAMI SON HALİ.rar (Dosya Boyutu: 351,54 KB | İndirme Sayısı: 4)
Cevapla
#2
Visual Basic Code
Dim GMiktari As Integer
yerine
Visual Basic Code
Dim GMiktari As Variant
yazmayı dener misiniz?
Cevapla
#3
Teşekkür ederim. Sorun çözüldü;)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da