Shivan Rekany

اخي كريمو شوف كود زر cmdMen7Report في نموذج FrmMen7Reportما غيرته انت شهوف هذا كودك Private Sub cmdMen7Report_Click() On Error GoTo Err_cmdMen7Report_Click Dim stDocName As String stDocName = "rptMena7" DoCmd.OpenReport stDocName, acPreview Exit_cmdMen7Report_Click: Exit Sub Err_cmdMen7Report_Click: If Err.Number = 2501 Then Resume Next Else MsgBox Err.Description Resume Exit_cmdMen7Report_Click End If End Sub وهذا كود اللي في مشاركتي السابقة Private Sub cmdMen7Report_Click() On Error GoTo Err_cmdMen7Report_Click Dim stDocName As String stLinkCriteria = "EmployeeID=" & Forms!frmmenah.EmployeeID stDocName = "x03" 'DoCmd.OpenReport stDocName, acPreview DoCmd.OpenForm "PrintPreviewFrm", , , , , acDialog, stDocName & ";" & Me.Name Exit_cmdMen7Report_Click: Exit Sub Err_cmdMen7Report_Click: If Err.Number = 2501 Then Resume Next Else MsgBox Err.Description Resume Exit_cmdMen7Report_Click End If End Sub تحياتي

نعم كلا منها يستدعي فونكشين لكن اكدر اقول لك الفرق بينهما صوت الثاني احتمال بيكون اقوى من الصوت الاول هذا حسب فهمي والله اعلم

اتفضل انسخ هذا في وحدة نمطية Option Compare Database Global Const SW_HIDE = 0 Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form loX = apiShowWindow(hWndAccessApp, nCmdShow) End Function وفي نموذج حيف فتح النموذج البداية اكتب هذا كود fSetAccessWindow(0) او call fSetAccessWindow(0)

هل جربت القاعده‌ في مشاركتي السابقة ؟

ارفق القاعده‌ لكي نشوفه سيدي

حين تضغط على المعاينة بيفتح نموذج اخر لكي تختار فيها السنة وبها زر اخر كتبت كود استاذ جعفر في خلف ذاك الزر لكن غيرت هذا السطر فقط stLinkCriteria = "EmployeeID=" & Me.EmployeeID بهذا stLinkCriteria = "EmployeeID=" & Forms!frmmenah.EmployeeID

اتفضل اخي جرب ووافيني بالنتيجة حين تضغط على المعاينة راح يظهر نموذج الاخر لكي تختار السنة وبعدين تفتح التقرير جرب ووافيني بالنتيجة 2017.rar

اخي كريمو جرب ان ترفق مجددا لانه لم نكدر ان ننزل المرفق

ممكن ترفقون القاعدة اللي بها مشكلة لكي نكدر نشوفه وين الخلل مع تقدير

لا يحتاج للشرح فقط شوف نظرا جيدا الى هذا الكود CurrentDb.Execute ("UPDATE qrymaelomat SET done =" & Not Me.done) Me.Requery واليك ملف حسب طلبك تحديد سجلات اللي تريد ويظهر في استعلام.rar

اخي كريمو السلام عليكم ورحمة الله وبركاته انا جربت كود الاستاذ جعفر و مافي مشكلة

في زر فتح التقرير اكتب هذا الكود قبل كود فتح التقرير DoCmd.RunCommand acCmdRefresh واليك ملف بعد تعديل تحديد سجلات اللي تريد ويظهر في استعلام.rar

عفوا اليك مني حل اخر وهو كما قلت سابقا تحويل بين تاريخين اتفضل شوف ملفك بعد تعديل ووافيني بالنتيجة رفع (1).rar

اعتذر منك الكود اعلاه بيغير تاريخ البرامج الى تاريخ ميلادي لذا اشوف اذا تعمل تحويل التاريخ الى الميلادي اي تكتب تاريخ الهجري وتحوله الى ميلادي من الممكن ان يكون احسن والله يعلم

اكتب هذا الكود لمربع نصي Remee في حدث تضغط الماوس عليه Private Sub REMee_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Application.SetOption "Use Hijri Calendar", 0 End Sub

اخي الكريم اذا انا ما كان غلطان موضوعك مكرر هناك شوف النتيجة

ان شاء الله خلاص مافي المشاكل بعد اي الان ان شاء الله نعم والان صار كود في الحال للنموذج الى Private Sub Form_Current() On Error GoTo HandleErr Dim rs As Object If Not IsNull([PicFile]) Then [imgPicture].Picture = [PicFile] SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'." Set rs = Me.Recordset.Clone rs.FindFirst "[Name_b] = '" & Me![مربع_تحرير_وسرد96] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark Else [imgPicture].Picture = "" SysCmd acSysCmdClearStatus End If Exit Sub HandleErr: If Err = 2220 Then [imgPicture].Picture = "" SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile] & "'" Set rs = Me.Recordset.Clone rs.FindFirst "[Name_b] = '" & Me![مربع_تحرير_وسرد96] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark Else MsgBox Err.Description, vbExclamation End If End Sub واليك ملفك بعد تعديل test50.rar

الیک

مبدع مبدع مبدع اليك مني +1 وبانتظارك ونريد نعرف المناسبة

ما اکتب اسم ای شخص الا اسماء الغاليين على الرغم ماعرفت ارقام هواتفكم و مواليدكم لكن كتبت ذلك للتوضح واعتذر منكم على ذلك اخوكم الصغير شفان ريكاني

الشكر كله لله وحده لكن أنا ما فهمت قصدك استاذي الفاضل

جرب كود فتح ذاك النموذج في حدث تحميل التقرير

اذا بترفق قاعدة بياناتك راح نحاول ان نوصل لحل المطلوب

السلام عليكم ورحمه‌ الله وبركاته حياك الله اخي علي محمد الكعبي انا نزلت قاعده‌ بياناتك وما فهمت ماتريد بالضبط لذا خليته وما عملت اي رد لذا من المفروض ان توضح ما تريد بالصور او تحدد وتكتب اسماء الحقول والنموذج المطلوب لكي نعرف المحل اللي نعمل عليه مع تقدير

اتفضل استاذي ابو خليل حولنا الى صيغة mdb اي اصدار 2003 قاعدة البيانات4.rar