jjafferr

السلام عليكم 🙂
 
وبعد تحدي ، وصلنا للمطلوب ان شاء الله 🙂
اضفت الحقول البرتقالية لتحسب عدد المرات الموجود فيها الرقم (من او الى) ، ويمكن جعل هذا الحقل مخفي ،
الحقول الخضراء هي حقل محسوب في الجدول (موجود سابقا في البرنامج)

.
وهذا هو التنسيق الشرطي للحقل بالسهم الاحمر:

.
هذه الوحدة النمطية التي تقوم بالعمل ،
Function Update_All() Dim mySQL As String Dim arr_Fields() As Variant Dim New_value As Long Dim Old_value As Long Dim Number_Field As String Dim tbl_Name As String Dim This_Count As Integer Dim Prev_Count As Integer Dim ctrlN As String Dim frmN As String Dim i As Integer Dim j As Integer Dim This_CountF As Integer Dim Prev_CountF As Integer frmN = Screen.ActiveForm.Name ctrlN = Screen.ActiveControl.Name arr_Fields = Array("من رقم الوارد", "الي رقم الوارد", "من رقـم الرمبة", "الي رقـم الرمبة", "من رقم التخليص", "الي رقـم النخليص") New_value = Forms(frmN)(ctrlN) If Len(Forms(frmN)(ctrlN).OldValue & "") <> 0 Then Old_value = Forms(frmN)(ctrlN).OldValue End If tbl_Name = "جدول الرصاص" 'save Form values If Forms(frmN).Dirty Then Forms(frmN).Dirty = False '1 'get the hieghst value of all fields For i = LBound(arr_Fields) To UBound(arr_Fields) ctrlN = arr_Fields(i) Number_Field = ctrlN & "_2" 'New value This_CountF = DCount("*", tbl_Name, "[" & ctrlN & "]=" & New_value) If This_CountF > 0 Then This_Count = This_Count + This_CountF End If 'Old value If Len(Old_value & "") <> 0 Then Prev_CountF = DCount("*", tbl_Name, "[" & ctrlN & "]=" & Old_value) If Prev_CountF > 0 Then Prev_Count = Prev_Count + Prev_CountF End If End If Next i 'save Form values If Forms(frmN).Dirty Then Forms(frmN).Dirty = False '2 'change the values in the Fields For i = LBound(arr_Fields) To UBound(arr_Fields) ctrlN = arr_Fields(i) Number_Field = ctrlN & "_2" 'New value mySQL = "UPDATE [" & tbl_Name & "] SET [" & Number_Field & "] = " & This_Count mySQL = mySQL & " WHERE [" & ctrlN & "]=" & New_value 'Debug.Print i & "N > " & mySQL; "" DoCmd.RunSQL mySQL 'Old value If Len(Old_value & "") <> 0 Then mySQL = "UPDATE [" & tbl_Name & "] SET [" & Number_Field & "] = " & Prev_Count mySQL = mySQL & " WHERE [" & ctrlN & "]=" & Old_value 'Debug.Print i & "O > " & mySQL DoCmd.RunSQL mySQL End If 'force the field in the Form to take the new value Forms(frmN)(Number_Field).Requery Next i End Function .
ويتم مناداتها من حدث بعد التحديث لكل حقل ، مثلا :
Private Sub الي__رقـم_الرمبة_AfterUpdate() Call Update_All End Sub .
اسماء الحقول صارت مبرمجة في:
الجدول ، النموذج ، الوحدة النمطية ، والتنسيق الشرطي ،
لذا ، اذا فكرت بتغيير اسم الحقل في الجدول (او اضافة حقول جديدة) ، فيجب مراعاة تعديل الكائنات التي اشرت اليها اعلاه 🙂
 
جعفر
1095.مثال.accdb.zip

وعليكم السلام 🙂
 
بما انك لم تعطنا معلومات كافية ، فاليك الطريقة ، وانت قم بالباقي:
1. نفترض ان اسم النموذج الذي فيه "معلومات الكتاب" اسمه frm_Letter
2. في النموذج الفرعي الذي في الصورة اعلاه ، اعمل حدث على "النقر المزدوج" على الحقل "رقم" (اول حقل على يدك اليمين في الصورة) ، والحدث يكون لفتح النموذج frm_Letter بالرقم الذي نقرت عليه:
docmd.OpenForm "frm_Letter",,,"[رقم]=" & me.رقم  
رجاء تغيير اسماء الكائنات في الكود لتتطابق مع اسماء الكائنات في برنامجك 🙂
 
