merhabalar,
[img][/img]
eklemiş olduğum örnekte veri tipi aynı olanları veri aktar butonuna tıklayınca gecici tabloya kaydediyor,
sonrasında üstteki liste kutusundan yine başka bir veri seçip liste kutusuna aktar diyince veri tipi farklı olsa bile kaydediyor,

AMAÇ: alttaki liste kutusundaki veritipi ile üstten aktarmak istediğimiz verinin veri tipi aynı ise aktarsın,
aynı değilse veri tipi farklı olduğundan aktarmasın istiyorum, yardımcı olabilirmisiniz?

buton kodunu aşağıdaki gibi düzenleyip dener misiniz?
sadece If DCount("*", "gecici", "veritipi<>" & x) > 0 Then MsgBox " veri tipi farklı": Exit Sub satırı eklendi

Private Sub Komut10_Click()



Sayi = ""

Dim varItm As Variant

For Each varItm In Me.Liste8.ItemsSelected

x = CLng(Me.Liste8.Column(3, varItm))

If Sayi = "" Then Sayi = x 'Else Exit Sub



If Sayi <> "" Then

If Sayi = x Then

Sayi = x

Else

MsgBox "tipler farklı"

Exit Sub

End If

End If

10

Next varItm

If DCount("*", "gecici", "veritipi<>" & x) > 0 Then MsgBox " veri tipi farklı": Exit Sub '<<== eklenen satır

For Each varItm In Me.Liste8.ItemsSelected

CurrentDb.Execute "INSERT INTO gecici (sipno, kg, veritipi) VALUES(" & Me.Liste8.Column(0, varItm) & ", " & Me.Liste8.Column(1, varItm) & ", " & CLng(Me.Liste8.Column(3, varItm)) & ")"

Next varItm

Me.Liste11.Requery

End Sub

Ben de ekteki gibi bir çalışmayla destek olmak istedim...

sn üstadlar, merhaba,
gecici tablo ile ilgili yapılan işlemler sonuca ulaşıyor.

Bu işlemi yaparken liste kutusundaki veri sorgulanarak yapılabilir mi?
ben bu dosyayı örnek olarak ekledim, aslında gecici diye bir tablom yok,
yardımlarınız için teşekkür ederim,
saygılarımla

If DCount("*", "gecici", "veritipi<>" & x) > 0 Then MsgBox " veri tipi farklı": Exit Sub yukardaki kısmı aşağıdaki kodla değiştirip dener misiniz?

If Me.Liste11.ListCount > 0 Then If x <> Me.Liste11.Column(3, 1) Then MsgBox "veri tipi uygun değil": Exit Sub

(17/11/2021, 16:25)berduş yazdı: If DCount("*", "gecici", "veritipi<>" & x) > 0 Then MsgBox " veri tipi farklı": Exit Sub yukardaki kısmı aşağıdaki kodla değiştirip dener misiniz?

If Me.Liste11.ListCount > 0 Then If x <> Me.Liste11.Column(3, 1) Then MsgBox "veri tipi uygun değil": Exit Sub

If Me.Liste11.ListCount > 0 Then If x <> CLng(Me.Liste11.Column(3, 1)) Then MsgBox "veri tipi uygun değil": Exit Sub

sn üstad, teşekkür ederim,
liste kutusunun başına
CLng(Me.Liste11.Column(3, 1))
ekledim, bu şekilde çözüldü,
çok teşekkürler,
saygılarımla