jjafferr

وعليكم السلام اخوي ابو ياسين لو تابعت الموضوع بشكل دقيق ، بتلقى ان انا لم ارد على السؤال ، لذا يمكن للشباب اصحاب الاجابه ان يردوا عليك جعفر

عنوان مخالف

تفضل . جعفر

وعليكم السلام ورحمة الله وبركاته اذا اردت الفرز في النموذج ، فيجب ان تعمل استعلام ، وتعمل فيه الفرز المطلوب ، ثم تجعل هذا الاستعلام مصدر بيانات للنموذج، واما اذا اردت الفرز في التقرير ، فيجب ان تختار حقول الفرز من المجموعات والفرز: . جعفر

وعليكم السلام ورحمة الله وبركاته جرب احدى الطريقتين ، حسب نوع حقل catcod في الجدول: اذا كان نوع الحقل رقم payI=dlookup("[PriceBuy]","[category]","[catcod]=" & me.catcod) او اذا كان نوع الحقل نص payI=dlookup("[PriceBuy]","[category]","[catcod]='" & me.catcod & "'") جعفر

تفضل 947.ترحيل الطلبيه.accdb.zip

حياك الله اخوي حربي نعم ، هذا خطأ من جانبي ، فقد قرأت ملاحظتك في النموذج بطريقة غير صحيحة 1. احذف استعلام التحديث ، 2. استعمل هذا الكود على زر التحديث: Private Sub cmd_update_a_tlbia_Hr_Click() Dim rstS As DAO.Recordset Dim rstD As DAO.Recordset Set rstS = Me.TB.Form.RecordsetClone Set rstD = CurrentDb.OpenRecordset("Select * From a_tlbia_Hr") rstS.MoveLast: rstS.MoveFirst RCs = rstS.RecordCount Me.TB.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To RCs criti = "[ID_Sanf]='" & Me.TB!ID_Sanf & "'" criti = criti & " And" criti = criti & " [Rjmfatwra]='" & Me.TB!Rjmfatwra & "'" rstD.FindFirst criti 'rstD.FindFirst "[ID_Sanf]='" & Me.TB!ID_Sanf & "' And [Rjmfatwra]='" & me.TB!Rjmfatwra & "'" If rstD.NoMatch = False Then rstD.Edit rstD!Alkmiah_mtob = Me.TB!Alkmiah_mtob rstD!mjmo = Me.TB!mjmo rstD.Update End If DoCmd.GoToRecord , , acNext Next i DoCmd.GoToRecord , , acFirst rstS.Close: Set rstS = Nothing rstD.Close: Set rstD = Nothing End Sub جعفر

وعليكم السلام اخوي عمر جرب هذه الطريقة: افتح الاكسس (مو قاعدة بياناتك ، وإنما برنامج الاكسس) ، ثم اختار قاعدة بياناتك ، واختار Open Exclusive . جعفر

تفضل اخوي حربي نسخة من برنامج ابو زاهر بصيغة 2003 جعفر 947.ترحيل الطلبيه.mdb.zip

وعليكم السلام اخوي ابو زاهر تفضل: هذا استعلام تحديث الحقلين في الجدول a_tlbia_Hr ، وبمعيار الفاتورة ورقم الصنف . وهذا كود حدث نقر زر التحديث: Private Sub cmd_update_a_tlbia_Hr_Click() DoCmd.SetWarnings False DoCmd.OpenQuery "qry_Update_Alkmiah_mjmo" DoCmd.SetWarnings True End Sub . جعفر 947.ترحيل الطلبيه.accdb.zip

وعليكم السلام عند البحث في المنتدى ، حصلت لك على: و جعفر

وعليكم السلام تفضل هذا الرابط به طريقة سهلة ، ولكن قم بتغيير الامر من Dlookup الى DCount جعفر