جعفر

تفضل 🙂

 
جعفر
 
1097.AutoKeys DataMacro close Form Report.zip

السلام عليكم 🙂
 
عملت نموذج جديد لإدخال بيانات القائمة ، غير مضمن ، والحقل اللي فيه كذلك غير مضمن

.
اضفت اسم هذا النموذج ، كنموذج تحرير لبيانات القائمة

.
انقر على القائمة ، حتى يفتح لك النموذج بالحقل الصحيح :

.
جعفر
1093.Ex2.accdb.zip

السلام عليكم 🙂
 
بسبب انه مافي بيانات في المرفق ، فما قدرت اجرب ، وما قدرت اني اواصل !!
 
على العموم ، اليك طرف الخيط 🙂
 
علشان تنادي حدث في نموذج آخر:
1. في النموذج الآخر ، يجب تغيير Private الى Public (لاحظ الدائرة الحمراء) ،
2. علشان ننادي الحدث ، نكتب كما في النقطتين 5 و 6 .
الامر docmd.close سيغلق النموذج/التقرير الذي عليه التركيز والذي في الواجهة ،
لهذا السبب ، واذا اردنا ان نغلق النموذج الذي نقرنا زر الاغلاق منه (سند القبض) ، وجب ان نكتب الامر كما في الرقم 3 في الاسفل ،
ولاحظ اننا نغلق نموذج  (سند القبض) بعد ان نعطي/نرسل الاوامر للنموذج الآخر 🙂

.
وعلى هذا المنوال تستطيع مواصلة المشوار 🙂
 
جعفر
1086.‏‏BuySal19_v04.mdb.zip

تفضل 🙂
 
عملنا حقل جديد لتحديد سجل المنصرف ، واخر لسجل الوارد ، حقول غير مضمنه ، ويمكنك ان تجعلهم مخفيين

.
اضفنا في زر منصرف وكذلك في زر وارد ، جعلنا الحقل اعلاه = قيمة التاريخ ، وذلك لأني رايت ان حقل التاريخ هو ما يجعل كل سجل فريد

.
وعملنا تنسيق شرطي ، اذا كان قيمة الحقل الغير مضمن = التاريخ ، اذن اجعل خلفيته خضراء

.
وهذه النتيجة

.
جعفر
1085.zip

تفضل يا سيدي 🙂
Private Sub BtnAllRcrd_Click() 'On Error GoTo ErrHandler On Error Resume Next Dim rs As DAO.Recordset Dim LWordDoc As Object Set LWordDoc = CreateObject("Word.Application") Set rs = CurrentDb.OpenRecordset("Table1") If Not rs.EOF Then rs.MoveFirst Do Until rs.EOF LWordDocOriginal = CurrentProject.Path & "\WordDoc.Doc" ' LWordDocSaveAs = CurrentProject.Path & "\" & rs!Fullname & "_Doc.Doc" ' FileCopy LWordDocOriginal, LWordDocSaveAs ' LWordDoc.Documents.Open CurrentProject.Path & "\" & rs!Fullname & "_Doc.Doc" LWordDoc.Documents.Open LWordDocOriginal LWordDoc.Visible = False LWordDoc.ActiveDocument.Bookmarks("fname").Select LWordDoc.Selection.InsertAfter Nz(rs!Fullname.Value, "") LWordDoc.ActiveDocument.Bookmarks("Civ").Select LWordDoc.Selection.InsertAfter Nz(rs!CivilNo.Value, "") LWordDoc.ActiveDocument.Bookmarks("Nat").Select LWordDoc.Selection.InsertAfter Nz(rs!Nationality.Value, "") LWordDoc.ActiveDocument.Bookmarks("Rate").Select LWordDoc.Selection.InsertAfter Nz(rs!Rate.Value, "") LWordDoc.ActiveDocument.Bookmarks("Chin").Select LWordDoc.Selection.InsertAfter Nz(rs!CheckIn.Value, "") LWordDoc.ActiveDocument.Bookmarks("Chout").Select LWordDoc.Selection.InsertAfter Nz(rs!CheckOut.Value, "") LWordDoc.ActiveDocument.Bookmarks("Pr").Select LWordDoc.Selection.InsertAfter Nz(rs!Price.Value, "") LWordDoc.ActiveDocument.SaveAs (CurrentProject.Path & "\" & rs!Fullname & "_Doc.Doc") rs.MoveNext Loop 'LWordDoc.Application.Documents(rs!Fullname & "_Doc.Doc").Save 'LWordDoc.Quit 'LWordDoc.ActiveDocument.SaveAs (rs!Fullname & "_Doc.Doc") LWordDoc.Quit Set LWordDoc = Nothing 'ErrHandler: ' If Err.Number = 3021 Then Resume Next End Sub  
جعفر

