Eng.Qassim

استخدم كود استاذ موسى ..لان اعتقد اكسس 2010 لايستخدم الفاصلة المنقوطة

ماهي نسخة الاوفيس لديك؟

على راسي..بس الجدول كبير جدا ولا اعرف حيثياته او كيف ممكن ربط الجداول لكن سؤالي عن مخرجات التقرير مثلا ؟ تحتاج الى ورقة عرضها متر سارى مايممكنني عمله ان سمح وقتي ..لكن يفضل ان تطرح تساؤلاتك في المنتدى وعلى الرحب والسعة

وعليكم السلام اخي ابو هالة سؤال بريء..انت شو جابك على هيك جدول وانت من الجزائر؟☺️ على كل حال ..يوجد نقص في قوس الغلق IIf([mon]>0 And [days]>0;("الضريبة" & "=" & [text _bb] & "-" & [tax_old] & "=" & [text _bb]-[tax_old]);0) ثانيا انت محمل الجدول اكثر من طاقته في حقل محسوب وهذا مما لايفضله المبرمج..الجدول لديك فيه مشكلة ولايقبل اضافة اي حقل (لا اعلم لماذا) اقتراحي ان تعمل استعلام للحقول المحسوبة وتضيف لها الكود اعلاه انظر للمرفق بعد عمل ضغط واصلاح له لان كان حجمه كبير جدا Database4.rar

والله مايفتح عندي .. عندي اوفيس 2013 وندوز 7 -64

اعتقد ان اجابة استاذ جعفر هذه Private Sub Item_LostFocus() Me.Barcodenumber.SetFocus End Sub لكن مالذي تقصده بهذه العبارة ؟

بصراحة انا بفرح لما اشوف مشاركاتك استاذ محمد .. لانها تفتق الاذهان كما يقول استاذنا جعفر

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

استخدم هذا الكود DoCmd.OpenReport "MyReport", acViewPreview, , "ID =" & "'" & Me.ID & "'", acDialog

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

فعلا استاذ موسى ..انا فهمتها انه لو كانت سنة التعيين 2000 يعني النتيجة 2003 وبهذا تتحول -3 الى +3

جزاك الله خيرا اخي العزيز @أبو عبدالله الحلوانى

عذرا ..انظر للمرفق الان سيكون رصيد اول المدة في كل سجل جديد = الارصدة الداخلة +رصيد اول المدة - الارصدة الخارجة حاول ان توضح اكثر اذا لم يكن المطلوب رصيد - Copy.accdb

وعليكم السلام عسى ان يكون ماتريده رصيد.accdb

الان يعمل حسب الشرط الذي تختاره اوقفت التنسيقات لشيت اكسل لانها توقف البرنامج عندي ..يمكنك اعادتها T2Q - Copy.accdb

الشكر لله اولا ولكم ثانيا استاذنا القدير

طبعا اخي لايعمل ..قم بتغيير الجملة [Formscustomer_account_$]![Date_To] الى [Forms]![customer_account_$]![Date_To]

حقل تم /لم يتم غير موجود في الفلترة ..قم بتغيير اسم الكومبو في النموذج الرئيس الى pay1 ثم اضف الكود التالي في نهاية اكواد الفلترة If Not IsNull(Me.Pay1) Then varFilter = (varFilter + " AND ") & "[pay] Like '" & Me.Pay1 & "'" End If وسيعمل عندك التصدير

هذه نواتج الفلترة

اليس هذ هو ناتج التصفية ؟ الكود القديم شغال معاك بالتصفية التي تريدها

انا اللي بشكر حضرتك لانك جعلتني احصل على الدعاء بالتوفيق يارب

اضغط shift+open

وعليكم السلام اجعل التنسيق الشرطي هكذا InStr([notes2];"اعتذار") او يمكن عمل موديول يتم استدعاءه عند فتح النموذج مثلا ...لان طريقة التنسيق مطولة Public Sub colCtrlReq(frm As Form) Dim setColour As String setColour = RGB(175, 175, 175) Dim ctl As Control For Each ctl In frm If ctl.ControlType = acTextBox _ Or ctl.ControlType = acListBox Then If InStr(ctl, "اعتذار") <> 0 Then ctl.BackColor = setColour End If End If Next ctl Set ctl = Nothing End Sub ويتم استدعاءه بهذه الطريقة Call colCtrlReq(Me)

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

لم افهم عليك اخي @محمد احمد لطفى حينما تكتب 1 بالنص الاول والنص الثاني صفر فالناتج = 10 وهو يقوم بما اسميه توحيد الخلايا وليس تجميع اما اذا اردت الجمع بين الخليتين فالناتج حسب الكود Dim a, b As Single a = Me.aa.Value b = Me.bb.Value Me.ee.Value = a + b مالذي تريده بالضبط ؟