في المرفقات قاعدة بيانات لإدارة ملفات الموظفين
أريد من حضراتكم التكرم بعمل نموذج يقوم
بطباعة حقول محددة من جدول عن طريق كومبو بوكس مثلا أو ليست بوكس لكي تظهر البيانات في تقرير
علمًا بأن التنسيق 2007
وجزاكم الله خيرًا
برجاء المساعدة في عمل نموذج لاختيار حقول محددة من جدول للظهور في تقرير للطباع
تفضل اخي العزيز
Private Sub cmdOpenReport_Click()
On Error GoTo Err_cmdOpenReport_Click
Dim strWhere As String
Dim ctl As Control
Dim varItem As Variant
'make sure a selection has been made
If Me.lstEmployees.ItemsSelected.Count = 0 Then
MsgBox "يجب تحديد ما لا يقل عن 1 حقل"
Exit Sub
End If
'add selected values to string
Set ctl = Me.lstEmployees
For Each varItem In ctl.ItemsSelected
strWhere = strWhere & ctl.ItemData(varItem) & ","
Next varItem
'trim trailing comma
strWhere = Left(strWhere, Len(strWhere) - 1)
'open the report, restricted to the selected items
DoCmd.OpenReport "rptEmployees", acPreview, , "EmpID IN(" & strWhere & ")"
Exit_cmdOpenReport_Click:
Exit Sub
Err_cmdOpenReport_Click:
MsgBox Err.Description
Resume Exit_cmdOpenReport_Click
End Sub
جزاكم الله خيرًا أخي على مساعدتك ولكن على حد علمي هذه العملية تحتاج أيضا كود للمفتاح وتحتاج كود للكومبو بوكس والليست بوكس المستخدمين كما ستحتاج استعلامًا
رجاءً عمل هذا على المثال ووضعة
ولكم جزيل الشكر
اخي العزيز تحياتي لك
لا استطيع ان اعدك بشيء الان لكن إن شاء الله عند فراغي سوف اعمل لك مثال
خلال اليومين القادمين
جزاكم الله خيرًا
اهتمام حضرتك وحده يكفي
سأنتظر ردًا من حضرتك أو ممن سيهتمون بالأمر لأنه في غاية الأهمية بالنسبة لي
تفضل عزيزي
جزاكم الله خيرًا