السلام عليكم 🙂
 
للأسف الشديد ، مو كل شيء ممكن يتحقق بإستعلام واحد !!
 
نعمل استعلام لعملية البيع ، واستعلام لعملية الشراء ، ثم نربط هذين الاستعلامين في استعلام ثالث واللي نحصل فيه النتيجة

.
والنتيجة

.
جعفر
1078.Database2.accdb.zip

وعليكم السلام 🙂
 
تفضل ، هذا التعديل على الوجدة النمطية 
Public Function FileName(iPath_In As String, iCondition As Variant) Dim fdr As String FileName = iPath_In & "No.jpg" fdr = Dir(iPath_In & iCondition & ".*") Do While fdr <> "" FileName = iPath_In & fdr fdr = Dir Loop End Function  
جعفر

في مشكلة في صيغة jpeg ، يمكن لأنها 4 حروف ، ما ادري !!

.

.

.
جعفر
 
1074.1.Worker.mdb.zip

في اعدادات الحقل ، سواء في الجدول او النموذج ، اكتب في التنسيق: dd/mm/yyyy

 
جعفر

وعليكم السلام 🙂
 
يمكن عمله بصيغة رقم:

 
وصيغة نص 🙂
 
جعفر

وعليكم السلام 🙂
 
في الحدث بعد تحديث الحقل "الحالة الزوجية" ضع هذا الكود (ما يهمك ، الكود هنا مقلوب ، بس في VBE بيطلع صح 🙂 ) :
if me.[الحالة الزوجية]="اعزب" then me.[عدد الاطفال].visible=false else me.[عدد الاطفال].visible=true end if  
جعفر
 

شغلك تمام ، بس !!
 
1. ما عندك عرض كافي ، فصغّر عرض الحقول ،
2. قلل من عرض مسافات اليمين واليسار في الطابعة ،
3. استعمل معاينة التقرير ،

.
🙂
جعفر
1064.جعفر اوفسنا.accdb.zip

وعليكم السلام 🙂
 
انقر على الكائن بالفأرة اليمين ،
ثم اختار تحويل الى

 
جعفر

السلام عليكم 🙂
 
لما تعمل الماكرو/ المضمن ، يستطيع الاكسس انه يحوله الى كود ، بأحد هذه الازرار في الدوائر الحمراء:

.
جعفر

وعليكم السلام 🙂
 
حيالله اخوي محمد 🙂
 
في النموذج/التقرير المستمر ، لا يمكن التفريق بين الحقول إلا عن طريق التنسيق الشرطي ،
وعليه ، في الحاله اللي تريدها ، تقدر تخلي لون الخط في حقل "حاله" لونه ابيض ، فلا تستطيع ان ترى شيء ، عند طباعة التقرير على ورق ابيض🙂
ولكن لا تستطيع ان تجعل حقل اطول/اعرض من الاخر !!
 
وتستطيع كذلك استعمال iif ، بحيث في الحاله اللي تريدها ، يجعل حقل "حاله" فارغ :
Status1: iif(me.Namee="AA" or me.Namee="AB","",[status]) سواء في استعلام التقرير ، او في التقرير نفسه 🙂
 
جعفر

السلام عليكم 🙂
 
مجموعة ملاحظات لوسمحتوا 🙂
ورجاء فكروا ان الجدول به  20 الف سجل فما فوق 🙂
 
