jjafferr

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

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

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

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

تم دمج الموضوعين

وعليكم السلام هذا مجرد تنسيق تعمله في اعدادات الحقل في النموذج ، وسترى اللي تريده في نموذج اخي وضاح frmSales ، الحقل Percentage_Discount جعفر

جرب هذا المرفق لوسمحت 798.very1.mdb.zip

هل استعملت الكود الذي اعطيك؟ رجاء إعطاء مثال على المشكلة، لأني لم أرى مشكلة أخرى في برنامجك،

وعليكم السلام لكل واحد فينا قوته في مجال ما في البرنامج ، لذا ، لما لا ارى سؤال الموضوح واضح وبه امثله ، اتعداه الى السؤال التالي!! لذلك ، اجعل سؤالك في الموضوع في المنتدى ، وقم بشرح المطلوب بالتفصيل والامثلة ، وستجد ان شاء الله الاجابه سريعة انا لم اجد اي شيء خطأ في البرنامج ، ما عدا هذه التعديلات البسيطة Private Sub family_AfterUpdate() 'DoCmd.Requery "home" 'home = 1 Me.[home].Requery End Sub Private Sub Form_Current() Call family_AfterUpdate End Sub جعفر

انا وضعت هذا الشرط في ثاني سطر من الكود: Option Explicit ومعناه ، لا تسمح بإستعمال أي متغير ، قبل ان تعمل له Dim ، لكن ، ومثل ما العمانيين يقولون: الباب اللي يجيك منه ريح ، سده واستريح ، فإحذف هذا السطر جعفر

Why would we need a dll file, I thought it was a straight forward link between Access and SQL without any third party files!!

حياكم الله

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

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

تفضل تم تعديل الوحدة النمطية الى: Public Function Sum_Alkmiah(iMonth, iwerNumSenf) Sum_13 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=" & iMonth & " and Nwaha='13'") Sum_14 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=" & iMonth & " and Nwaha='14'") Sum_Alkmiah = IIf(Sum_13 > 0, Sum_13, 0) - IIf(Sum_14 > 0, Sum_14, 0) End Function . ومناداتها من حدث "الحالي" للنموذج الفرعي ، هكذا: Private Sub Form_Current() On Error Resume Next werSenf = Rajmsanf frshtxt Me.Parent.نص57 = DLookup("[Rsnf]", "Qryasnaf", "[Rajmsanf]='" & Me.Rajmsanf & "'") Me.Parent.نص61 = DLookup("[LastOfPrice]", "Query1", "[Rajmsanf]='" & Me.Rajmsanf & "'") Forms!frmSales!sh1 = Sum_Alkmiah(1, werNumSenf()) Forms!frmSales!sh2 = Sum_Alkmiah(2, werNumSenf()) Forms!frmSales!sh3 = Sum_Alkmiah(3, werNumSenf()) Forms!frmSales!sh4 = Sum_Alkmiah(4, werNumSenf()) Forms!frmSales!sh5 = Sum_Alkmiah(5, werNumSenf()) Forms!frmSales!sh6 = Sum_Alkmiah(6, werNumSenf()) Forms!frmSales!sh7 = Sum_Alkmiah(7, werNumSenf()) Forms!frmSales!sh8 = Sum_Alkmiah(8, werNumSenf()) Forms!frmSales!sh9 = Sum_Alkmiah(9, werNumSenf()) Forms!frmSales!sh10 = Sum_Alkmiah(10, werNumSenf()) Forms!frmSales!sh11 = Sum_Alkmiah(11, werNumSenf()) Forms!frmSales!sh12 = Sum_Alkmiah(12, werNumSenf()) End Sub جعفر 797.1.الشهور.mdb.zip

وكيف اقدر اشوف مبيعات شهر 11 و 12 ؟

تفضل ، فرق الاشهر فقط = datediff("m",Me.txtcount, Me.txtcounupgrade) جعفر

شو رسالة الخطأ؟

تفضل في الاستعلام QryDaily جعفر 797.المجموع3.mdb.zip

وعليكم السلام حياك الله اخي نبيل رجاء عمل سؤال جديد في المرة القادمة سبب حصولك على هذه النتيجة هي ان تنسيق الحقل عندك هو "رقم صحيح" او "طويل" (Integer or Long) ، هناك عدة طرق للحل: اعمل تنسيق الحقل "مزدوج عدد عشري" (Double) ، ثم اختار كم خانة عشرية تريد ، استخدم الكود التالي لتحديد النتيجة = Format(16 * 1.4 , "#.00") = Format([Field_Name] , "#.00") جعفر

