amir zahed
شنبه 27 مهر 1392, 16:23 عصر
سلام دوستان
من این کد رو از تو همین انجمن گرفتم
این کد جستجو رو در فرم من بر اساس فیلدی که فرمتش number هست انجام میده
حالا باید چه تغییری بدم که بیاد و text رو هم انجام بده؟
Private Sub Text156_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[family] = " & Str(Nz(Me![Text156], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
بجای family که text هست اگه مثلا sh_sh که شماره شناسنامه هست و فرمت number داره مشکلی نیست
اما وقتی family رو میذارم چون فرمتش text هست انجام نمیده
ممنون
من این کد رو از تو همین انجمن گرفتم
این کد جستجو رو در فرم من بر اساس فیلدی که فرمتش number هست انجام میده
حالا باید چه تغییری بدم که بیاد و text رو هم انجام بده؟
Private Sub Text156_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[family] = " & Str(Nz(Me![Text156], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
بجای family که text هست اگه مثلا sh_sh که شماره شناسنامه هست و فرمت number داره مشکلی نیست
اما وقتی family رو میذارم چون فرمتش text هست انجام نمیده
ممنون