1. لسرعة عمل الاستعلام ، فيجب ان يكون الحقل الذي به معيار ، مفهرس ، وإلا فالاستعلام سيكون بطيء ، وحقل المحسوب لا يمكن عمل فهرسه له ،
2. بالنسبة الى طريقة عمل تنسيق التاريخ ، والتي يجب ان لا تتغير بتغير اعدادات كمبيوتر العميل ، هذه الطريقة مضمونه بأنها تعمل على جميع الاعدادات:
.
3. الامر DCount بطيء بطبيعته ، لذلك يمكنك ان تعمل استعلام آخر للـ Table2 Query ، يكون استعلام مجاميع ، ينفذ المطلوب بدل امر Dcount ، ثم تربط هذا الاستعلام بالاستعلام الذي انت فيه ، وتأذخذ القيمة المطلوبة من استعلام المجاميع (نعم تصير ، وخذ وقتك ، فأحد اصدقائي ارسل لي برنامجه اللي فيه حوالي 100 الف سجل ، والاستعلام كان يحتاج وقت تناول وجبة العشاء !! ، وعملت التعديل اللي اخبرتك ، واصبح الوقت جدا قليل 🙂 )
4. الامر DCount بطيء بطبيعته ، اذا كلً ولابد ، فيمكنك جعله اسرع هكذا :
بدل =DCount("[ID]";"[Table2 Query]";"[Date2]=#" & Format([Date2],"yyyy/mm/dd") & "#") استعمل =DCount("*";"[Table2 Query]";"[Date2]=#" & Format([Date2],"yyyy/mm/dd") & "#")  
جعفر
 

وعليكم السلام 🙂
 
بالمعلومات اللي عندنا ، تفضل :
dim rst as dao.recordset dim RC as integer dim i as integer set rst=me.recordsetclone rst.movelast:rst.movefirst:RC=rst.recordcount docmd.gotorecord,,acfirst for i=1 to RC if me.YesNoField =-1 then docmd.openreport me.ReportName end if docmd.gotorecord,,acnext next i rst.close: set rst=nothing  
جعفر

السلام عليكم 🙂
 
أخي الوزير قام بالعمليات مرتين، فلهذا السبب يأخذ برنامجه وقت لعرض النتائج ،
وانا عملت تغيير في الاستعلامات فقط ، وابقيت واستعملت نفس وحدته النمطية ، ونتيجتي كانت اسرع 🙂
 
استعمل الاستعلام qry_Results_New 🙂
 
وعيدكم مبارك 🙂
 
جعفر
1057.Lab 2019-waz.accdb.zip

وعليكم السلام
 
اولا وقبل كل شيء ، يجب عليك تغيير تصميم جدول "المتقدمين" (حاليا تصميمه يناسب الاكسل) ، حتى يكون بطريقة قواعد البيانات الصحيحة ، والذي سيوفر عليك الكثير من الوقت لاحقا ،
لذا عملت لك التعديل في الجدول tbl_Training

.
انت محتاج تعمل استعلام لكل جهة (يعني 3 استعلامات) ، ثم تستعمل الامر Union لتجمع الاستعلامات الثلاث في استعلام واحد ،
ولكن المشكلة هي العدد المطلوب ، فلا يمكننا ان نجعل العدد رقم متغير في الاستعلام ، وهو ما يشار الى بـ TOP n (اذا العدد معروف مسبقا ، فالاستعلامات الثلاث سهله ، ثم نعمل استعلام Union يجمعها) ،
لذا وجب علينا ان نعمل الاستعلامات في الكود
Private Sub cmd_Training_Records_Click() mySQL1 = "SELECT TOP " & Forms!Q1!iSchool & " الوقت, الاسم, الجهة, الدورة" mySQL1 = mySQL1 & " FROM tbl_Training" mySQL1 = mySQL1 & " WHERE الجهة = 'مدرسة' And الدورة ='" & [Forms]![Q1]![T1] & "'" mySQL1 = mySQL1 & " ORDER BY الوقت" 'Debug.Print mySQL1 mySQL2 = "SELECT TOP " & Forms!Q1!iAdmin & " الوقت, الاسم, الجهة, الدورة" mySQL2 = mySQL2 & " FROM tbl_Training" mySQL2 = mySQL2 & " WHERE الجهة = 'إدارة' And الدورة ='" & [Forms]![Q1]![T1] & "'" mySQL2 = mySQL2 & " ORDER BY الوقت" 'Debug.Print mySQL2 mySQL3 = "SELECT TOP " & Forms!Q1!iOffice & " الوقت, الاسم, الجهة, الدورة" mySQL3 = mySQL3 & " FROM tbl_Training" mySQL3 = mySQL3 & " WHERE الجهة = 'مكتب' And الدورة ='" & [Forms]![Q1]![T1] & "'" mySQL3 = mySQL3 & " ORDER BY الوقت" 'Debug.Print mySQL3 mySQL_union = mySQL1 & " union all " & mySQL2 & " union all " & mySQL3 'Debug.Print mySQL_union Me.f1.Form.RecordSource = mySQL_union Me.f1.Form.OrderBy = "الجهة, الوقت" Me.f1.Form.OrderByOn = True End Sub .
ويكون الاستعلام الاخير هو مصدر بيانات النموذج الفرعي

