:) أرجو المساعدة ،
لقد قمت بإنشاء برنامج لحفظ معلومات و البحث عنها ، و أستخدمت في ذلك مكتبة ADO و ربطتها بقاعدة
بيانات Access و لكن صادفتني بعض المشاكل :
أولاً: عند البحث في قاعدة البيانات بإستخدام الأمر Find لا يتم العثور على آخر بيانات تم إدخالها.
ثانياً: عند الطباعة و عمل ذلك على جهازي يعمل الأمر و لكن عند تنزيل البرنامج على جهاز آخر لا تتم الطباعة.
أرجو المساعدة ، و لكم جزيل الشكر.
كود الطباعة المستخدم هو :
Private Sub cmdPrina_Click()
If rs.State = adStateOpen Then rs.Close
rs.Open "tabltsce", db, adOpenDynamic, adLockPessimistic
Set DaReltsce.DataSource = rs
DaReltsce.Show
End Sub
و كود البحث المستخدم هو :
Private Sub cmdSearchNa_Click()
Dim gBookMark As Variant
If Trim(txtSearchNa.Text) = "" Then Exit Sub
gBookMark = rs.Bookmark
Call Command12_Click
rs.Find "[Nam] LIKE '" & Trim(txtSearchNa.Text) & "%'"
If rs.EOF Then
rs.Bookmark = gBookMark
frmSeNam.Hide
Me.Show
MsgBox "!ÚÝæÇð áã íÊã ÇáÚËæÑ Úáì äÊíÌÉ", vbOKOnly + vbInformation, "!ÊäÈíå"
frmSeNam.Command1.Enabled = False
Exit Sub
End If
Call ViewRecord
Label1.Visible = False
Text3.Visible = False
Call Command17_Click
Call Command9_Click
Call Command2_Click
End Sub