Eng.Qassim

هناك الكثير من المشاركات في المنتدى...وهذ واحد منها

المشكلة تظهر عندي بعد غلق النموذج وليس عند الحفظ عملت On Error Resume Next فاختفت الرسالة

لصاحب السؤال اخي ناقل

لا اجزم باني فهمت السؤال بالكامل انظر لهذه المحاولة عسى انها تقرب المسافات لما تريد AAA.accdb

ممكن حضرتك ترفع االقاعدة على نسخة اقدم؟

حاولت استخدامها من قبل لكن لا اعلم لماذا التنازلي لايعمل

اعتقد الموضوع مختلف استاذ ناقل

مشاركة مع اخوتي.. لاحظ ان الحقل لو كان رقمي يكون اكثر سهولة تنازلي و تصاعدي.accdb في مثالي مجرد تغيير مصدر السجلات بدون تصميم استعلام

استاذ @ابو جودي عند تنفيذ الكود..كل الحقول والزرار تختفي

ممكن حضرتك تشرح المطلوب بالتفصيل؟

دكتورنا العزيز...احتمال فرحان ببدلة العيد والكود مش شغال معاك 😂 كل عام وانت بخير... الكود شغال وزي الفل

اعتقد باني فهمت مطلبك الثاني انظر للتعديل الثاني مساعدات مرضية تعديل 1(1).rar

تفضل التعديل.. بالنسبة للمطلب الثاني لم افهمه واين تكتب المرفقات مساعدات مرضية تعديل 1(1).accdb

استاذ @ناقل المحترم استبدل Utilities.Restart فقط Restart

وعليكم السلام وكل عام وانتم بخير تفضل التعديل الدالة.accdb

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

لو تكرمت بكتابة جمل ال SQL لبعض الاستعلامات حتى نفهم العلاقة بينها

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

حسب معطياتك والكود السابق ...يكون الكود بالشكل التالي بصراحة لم اعمل على السيرفر سابقا ولا يمكنني التاكد اهم شي كود الاتصال تبعك 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 بصراحة انا قمت اشوف كوابيس بسبب هذا المثال لان حاولت كثيرا ولم يضبط معي 🤕