.
جعفر
837.الدورات.accdb.zip

تفضل
 
 
Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error GoTo err_Form_KeyDown temp_MYn1 = Me.sfrm_Search!MYn1 Select Case KeyCode Case vbKeyDown Me.sfrm_Search!MYn1 = 0 I_went = "Down" Me.sfrm_Search.Form.RecordsetClone.MoveNext Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf KeyCode = 0 Case vbKeyUp Me.sfrm_Search!MYn1 = 0 I_went = "Up" Me.sfrm_Search.Form.RecordsetClone.MovePrevious Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf KeyCode = 0 Case vbKeyReturn Me.sfrm_Search.Form.RecordsetClone.FindFirst "[Rajmsanf]='" & Me.sfrm_Search!MYn1 & "'" DoCmd.OpenForm "ادارج بفاتوره المبيعات" Forms![ادارج بفاتوره المبيعات]![رقم الصنف] = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf Forms![ادارج بفاتوره المبيعات]![اسم الصنف] = Me.sfrm_Search.Form.RecordsetClone!NaEMP Forms![ادارج بفاتوره المبيعات]![الكميه] = Me.sfrm_Search.Form.RecordsetClone!Arsid Forms![ادارج بفاتوره المبيعات]![السعر] = Me.sfrm_Search.Form.RecordsetClone!sarabaih Me.sfrm_Search.Form.RecordsetClone.Delete KeyCode = 0 End Select Exit_Form_KeyDown: Exit Sub err_Form_KeyDown: If Err.Number = 2113 Or Err.Number = 3021 Then If I_went = "UP" Then Me.sfrm_Search.Form.RecordsetClone.MoveNext Else Me.sfrm_Search.Form.RecordsetClone.MovePrevious End If Me.sfrm_Search!MYn1 = temp_MYn1 Resume Exit_Form_KeyDown Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub  
جعفر
737.215.accdb.zip

تفضل
 
تستطيع ان تتحكم في مدة التأخير ، والتي وضعتها انا لمدة 10 ثوان حسب طلبك
Private Sub cmd_Open_All_Click() Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC Application.FollowHyperlink rst!Site PauseTime = 10 ' Set duration in seconds. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop rst.MoveNext Next i rst.Close: Set rst = Nothing End Sub  
جعفر

تفضل
 
وهذا الكود الذي يقوم بتنفيذ حركة زر السهم الى اعلى والى اسفل:
Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error GoTo err_Form_KeyDown temp_MYn1 = Me.sfrm_Search!MYn1 Select Case KeyCode Case vbKeyDown Me.sfrm_Search!MYn1 = 0 Me.sfrm_Search.Form.RecordsetClone.MoveNext Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf KeyCode = 0 Case vbKeyUp Me.sfrm_Search!MYn1 = 0 Me.sfrm_Search.Form.RecordsetClone.MovePrevious Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf KeyCode = 0 End Select Exit_Form_KeyDown: Exit Sub err_Form_KeyDown: If Err.Number = 2113 Or Err.Number = 3021 Then Me.sfrm_Search!MYn1 = temp_MYn1 Resume Exit_Form_KeyDown Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub  
جعفر
727.4.الاستاذ جعفر.accdb.zip

السلام عليكم
 
 
سأستخدم عمل أخي شفان ، واقوم بالتعديل عليه
 
 
في الجدول ، انا لم اغير نوع الحقل الى تاريخ ،
وانما استعملت الامر CDate في استعلامات اخي شفان ، لتحويل النص الى تاريخ:

.
ولربط هذا الاستعلام (حقل Date هنا اصبح تاريخ) بالجدول (حقل Date لا يزال نص) ، فلا يمكن ربط الحقلين في استعلام ،
لذا عملت استعلام qry_enterans_absent للجدول enterans_absent ، وفيه غيرت الحقل الى تاريخ ،
وربطت الاستعلامين اعلاه في الاستعلام Q2 ، والذي يحتوي على النتائج المطلوبه
 
جعفر
729.new work.accdb.zip