(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