jjafferr

وعليكم السلام هل قصدك تنسيق التاريخ؟ جعفر

شكرا اخي مرشد على هذا الاطراء جعفر

تفضل النموذج "D'elimination" ومصدر بياناته الجدول "BORDEREAU D’ELIMINATION D’ARCHIVES" مليئين بحروف non-unicode ، وحسب لغة هذه الحروف ، تحتاج اعدادات وندوز خاصة بها ، وكذلك اسم احد الحقول في الجدول غلط (والذي ينتهي بنقطتين : ). عندك حلين: 1. ان تغير اعدادات الوندوز عندك الى الفرنسية (المادة رقم 4) : . 2. او مثل ما عملت لك انا ، وهو تغيير جميع حروف (اسماء الحقول ، وليس تسميتها) الى الانجليزية ، كما هو الحال مع النموذج "De versement" ومصدر بياناته "BORDEREAU DE VERSEMENT DARCHIVES". جعفر 819.zip

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

تم تعديل المرفق في مشاركتي السابقة ، فجرب الآن لوسمحت جعفر

وعليكم السلام المشكلة لما يكون عندك اكثر من فاتورة بنفس الرقم!! البرنامج بيأخذ اول فاتورة فقط . وهذا الكود على حدث "عند تحميل" النموذج frmEdrajSenfrm Private Sub Form_Load() On Error GoTo err_Form_Load Me.cmd_Search2.Enabled = False 'هذه قيمة الفاتورة من النموذج الرئيسي A = Forms!frm_Recall_sales!n3 Dim rst As DAO.Recordset 'نأخذ بيانات النموذج الفرعي في الذاكرة Set rst = Forms!frm_Recall_sales!frm_mr.Form.RecordsetClone 'نذهب لآخر سجل ، ثم نرجع لأول سجل ، حتى تكون السجلات جميعا في الذاكرة rst.MoveLast: rst.MoveFirst 'عدد السجلات RC = rst.RecordCount 'اذا لا توجد سجلات ، اخرج من الكود If RC = 0 Then GoTo Exit_Form_Load 'نطوف بجميع سجلات النموذج الفرعي For i = 1 To RC 'اذا كان الجزء الايمن من فاتورة النموذج الفرعي تساوي رقم الفتورة في النموذج الرئيسي If Right(rst!Rjmfatwra, Len(A)) = Val(A) Then 'انقل البيانات Me.Rjmfatwra = rst!Rjmfatwra Me.Rajmsanf = rst!Rajmsanf 'النموذج الفرعي لا يحتوي على اسم الصنف ، وانما رقم الصنف فقط 'لذا يجب ان نأخذ رقم الصنف لى جدول الاصناف ونستخرج من اسم الصنف Me.Sanf = DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]=" & rst!ID_Sanf) Me.Alkmiah = rst!Alkmiah Me.Price_Sales = rst!Price 'لا يوجد داعي لمراجعة بقية سجلات النموذج الفرعي ، فلنخرج من الكود GoTo Exit_Form_Load End If 'اذهب الى السجل التالي rst.MoveNext Next i Exit_Form_Load: 'لإزالت البيانات من الذاكرة المؤقتة rst.Close: Set rst = Nothing Exit Sub err_Form_Load: If Err.Number = 3021 Then 'No Records Resume Exit_Form_Load Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 818.المرتجع.mdb.zip

وماهي المعادلة 1. مجموع وقت الفترات 2. ومتوسط الوقت واريدك تأخذ البيانات من برنامجك ، وتعطيني المعادلات ، ونتائجها. جعفر

هل المشكلة في كمبيوتر واحد ، او لما تستعمل كمبيوتر آخر؟

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

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

عفوا انزلت البرنامج البارحة ولم افهم المطلوب!! يا ريت مثال لوسمحت جعفر

وانا عملت الاصلاح ، ولكن ما اصلح البرنامج جعفر

وعليكم السلام المشكلة هي وجود وحدة نمطية فيها عطب ، اخي مرشد تغلب عليها بطريقته ، ولكن ، ولكي نتأكد من إزالة المشكلة من جذورها ، فيجب ان تعمل قاعدة بيانات جديدة ، ثم تستورد لها جميع كائنات البرنامج السابق. جعفر New_DB.zip

هذا الرابط يشرح الطريقة بالصور جعفر

