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