Eng.Qassim

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

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

استخدم هذا الكود 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 مالذي تريده بالضبط ؟

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

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

يا سلام عليك ...ايه الحلاوة دي لكن لماذا لم يقل .... فأنظر لأفعالهُ اللائي سَرَرْنَ ألوفُ ففيها تنبيه وتشديد ... رغم اني صفر باللغة العربية

1- مصدر بيانات الاستعلام (استعلام باجمالي فواتير الجملة بالدولار ) هو الجدول Sales_Invoice_main ولاحظ ان نوع البيانات ل Sales_Invoice_No = Number بينما الاستعلام customer account sub dollar Query الذي مصدر بياناته الجدول customer account sub dollar والذي نوع البيانات لرقم الفاتورة = short text يجب هنا توحيد نوع البيانات .. 2- اذا اردت الحاق نتائج الاستعلام (استعلام باجمالي فواتير الجملة بالدولار ) فيجب الحاقها الى الجدول customer account sub dollar وليس الى الاستعلام الناتج عنه فأذا فتحت استعلام الحاق تفتح لك نافذة (الحاق الى جدول ) وليس الى استعلام ... بالتوفيق يارب

السلامك عليكم.. ممكن سؤال؟...ماهي الفائدة من جدول customer_account_main الي يتم الحاق اسماء العملاء اليه طالما ان جدول العملاء موجود ومرتبط بنفس الجداول على كل حال..اذا اردت الحاق اسماء العملاء الغير موجودين بالجدول customer_account_main استخدم الكود التالي Private Sub Command33_Click() Dim strSQL As String DoCmd.SetWarnings False strSQL = "INSERT INTO customer_account_main ( Customer_Name ) " & vbCrLf & _ "SELECT Customer.Customer_Name " & vbCrLf & _ "FROM Customer LEFT JOIN customer_account_main ON Customer.Customer_Name = customer_account_main.customer_Name " & vbCrLf & _ "WHERE (((customer_account_main.customer_Name) Is Null));" DoCmd.RunSQL strSQL DoCmd.SetWarnings True End Sub

وعليكم السلام لو كنت مرفق مثال كان يسهل علينا بالوقت انظر للمرفق مقاس.accdb