jjafferr

تفضل 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 جعفر

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

طلبك غير واضح!! وعلى العموم ، نحن بهذه الطريقة خرجنا عن اصل الموضوع الذي تم الوصل لحل له ، فرجاء تعمل لك موضوع جديد ، ولكن اشرح فيه المطلوب وبالتفصيل ، وبمثال جعفر

وعليكم السلام 1. تختار جميع الحقول ، 2. تختار لون الخلفية الذي تريده اذا كان الحقل فيه قيمة ، وهنا انا اخترت الاخضر ، وتلون الحقول كلها ، . 1. واثناء اختيار جميع الحقول ، 2. انقر على زر التنسيق الشرطي ، 3. ادخل هذه القيمة ، و ضع الرمز ' مرتين (يعني هذا ليس الرمز " ) . والنتيجة: . وللأمانه العلمية ، فانا اتبعت الطريقة من هذا الرابط: https://stackoverflow.com/questions/10703461/is-null-conditional-formatting-ms-access-forms جعفر

انا اوضحته في الصورة المرفقة في مشاركتي السابقة ، وعملت تحتها خط بالاحمر، لا تضاف ، وانما تستبدل ، في اي مكان في الكود او الاستعلام ، لا تستعمل usys-invoicesale وانما استعمل [usys-invoicesale] ، وطبعا في الاستعلام usys_account ونصيحتي ، واذا عندك مجال والبرنامج في بدايته ، فغير اسم الاستعلام usys-invoicesale الى usys_invoicesale وابدا كتابة الاستعلام usys_account من جديد. جعفر

سيدي الفاضل ابو عبدالله عندك مشكلتين: 1. في الاستعلام usys_account ، عندك كلمة usys مكررة مرتين ، وهذا خطأ مطبعي ، 2. ولكن المشكلة الاكبر والتي لا يعرفها الكثير من المبرمجين ، وهو عدم استعمال علامة "ناقص" في مسميات كائنات الاكسس (لاحظ اسم الجدول usys-invoicesale ) ، واذا اردت استعمالها كلٌ ولابد ، فيجب ان تضع هذا المسمى بين قوسين مربعين في الكود ، هكذا: [usys-invoicesale] جعفر

وعليكم السلام اذا كان اسم الحقل: A ، فغيّره الى A1 مثلا ، ونفترض ان مصدر الحقل هو A كذلك ، فغيّره الى: =nz([A];0) جعفر

وعليكم السلام في النموذج TestF نضيف الحدث على التحميل ، و وحدة نمطية لحساب عدد الحقول: Function Count_Fields() Dim rst As DAO.Recordset 'Set rst = Forms!main!Datamasterform!TestF.Form.RecordsetClone Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount K1 = 0: K2 = 0 For i = 1 To RC If rst!Country = "اسكندرية" Then K1 = K1 + 1 End If If rst![on or of] = -1 Then K2 = K2 + 1 End If rst.MoveNext Next i Me.Count_Esk = K1 Me.Count_True = K2 Me.Count_False = RC - K2 End Function Private Sub Form_Load() Call Count_Fields End Sub . وعند الضغط على زر التصفية ، ننادي الوحدة النمطية اعلاه: Call Form_TestF.Count_Fields جعفر 660.2.Test2006.mdb.zip