السلام عليكم ورحمة الله وبركاته
أخوتي الأكارم أقدم إليكم فكرة قد تكون مفيدة لكم وهي تعليمة dOpen والتي تستخدم لفتح الجداول والاستعلامات والنماذج والتقارير
س: كيف يتم تشغيل التعليمة ؟؟؟
ج: ضع التعليمات التالية في وحدة نمطية جديدة ومن ثم قم بتطببق التعليمة كما هو موضح في المرفقات
Public Function dOpen(ContType As String, ContName As String, Optional Condition As String)
' By Eyad
Dim strProcName As String
strProcName = "dOpen"
On Error GoTo dOpen_Err
Select Case ContType
Case "tbl"
DoCmd.OpenTable ContName
Case "Qry"
DoCmd.SetWarnings False
DoCmd.OpenQuery ContName, acViewNormal
DoCmd.SetWarnings True
Case "Frm"
DoCmd.OpenForm ContName, acNormal, , Condition
Case "Rpt"
DoCmd.OpenReport ContName, acViewPreview, , Condition
End Select
Exit Function
dOpen_Exit:
Exit Function
dOpen_Err:
Select Case Err
'Case YourErrNumber
'Resume dOpen_Exit
Case Else
MsgBox "Error occurred" & vbCrLf & vbCrLf & _
"In Function:" & vbTab & strProcName & vbCrLf & _
"Err Number: " & vbTab & Err.Number & vbCrLf & _
"Description: " & vbTab & Err.Description, vbCritical, _
"Error in " & Chr$(34) & strProcName & Chr$(34)
Resume dOpen_Exit
End Select
End Function
لتحميل المرفقات:
أرجو أن تكون هذه التعليمة مفيدة وسلامي لكم وللجميع