السلام عليكم ورحمة الله وبركاته عندي برنامج في احد المؤسسات ويعمل تمام ، ولكنهم اضطروا لعمل فورمات للجهاز وتم تنصيب الوندوز العربي ، وقاموا بعمل مجلد جديد للبرنامج ، وتغيير اسم البرنامج الى اللغة العربية. عند تشغيل البرنامج ، بدأ كود الواجهة FE بعمل ربط مع برنامج الجداول BE ، وظهرت لهم نافذة اختيار مكان وجود برنامج الجداول BE : . وبعد اختيار المسار والبرنامج ، ظهرت هذه الرسالة: . ثم هذه الرسالة: . وبعد النظر في هذه الصور ، اتضح لي ان هناك شيء غريب في الصورة (لاحظ السهم الاحمر) : . لاحظت وجود علامة استفهام في اسم برنامج BE ، لذا طلب من الشباب ان يقوموا بحذف علامة الاستفهام من الاسم ، وعليه حصلوا على هذه الرساله: . السؤال كان ، من اين اتى هذا الاسم ، والجواب انه من جدول MSysObjects ، ولكن وكما نرى من الصورة ادناه ان اسم البرنامج والمسار في الجدول صحيحين: . لذا اردت التأكد ، واردت ان ارى ما يراه الكمبيوتر ، فنسخت بيانات الحقل والصقتها في Notepad : . ولم الحظ اي شيء غريب ، ولكن ، Notepad يعمل على unicode و ansi ، لذا الصقت البيانات في صفحة كود VBA ، وحصلت على النتيجة التالية: . هذا يعني ان الوندوز العربي اضاف بعض الرموز لإسم البرنامج ، وبذلك لم يوجد تطابق بين اسم البرنامج BE وبيانات المسار التي يتوقعها برنامج الاكسس !! الحل الاسهل كان بتغيير اسم برنامج الجداول BE الى اللغة الانجليزية ، وتم حل المشكلة (او حذف ربط الجداول ، واعادة الربط مرة ثانية) ------------------------------------------------------- اضافة بتاريخ 12/11/2020 والامر غير مقتصر على عملية ربط قاعدة البيانات ، فقد نحصل على رسالة الخطأ التالية ، والسبب هو كما اشرنا اليه اعلاه : جعفر

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

وعليكم السلام☺️ اخذ نسخه منه ، ثم اعمل له ضغط واصلاح. جعفر

جرب المواضيع في هذا الرابط جعفر

تفضل او او . جعفر

وعليكم السلام واهلا وسهلا بك في المنتدى جرب هذا التعديل: =sum([نوع الاحازة]+[المجموع الاجازات]) جعفر

السلام عليكم تفضل اخوي حربي: هذه قاعدة بيانات مشاركتك الاولى، 1. في المجاميع ، استخدامك للتاريخ يجب ان لا تظهر نتائجه ، لذلك يجب ان يكون بالطريقة ادناه، 2. الحقل Sum_Mony نوعه "نص" (طبعا هذا غير صحيح ويجب تعديله من جانبك) ، وعلشان تحصل على مجموع حقل النص ، يجب ان تستعمل الامر Val اي تأخذ قيمة حقل النص: . والنتيجة . جعفر 945.Prog3.3.mdb.zip

السلام عليكم اخوي ابوخليل سبحان الله ، صرنا اثنين نشتغل على الموضوع انا استعمل المثال الاول. جعفر

تفضل . وهكذا اصبح الكود Private Sub أمر140_Click() Dim ctl As Control Str2 = "" For Each ctl In Me.التعديل.Controls If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox) Then If Len(ctl.Value & "") = 0 Or ctl.Value = 0 Then Str2 = Str2 & ctl.ControlSource & vbCrLf End If End If Next If Len(Str2 & "") <> 0 Then MsgBox "الحقول التالية فارغة" & vbCrLf & _ "للموظف " & Me.التعديل!نص161 & " " & Me.التعديل!نص62 & vbCrLf & vbCrLf & _ Mid(Str2, 1) Else MsgBox "جميع الحقول كامله، سيتم الان حفظ بيانات" & vbCrLf & _ "الموظف " & Me.التعديل!نص161 & " " & Me.التعديل!نص62 Me.Refresh End If End Sub جعفر 944.1.Nouveau Microsoft Office Access 2007 قاعدة بيانات.accdb.zip

يمكنك استخدام الكود التالي كذلك: Private Sub أمر140_Click() Dim ctl As Control Str2 = "" For Each ctl In Me.التعديل.Controls If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox) Then If Len(ctl.Value & "") = 0 Or ctl.Value = 0 Then Str2 = Str2 & ctl.ControlSource & vbCrLf End If End If Next If Len(Str2 & "") <> 0 Then MsgBox "الحقول التالية فارغة" & vbCrLf & vbCrLf & Mid(Str2, 1) Else Me.Refresh End If End Sub . والنتيجة . جعفر 944.Nouveau Microsoft Office Access 2007 قاعدة بيانات.accdb.zip

السلام عليكم اخي بلال رجاء مواصلة الموضوع في هنا، وعدم فتح موضوع جديد لنفس الموضوع، فهذا فيه تشتت للأفكار! وخصوصا ان معك من الاعضاء من يحاول مساعدتك، والكود الذي ارفقته هو كود الاخ @Mo3taz3zzat جعفر

السلام عليكم كان لي هذا الموضوع جعفر