snmdody

up

مشكور وما قصرت أخي ابو كورد لقد نبهتني لطريقة أفضل من عملية تنفيذ إستعلام الحاق ، ولكن عندي سؤال بسيط ، اليس الطريقة التي اوردتها انت تقوم بإضافة السجلات عن طريق DAO ? مع خالص تحياتي ،،

لقد قمت بكتابة الكود الموضح أدناه وقد عمل بطريقة صحيحة ، ولكن سؤالي هل هذا الكود صحيح من حيث كتابته ام لا ؟ Private Sub cmdSave_Click() Dim counter As Integer counter = Me.from - 1 Do Until counter = Me.To counter = counter + 1 DoCmd.SetWarnings False DoCmd.Ru…

Up

السلام عليكم ورحمة الله وبركاته .. وبعد ارجو المساعدة مشكورين في تصحيح الكود الموضح أدناه : Do While counter = Me.To counter = counter + 1 If counter = Me.To Then Exit Do End If DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO [DoLoop] ([Serial])VALUES ('" & …

المعذرة على الإلحاح

اخي الكريم ، هذا مثال قمت بإنزاله من هذا المنتدى ولا احفظ اسم صاحبه يحتوي على نفس الفكرة تحياتي sum_page.zip

Up

Up

هذا ما اعتدناه من مشرفنا العزيز مهند عبادي

up

هنا يجب أن يتدخل الأخ مهند عبادي لأنه هو من قام مشكوراً بعمل هذه الدالة بالتوفيق

آسف على الخطأ في كتابة الدالة (الخطأ في المسميات فقط) إعتمد هذا الكود ..... X = DCount("[FieldName1]", "Table", "[FieldName2] Between [Date1] AND [Date2]")

تفضل اخي الكريم .... X = DCount("[Field]", "Table", "[Field] Between [Date1] AND [Date1]") مع ملاحظة الاتي : FieldName1 = إسم حقل التاريخ في الجدول أو الاستعلام FieldName2 = اسم حقل التاريخ في الجدول أو الإستعلام الذي تريد مطابقة تاريخه بالذي موجود في النموذج …

اخي الكريم ، قم بإنشاء وحدة نمطية جديدة والصق بها هذه الدوال ... للعلم .. هذه الدوال من عمل الأخ مهند عبادي .. ' دالة التفقيط الآلي ' برمجة محمد مهند عبادي 2003 Function words(D As Double, Optional F1 As String = "واحدة", _ Optional F2 As String, Optional F3 A…

اشكرك جزيل الشكر على سرعة الرد وبارك الله فيك وفي أمثالك وهذا ما اعتدناه منك دائما

السلام عليكم ورحمة الله وبركاته .. وبعد ،، عند إستخدام الدالة التي قام بعملها الأخ مهند عبادي والخاصة بالتفقيط فهي تعمل بطريقة صحيحة في حال كانت الأعداد موجبة وتكمن المشكلة في حالة كون الأعداد سالبة فمثلاً إذا كان هناك مبلغ سالب مثل (- 88800) فيتم التفقيط كالت…

اخي الكريم حاول أن تكتب الشرط في الإستعلام بالطريقة التالية : بخصوص كود التحديث فحاول أن تكتب الكود التالي في حدث بعد التحديث للحقل الأول وليس الثاني : DoCmd.Requry "second" بدلاً عن الكود الذي كتبته وهو : me.second_combox.requry تحياتي

وهذه طريقه اخرى لكتابة الكود .. AgentFinanceByDate = DCount("[OperationOrder]", "Operation", "[OperationDate] Between #" & [txtDate] & "# AND #" & [txtToDate] & "#") والشكر لله أولاً ثم لهذا الرابط الذي تعلمت من خلاله كيفية الكتابة الصحيحة لهذا الكود .. http:/…

بارك الله في جميع من حاول مساعدتي