السلام عليكم ضع هذا الكود في وحدة نمطية (تستطيع ان تضيفها مع اي وحدة نمطية اخرى عندك): Public Function Sum_Alkmiah(iwerNumSenf) 'الكود القديم 'A = IIf(DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 13 & "'") > 0, _ DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 13 & "'"), 0) _ - _ IIf(DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 14 & "'") > 0, _ DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 14 & "'"), 0) 'الكود الجديد Sum_13 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=5 and Nwaha='13'") Sum_14 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=5 and Nwaha='14'") Sum_Alkmiah = IIf(Sum_13 > 0, Sum_13, 0) - IIf(Sum_14 > 0, Sum_14, 0) End Function . ثم في الاستعلام تنادي الوحدة النمطية هكذا Sum_Alk: Sum_Alkmiah(werNumSenf()) جعفر

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

يا سيدي ، المشكلة ان رقم الفاتورة عندك "نص" ، والمعادلة التي اعطيتك هي اذا كان رقم الفاتورة "رقم" وكذلك كان الخطأ مني في الكود اعلاه ، فعند مناداة النموذج الفرعي ، يجب ان نضيف كلمة .Form. تفضل هذا التعديل ، بالاضافة انه عندك بقايا في نهاية الكود: Private Sub fatora_no_AfterUpdate() Me.fry_111.Form.Filter = "[id_fatora]='" & Me.fatora_no & "'" Me.fry_111.Form.FilterOn = True Me.fry_112.Form.Filter = "[fatora_no]='" & Me.fatora_no & "'" Me.fry_112.Form.FilterOn = True 'End If End Sub جعفر

وعليكم السلام اخي حسين الكود السابق يبحث عن اول سجل في النموذج الفرعي ، فانت قلت: . اما اذا كان قصدك تصفية النموذج الفرعي على اساس مربع نص النموذج الرئيسي ، فيمكنك استعمال الكود التالي : me.fry_111.filter= "[رقم الفاتورة]=" & me.tt1 me.fry_111.filteron= true me.fry_112.filter= "[رقم الفاتورة]=" & me.tt1 me.fry_112.filteron= true جعفر

وعليكم السلام يجب على كل جدول ان يحتوي على حقل ترقيم تلقائي ، فهذا مهم جدا للبرنامج ، وسرعته وقد عملت لك هذا الحقل في الجدول Tabl_Itinerary ، واختصرت استعلام عدم المطابقات ، واسميته qry_Diff_tbl_Itinerary_tbl_Itinerarytemp ، كود زري الحذف: Option Compare Database Option Explicit Private Sub cmd_Delete_With_Code_Click() Dim rstQry As DAO.Recordset Dim rstTbl As DAO.Recordset Dim RCqry As Integer Dim i As Integer Dim mySQL As String Set rstTbl = CurrentDb.OpenRecordset("Select * From Tabl_Itinerary") mySQL = "SELECT Tabl_Itinerary.Auto_ID, Tabl_Itinerarytemp.Num_Itinerary" mySQL = mySQL & " FROM Tabl_Itinerary LEFT JOIN Tabl_Itinerarytemp ON Tabl_Itinerary.[Num_Itinerary] = Tabl_Itinerarytemp.[Num_Itinerary]" mySQL = mySQL & " WHERE (((Tabl_Itinerarytemp.Num_Itinerary) Is Null));" Set rstQry = CurrentDb.OpenRecordset(mySQL) rstQry.MoveLast: rstQry.MoveFirst RCqry = rstQry.RecordCount For i = 1 To RCqry rstTbl.FindFirst "[Auto_ID]=" & rstQry!Auto_ID rstTbl.Delete rstQry.MoveNext Next i rstQry.Close: Set rstQry = Nothing rstTbl.Close: Set rstTbl = Nothing MsgBox "Done" End Sub Private Sub cmd_Delete_With_Query_Click() Dim rstQry As DAO.Recordset Dim rstTbl As DAO.Recordset Dim RCqry As Integer Dim i As Integer Set rstTbl = CurrentDb.OpenRecordset("Select * From Tabl_Itinerary") Set rstQry = CurrentDb.OpenRecordset("Select * From qry_Diff_tbl_Itinerary_tbl_Itinerarytemp") rstQry.MoveLast: rstQry.MoveFirst RCqry = rstQry.RecordCount For i = 1 To RCqry rstTbl.FindFirst "[Auto_ID]=" & rstQry!Auto_ID rstTbl.Delete rstQry.MoveNext Next i rstQry.Close: Set rstQry = Nothing rstTbl.Close: Set rstTbl = Nothing MsgBox "Done" End Sub جعفر 795.Qdel.accdb.zip