السلام عليكم ورحمة الله وبركاته
كل عام وأنتم بخير
لدي كود للبحث برقم موظف أو طالب ثم عرض بياناته
ولكن بشرط أن يكون رقم الطالب او الموظف من نوع رقم وليس نص (text) وأريد التعديل عليه بحيث يعمل
حتى إذا كان رقم الموظف أو الطالب من نوع نص .
'--------------------------------------
Dim myrec As Recordset
Dim rs As Object
Set rs = Me.Recordset.Clone
Set myrec = CurrentDb.OpenRecordset("SELECT [sn] as MyNO" & _
" FROM Table1 " & _
" WHERE ((([sn]) =" & Me.sn & ")) " & _
" GROUP BY [sn];")
If myrec.RecordCount > 0 Then
'إذا كان الموظف موجود
Undo
rs.FindFirst "[sn] = " & Str(myrec!MYNO)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
'Me.Command35.SetFocus
ElseIf myrec.RecordCount = 0 Then
'إذا كان الموظف غير موجود
If MsgBox(" هذا الرقم غير موجود ! ! ! هل تريد إضافة بيانات جديده ؟ ", _
vbCritical + vbYesNo + vbMsgBoxRight + vbDefaultButton1, _
" نتيجة البحث ") = vbYes Then
DoCmd.GoToControl "nametxt"
Else
Undo
DoCmd.GoToRecord , , acNewRec
Me.sn.SetFocus
End If
End If
'--------------------------------------
أرجو منكم المساعدة لجعل هذا الكود يعمل حتى لو كان الحقل sn في الجدول Table1 من نوع نص Text .
يوجد مثال في المرفقات على Office 2010
ولكم جزيل الشكر