If Me.Liste11.ListCount > 0 Then If x <> Me.Liste11.Column(3, 1) Then MsgBox "veri tipi uygun değil": Exit Sub
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?