Eng.Qassim

حسب معطياتك والكود السابق ...يكون الكود بالشكل التالي بصراحة لم اعمل على السيرفر سابقا ولا يمكنني التاكد اهم شي كود الاتصال تبعك Dim Con_Dest As New ADODB.Connection Dim Rs_Dest As New ADODB.Recordset Dim Str_SqlDest As String Dim Str_Sql As String Con_Dest.Open "dsn=yyyyy;uid=yyyyy;pwd=yyyyyy" Str_SqlDest = "select * from MyTable" Rs_Dest.Open Str_SqlDest, Con_Dest Rs_Dest.MoveFirst Do Until Rs_Dest.EOF With Rs_Dest .AddNew Rs_Dest(0) = Text_id.Value Rs_Dest(1) = Text_Name.Value Rs_Dest(2) = Combobox_City.Value ..... .Update End With Rs_Dest.MoveNext Loop

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

مشاركة مع اخي ناقل ضع زر الطباعة في التقرير ..واجعل خاصية Display When لزر الطباعة = Screen Only ثم ضع الكود التالي في حدث عن الضغط على زر الطباعة Private Sub CmdPrint_Click() DoCmd.RunCommand acCmdPrint End Sub و لا تنسى ان تجعل نمط العرض عند فتح التقرير acViewPreview

استاذ عمر ...مثلما قال اخينا @محمد احمد لطفى وأحد الكائنات نشط مثل مربع نص

مشاركة مع استاذي ابو خليل ضع الكود التالي بدلا من الجملة القديمة في Sub Display 'Me.Txt_namcity.Value = rs!E_city Dim strSQL As String strSQL = "SELECT [tbl_city].[id_ciity], [tbl_city].[Name_city] FROM tbl_city" Me.Txt_namcity.RowSource = strSQL Me!Txt_namcity.ColumnCount = 2 Me!Txt_namcity.ColumnWidths = "0 ; 2 cm"

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

استاذنا العزيز @أبو عبدالله الحلوانى سأقرب اليك مايريده اخينا ... مثلا لدينا عميل جديد1 ولديه رصيد 3000 جنيه..حينما نختار الفترة من 1/12/2020 الى 31/6/2022 سيظهر الرصيد خلال هذه الفترة 2000 جنيه مثلا ..ويظهر ايضا في عمود ثاني اسمه الرصيد السابق لهذه الفترة ويساوي 1000 جنيه والنتيجة تنطبق على بقية العملاء...بحيث العميل الذي ليس لديه رصيد سابق تظهر النتيجة في الحقل =0 بصراحة انا قمت اشوف كوابيس بسبب هذا المثال لان حاولت كثيرا ولم يضبط معي 🤕

اخي العزيز قم بتغيير المعيار تحت اسم الشهرة name في الاستعلام Q_CHILD الى [forms]![F_name]![name]

😍الان توضحت الرؤيا ان كان العدد فردي دائما مبدع استاذ موسى

فكرة جميلة جدا استاذ @Moosak ..لكن لم اجد فائدة من هذا الجزء If InStr(1, m, ".") > 0 Then TXT = TXT & " " End If

انظر للتعديل ان كان هذا ماتقصده برنامج سير الاختبارات.rar

اخي البرنامج لا يفتح ويبقى المؤشر على الاسم فقط

اخي هذه صورة بارميتر ..اما مكتوب بالخطأ..او يشير الى نص غير موجود

طبعا اخي لايتم الالحاق بسبب الشرط الموضوع.. كانك تخبر الكود بانه اذا لم يكن احد الحقول فارغا فلن يتم الالحاق If Len(Me.B6 & vbNullString) = 0 Or Len(Me.B7 & vbNullString) = 0 Or Len(Me.B3 & vbNullString) = 0 Or Len(Me.B4 & vbNullString) = 0 Or Len(Me.B5 & vbNullString) = 0 Then اذا كنت تريد جميع الحقول فقم بالغاء الشرط

وعليكم السلام جرب التعديل... Nouveau Microsoft Access قاعدة بيانات.rar

زي ماتوقعت هل التاريخ ثابت ام متغير في اعتقادي تصوير المطلوب على شيت اكسل يسهل من الفهم والحل اخي العزيز

انظر للمرفق..لقد استغنيت عن جدول التصنيف Database32.accdb

بعد اذن اخي @احمد الفلاحجي اذا كانت تسمية الزر = نعم ... سيقوم بتشغيل استعلام التحديث ويجعل قيمة done=True وهذا استعلام التحديث في وضع التصميم واذا كانت تسمية الزر = لا ... سيقوم بتشغيل استعلام التحديث ويجعل قيمة done=False

استاذ موسى ممكن ان يكون الحل من خلال لست بوكس عدد/2 الاول ياخذ بياناته من استعلام الرصيد بين تاريخين والثاني ياخذ بياناته من استعلام الرصيد السابق لهذا التاريخ

وما الذي تفعله بالتقرير الفارغ؟

احسنت اخي واستاذي @احمد الفلاحجي انا قصدت ان اعطي جزء من الكود من اجل البحث والتعلم

ان اردت التعيين على مربع نعم/لا استخد الكود [aux نموذج فرعي].Form![done].Value = -1

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

جرب هذه التجربة البسيطة جورج الطويل تعديل 3 .accdb

الكود اعلاه يخص نتيجة مربع نص جرب النتيجة الان ..مع الرصيد السابق لكل مصادر التمويل T2Q - Copy.rar