lplnhg
سه شنبه 23 خرداد 1385, 19:02 عصر
سلام
دوستان این کد را من از برنامه دوستان استفاده نموده ام منتها فیلد من از نوع عدد میباشد
Private Sub Form_Current()
Dim conter
Combo4.RowSource = "SELECT hes1.radif, hes1.dats, hes1.bs FROM hes1 WHERE (((hes1.radif)='" & radif & "' ));"
Text6 = ""
For conter = 1 To CountOfdars
Text6 = Text6 & "-" & Combo4.Column(1, conter - 1) & Combo4.Column(2, conter - 1)
Next
End Sub
پیغام زیر را می دهد البته این را بگویم فیلد ردیف نوع عدد است خواهشمند است چگونه میتوانم شرط بالا باتوجه به نوع عددی فیلد
درست کنم لطفا اگر میشود با کد صحیح اصلاح فرمائید
Data type mismatch in criteria expression
با تشکر
دوستان این کد را من از برنامه دوستان استفاده نموده ام منتها فیلد من از نوع عدد میباشد
Private Sub Form_Current()
Dim conter
Combo4.RowSource = "SELECT hes1.radif, hes1.dats, hes1.bs FROM hes1 WHERE (((hes1.radif)='" & radif & "' ));"
Text6 = ""
For conter = 1 To CountOfdars
Text6 = Text6 & "-" & Combo4.Column(1, conter - 1) & Combo4.Column(2, conter - 1)
Next
End Sub
پیغام زیر را می دهد البته این را بگویم فیلد ردیف نوع عدد است خواهشمند است چگونه میتوانم شرط بالا باتوجه به نوع عددی فیلد
درست کنم لطفا اگر میشود با کد صحیح اصلاح فرمائید
Data type mismatch in criteria expression
با تشکر