jjafferr

تفضل الشرح 🙂 . . . جعفر 1101.تجربة تقرير.accdb.zip

v[hx jvtr hglvtr hgwpdp ، يعني رجاء ترفق الملف الصحيح 🙂 جعفر

وعليكم السلام 🙂 في الواقع في امور ما يحتاج ان نعطيها اكثر من حجمها ، وإلا ، فالإحتمالات لا تنتهي !! هذا الجدول مثله مثل اي جدول ، Users مثلا ، اذا تم حذف هذا الجدول فماذا سيحصل للبرنامج !! هناك طريقتين بسيطتين بأتون على بالي الآن: 1. اول ما تفتح البرنامج ، تأكد عن وجود الجدول (الجداول الاساسية) ، اذا ما موجود ، اخرج من البرنامج بعد اعطاء رسالة بعدم وجود الجدول الفلاني الذي يعتمد عليه البرنامج ، بس المستخدم المسكين شو ممكنه يعمل!! 2. وبما انني اعرف انك لن تقبل بالطريقة اعلاه ، فاليك طريقة ثانية ، وهي ان تجعل هذا الجدول كما هو ، وتستعمله كل مكان في البرنامج ، وتعمل منه نسخة اضافية يبدأ اسمه Msys حتى يكون مخفي ، ولما تفتح قاعدة البيانات ، تتأكد من وجود الجدول كما هو ، وإلا ، فتقوم بنسخه من الجدول الاحتياط 🙂 طبعا بدلا عن جدول الاحتياط ، تقدر يكون عندك ملف txt تحتفظ به في البرنامج بطريقة Blob او كمرفق ، ولما يفتح البرنامج ، تستخدمه للتأكد من بيانات الجدول ، او وجود الجدول. قد تكون هناك طرق اخرى ، ولكني دائما اميل الى البساطة 🙂 جعفر

للأسف لا يمكن جعل النموذج المنقسم ، نموذج فرعي !!

عملت نسخة من النموذج الفرعي veiw_buy_invoice_ditail subform ، واسميته veiw_buy_invoice_ditail subform_Split ، ثم : اختار نوع النموذج Split Form . . ثم نختار ان يكون DataSheet في الاسفل: . ثم النتيجة: . والآن ، افعل به ما شئت 🙂 جعفر 1099..accdb.zip

هنا تجد شرح للبرنامج . هنا وضعت روابط اكثر لمثل هذه العملية . جعفر

السلام عليكم 🙂 وبعد تحدي ، وصلنا للمطلوب ان شاء الله 🙂 اضفت الحقول البرتقالية لتحسب عدد المرات الموجود فيها الرقم (من او الى) ، ويمكن جعل هذا الحقل مخفي ، الحقول الخضراء هي حقل محسوب في الجدول (موجود سابقا في البرنامج) . وهذا هو التنسيق الشرطي للحقل بالسهم الاحمر: . هذه الوحدة النمطية التي تقوم بالعمل ، 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

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 تفضل واطرح سؤالك هنا ، حتى يستفيد الجميع 🙂 جعفر

وعليكم السلام 🙂 هذه المعلومة محتاجة الى خبير اوراكل ، وانا لست منهم 🙂 بحثت في الانترنت وحصلت على الكثير من الروابط ، واخترت لك هذه: https://www.oracle.com/technetwork/database/migration/access-084991.html https://stackoverflow.com/questions/5020991/what-would-be-the-best-method-to-migrate-oracle-database-to-ms-access-using-java جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 المنتدى لتبادل الخبرات ، ومساعدة من يحتاج الى مساعدة ، والمعلومة عامة حتى يستفيد منها الجميع ، اما اذا اردت مساعدة خاصة ، ولإيميلك/رقمك الخاص ، فيمكنك وضح سؤالك في قسم الاعلانات الشخصية : https://www.officena.net/ib/forum/157-إعلانات-شخصية-للاعضاء-فقط-فى-مجال-الموقع/ قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف لذلك ، برجاء فتح موضوع جديد ، وتراعي فيه نقاط المشاركة اعلاه 🙂 جعفر

اخي الفاضل ، جوابك لا يفيدك ولا يفيدنا في حل مشكلتك !! لازم تخبرنا اللي عملته ، واين صادفتك المشكلة ، وايش نوع المشكلة ، واذا في رسالة خطأ ، فنريد نعرف هذه الرسالة ، وعلى اي سطر ، ووووو جعفر

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

هذا سجل جديد ، لأنك جئت الى هنا لإضافة سجل 🙂 جعفر

وعليكم السلام 🙂 احسن طريقة هي ، في مشروعك القديم ، قم بتغيير اسماء النماذج ، ثم بعد التأكد انها تعمل ، استوردها الى مشروعك الجديد 🙂 لتغيير اسم النماذج في جميع كائنات الاكسس (طبعا ما راح تعملها يدويا 🙂 ) ، استعمل احد هذه البرامج: بمقابل http://www.rickworld.com/products.html#Find and Replace 9.0 مجانا http://www.skrol29.com/us/vtools.php جعفر

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

وعليكم السلام 🙂 عند وضعك السؤال ، يجب ان تعرف انك الوحيد الذي يعرف كل تفاصيل برنامجك ، لذلك اعطي اكبر كمية من المعلومات ، وبالتفصيل الممل ، وبأمثلة بشكل صور او على الاكسل او وورد. في الوقت اللي انا اشوف هذا الموضوع ، هناك اكثر من 17 مشاهدة خلال 18 دقيقة ، ولكن لا احد رد عليك ، فهذا معناه ان السؤال غير واضح ومحتاج تفاصيل اكثر !! عندك حلين: 1. ان تأخذ من وقتك و "يجب ان تعرف انك الوحيد الذي يعرف كل تفاصيل برنامجك ، لذلك اعطي اكبر كمية من المعلومات ، وبالتفصيل الممل ، وبأمثلة بشكل صور او على الاكسل او وورد." وحينها ستحصل على اسرع جواب ، او 2. تكتب الموضوع بسرعة وبدون تفاصيل كافيه (مثل موضوعك الآن) ، وتنتظر تحصل على رد (مثل ردي) ، ولما تفضى مرة ثانية تكتب التفاصيل ، ولما افضى انا مرة ثانية وارجع للموضوع!! الخيار راجع لك 🙂 جعفر

1. النموذج الاول frm_1 فيه الحقلين a1 و a2 ، 2. قصدك وانت على النموذج الاول ، وفيه زر "cmd_Open_frm_2" ، تنقر عليه لتفتح النموذج الثاني frm_2 3. وعند فتح النموذج الثاني ، تأخذ قيمة a1 و a2 من frm_1 ، وتعطيهم الى b1 و b2 في النموذج frm_2 Private Sub cmd_Open_frm_2_Click() DoCmd.OpenForm "frm_2" Forms!frm_2!b1 = Forms!frm_1!a1 Forms!frm_2!b2 = Forms!frm_1!a2 DoCmd.Close acForm, Me.Name, acSaveNo End Sub . هذا نفس كلام اخي عبداللطيف ، ولكن بتفصيل اكثر 🙂 جعفر

اجعل الحقل ضيق : . . والتقرير . جعفر 1096.Dots.mdb.zip

تفضل 🙂 جعفر 1097.AutoKeys DataMacro close Form Report.zip

تفضل جعفر

وعليكم السلام 🙂 هذا الكود يقوم بالازم : =[iData] & " " & String(50-Len([iData] & " "),".") هذا الامر معناه اعمل 50 مرة ، الحرف/العلامة اللي بين "." string(50,".") . ولكن بسبب ان عرض الحروف ليس متساوي ، نرى الفرق بين الاسطر . جعفر 1096.Dots.mdb.zip

وعليكم السلام 🙂 انظر هذا الرابط جعفر

السلام عليكم 🙂 عملت نموذج جديد لإدخال بيانات القائمة ، غير مضمن ، والحقل اللي فيه كذلك غير مضمن . اضفت اسم هذا النموذج ، كنموذج تحرير لبيانات القائمة . انقر على القائمة ، حتى يفتح لك النموذج بالحقل الصحيح : . جعفر 1093.Ex2.accdb.zip

اذن يجب استيراد كائنات البرنامج الى برنامج جديد !! جعفر

السلام عليكم 🙂 مجهود تُشكر عليه ابا جودي 🙂 انظر هنا جعفر