وعليكم السلام تفضل Private Sub text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.text2.Visible = True Me.text2.SetFocus Me.text1.Visible = False End Sub Private Sub text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.text1.Visible = True Me.text1.SetFocus Me.text2.Visible = False End Sub جعفر

لأن اسم الموضوع كان لا علاقة له بمضمون الموضوع ، فقمت بتعديله ، ودوختك

لا يوجد داعي لفتح موضوع جديد ، رجاء تكملة الموضوع هنا جعفر

اخي الشربيني ، هل جربت المرفق؟ جعفر

تفضل عملت لك اسم المسابقة بطريقتين ، فاختار اللي يناسبك . . جعفر 815.مثال.accdb.zip

السلام عليكم انا كنت متابع الموضوع من البداية ، وقبل اي رد ، والحمدلله ، الاعضاء على قدر المسؤولية بإلتزامهم بقوانين المنتدى ، والمُثل الاخلاقية ، فلا يرى احدنا بكسر قفل برنامجه عن طريق اشخاص آخرين ، هذا لا يعني ان صاحب السؤال ليس مُحق في طلبه ، ولكن قوانين المنتدى لا تسمح بالخطوة التالية ، وهي فك كلمة السر. يُقفل. جعفر

حياك الله اخوي محمد جعفر

الحمدلله انك قدرت تخلص العمل

السلام عليكم في موضوعك السابق . انا قلت: . فإذا كان برنامجك بصيغة accde او mde ، فالاكسس يحتفظ بالكود بصورة لا يمكننا رؤيته ، ولو ان السيد جمال له حديث في هذا الموضوع . اما اذا كان برنامجك بصيغة accdb او accdr او mdb ، فنعم يمكن فك كلمة السر والدخول في الكود ، ولكن ، عن طريق محترف قاصد ان يدخل في الكود بأية طريقة ، وانا لست منهم جعفر

وعليكم السلام أخوي علي تفضل هذا الرابط ، ردا على سؤالك جعفر

السلام عليكم من تجربتي ، وبسبب اختلاف اعدادات الوندوز ولغاته ، توصلت لعمل جدول خاص للاشهر tbl_Months ، ممكن اعدادات الوندوز تظهر الشهر بصيغة December ، او ديسمبر ، او كانون الاول . . ولكنك تريد ان يظهر عندك الشهر بأحد هذه الصيغ ، بغض النظر نظام اي كمبيوتر يعمل عليه برنامجك ، فيمكنك قراءة الطريقة التي تريدها من الجدول ، كما هو واضح في المثال . وهذا الكود كمثال فقط ، عن طريقة مناداة الحقول من الجدول: Private Sub myDate_AfterUpdate() 'display the dates based on the system setting Me.Date_1_System = Format(Me.myDate, "dddd dd/mm/yyyy") Me.Date_2_System = Format(Me.myDate, "dddd dd, mmm yyyy") Me.Day_System = Format(Me.myDate, "dddd") Me.Month_System = Format(Me.myDate, "mmmm") ' 'use the following Functions to get the integer number of: 'Today= 22 December 2017 'Day(Today) = 22 'Weekday(Today) = 6 'Friday 'Month(Today) = 12 'December 'Year(Today) = 2017 ' Me.Day_table_Arabic = DLookup("[Days_Arabic]", "tbl_Months", "[Months_Number]=" & Weekday(Me.myDate)) Me.Day_table_English = DLookup("[Days_English]", "tbl_Months", "[Months_Number]=" & Weekday(Me.myDate)) Me.Month_Table_Georgian = DLookup("[Months_Georgian]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Month_Table_Iraqi = DLookup("[Months_Iraqi]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Month_Table_English = DLookup("[Months_English]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Georgian = DLookup("[Months_Georgian]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Georgian = Day(Me.myDate) & " " & Me.Date_Table_Georgian & " " & Year(Me.myDate) Me.Date_Table_Iraqi = DLookup("[Months_Iraqi]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Iraqi = Day(Me.myDate) & " " & Me.Date_Table_Iraqi & " " & Year(Me.myDate) Me.Date_Table_English = DLookup("[Months_English]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_English = Day(Me.myDate) & " " & Me.Date_Table_English & " " & Year(Me.myDate) End Sub وبعدها توسعت في الجدول واستفدت منه لأشياء اخرى جعفر tbl_Months.mdb.zip