alsihran

السلام عليكم في المرفق عند البحث عن السجلات في تاريخ 2022/05/18 يظهر سجل واحد فقط بينما في الجدول يوجد سجلين في نفس التاريخ ولي أحصل على السجل الثاني لابد لي من ادخال البحث من تاريخ 2022/05/18 الى 2022/05/19 اعتقد المشكلة تكمن في وجود وقت مع التاريخ فهو لا يتعرف على الوقت عند ادخال تاريخ البحث لانه يبحث فقط في السجلات التي توافق نفس التاريخ ويكون الوقت المدخل 00:00:00 المطلوب عند البحث في تاريخ محدد يظهر جميع السجلات بغض النظر عن عن الوقت SearchFormatListBox.accdb

يعطيك العافية أخ احمد هذا هو المطلوب

نعم استاذنا مصدر القائمة كود مرتبط SQlSERVER هذا مثال يمكن يكون قريب منه FormatListBox.rar

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

السلام عليكم ورحمة الله وبركاتة كيف نغير تنسيق التاريخ في مربع القائمة الى مثل هذا التسيق 2022/05/14 بدل ماهو طالع في الصورة المرفقة

شكرا لك هذا هو المطلوب

السلام عليكم ورحمة الله وبركاتة كيف ننشئ استعلام من جدول Work يعطينا البيانات كما هو في الصورة بحيث يعطيني اسم محمد كم مره تكرر مع مدينة الرياض وكم مره تكرر مع مدينة مكه وكم مره تكرر مع مدينة الدمام وهكذا لبقية الاسماء Workbase .rar

الله يعطيك العافية إن شاء الله يعمل مع الاتصال بالسيرفر البعيد شاكرومقدر جهدك معي

بحث في المواقع الاجنبية وحصلت هذا الكود ياخذ البيانات من الجدول في قاعدة البيانات الخارجية ويتم الحاقها في جدول أخر في نفس قاعدة البيانات الخارجية اتمنى المساعده في تعديل الكود ليلحق البيانات الى الجدول في نفس القاعدة الحالية Function example() Dim dB_External As String Dim db_Local As String Dim cnLocal As ADODB.Connection Dim cnExternal As ADODB.Connection Set cnLocal = CurrentProject.Connection Set cnExternal = New ADODB.Connection cnExternal.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\sehran\Desktop\Ado\AooReport\Adb_Dat.accdb;Persist Security Info=False;" dB_External = "SELECT EName,E_city FROM tbl_Employ;" db_Local = "SELECT MyTempGetBOM.EName, MyTempGetBOM.E_city FROM MyTempGetBOM" 'example A: strSQL = "INSERT INTO[MyTempGetBOM](EName, E_city,)" strSQL = strSQL & "SELECT EName, E_city" strSQL = strSQL & " FROM tbl_Employ '" & dB_External & "'" cnExternal.Execute (strSQL) End Function

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

السلام عليكم المطلوب بالمرفق فتح التقرير وإظهار جميع السجلات ايضا توجد مشكلة عند فتح التقرير في طريقة عرض معاينة قبل الطباعة شاكرومقدر سلفا AooReport.rar

المعذرة منك بعد مراجعة الموقع اتضح أن الكود خاص بالاكسل شكرا لك

شكرا لك استاذ

وعليكم السلام ورحمة الله وبركاته وكل عام ,انت بخير ما عليه استحملني شوي لو سمحت الفكرة ما وصلتني بشكل كامل لو افترضنا ان النموذج يحتوي على الحقزل التالية Text_id Text_Name Combobox_City واردنا اضافتهم الى الجدول ويحتوي على الحقول id Name City كيف سيكون وضعهم في هذه الجملة وأين ستوضع الجملة بالكامل في هذا الكود انا وجدت كود في احد المنتديات الاجنبية لكن عجزت عن تطبيقة لاني ما فهمته وانا ضعيق في مجال اضافة السجلات وحذفها وتعديلها عن طريق Ado Dim Con_Dest As New ADODB.Connection Dim Con_Sour As New ADODB.Connection Dim Rs_Sour As New ADODB.Recordset Dim Rs_Dest As New ADODB.Recordset Dim Str_SqlSour As String Dim Str_SqlDest As String Dim Str_Sql As String Con_Sour.Open "dsn=xxxx;uid=xxxx;pwd=xxxxx" Con_Dest.Open "dsn=yyyyy;uid=yyyyy;pwd=yyyyyy" Str_SqlSour = "select * from Table_Sour" Rs_Sour.Open Str_SqlSour, Con_Sour Rs_Dest.Open "Table_Dest", Con_Dest, adOpenDynamic, adLockOptimistic Rs_Sour.MoveFirst Do Until Rs_Sour.EOF With Rs_Dest .AddNew .Fields("AAA").Value = Rs_Sour.Fields("id") .Fields("AAB").Value = Rs_Sour.Fields("target_id") .Fields("AAC").Value = Rs_Sour.Fields("group_code") ..... .Update End With Rs_Sour.MoveNext Loop اعتقد هذا الكود لجدولين وانا احتاج الاضافة بجدول واحد لو أمكن تنقيح هذا الكود والتعديل عليه شاكر ومقدر لك

الله يعطيك العافية أخ عمر لا أخفيك اني لم اتعامل سابقا مع السيرفرات الجمل التي وضعتها DAO وتنقصها جملة الاتصال بالسيرفر وانا اطلب Ado

السلام عليكم ورحمة الله وبركاتة احتاج جملة اضافة سجل وحذف سجل وتعديل سجل Insert Edit Delete ADO Rrecored من الاكسس الى سكيول سيرفر

هذا هو المطلوب شكرا لك

الله يعطيك العافية استاذ لكن هذا الحل يستلزم تكرار الجملة مع متغيراتها وعندي على النموذج عدد 12 combobox وهذا يعني ان البرنامج سيذهب الى السيرفر 12 مرة يذهب ويحضر البيانات ثم يعود وسيصبح البرنامج ثقيل ونعود للمربع الاول الذي من اجله لجأت الى ADO Option Compare Database Dim con As ADODB.Connection Dim rs, rst ,rse,rsf As ADODB.Recordset Set rs = CreateObject("ADODB.Recordset") Set rst = CreateObject("ADODB.Recordset") Set rse = CreateObject("ADODB.Recordset") Set rsf = CreateObject("ADODB.Recordset") Set rs = New ADODB.Recordset Set rst = New ADODB.Recordset Set rse = New ADODB.Recordset Set rstf = New ADODB.Recordset rst.Open "Select * from tbl_city WHERE txt1 = 1", con, adopenDynamic, adLockBatchOptimistic rse.Open "Select * from tbl_city WHERE txt1 = 2", con, adopenDynamic, adLockBatchOptimistic rsf.Open "Select * from tbl_city WHERE txt1 = 3", con, adopenDynamic, adLockBatchOptimistic rss.Open "Select * from tbl_city WHERE txt1 = 4", con, adopenDynamic, adLockBatchOptimistic أمنى منك استاذ يكون فيه حل بالتعديل على هذه الجملة Me.Txt_namcity.AddItem (rst.Fields(0).Value & ";" & rst.Fields(1).Value) شاكر ومقدر لك

استاذنا @ابوخليل معليش اعرف اني طرحت هذا السؤال الاضافي المفروض افتح له موضوع جديد لكن عشان مايتشعب الموضوع هل يمكن وضع شرط للجملة Me.Txt_namcity.AddItem (rst.Fields(0).Value & ";" & rst.Fields(1).Value) بمعنى لو كان عندي بالجدول حقل رقمي ثالث يحتوي على قيمه مثلاً حقل باسم txt واريد ان يضيف العناصر التي تكون حقل txt = 1 لان عندي بالنموذج اكثر من combobox وكل combobox ستكون له عناصر محدده من نفس الجدول

ممتاز استاذنا هذا هو المطلوب هل يعني هذا ان التعديل الاخير لا يصلح للاتصال بالسيرفر على الانترنت ....؟ عموما سأجرب وإن شاء الله تنجح شاكر ومقدر لك استاذي الكريم و لا نستغني عن دعمك ارجو أن تتحملني

الله يعطيك العافية استاذنا @ابوخليل وكل عام وانت بخير الطريقة تعمل وهذه تصلح اثناء اضافة بيانات المشكلة اني فقدت عرض البيانات اثناء فتح النموذج هل يمكن تعديل جملة selcet rs.Open "Select * from tbl_Employ", con, adopenDynamic, adLockBatchOptimistic لعرض البيانات واظهار اسم المدينة اثناء فتح النموذج شكرا لك اخي الكريم هذه طريقة اخرى لكن ينطبق عليها نفس طلبي من الاستاذ ابو خليل

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

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

يعطيك الف عافيه اتمنى استاذي الكريم ان تكون المعادلة على الخلايا مباشرة بدون استخدام الجدول الايسر والتلوين يكون في خلية الوقت لاني سأستخدمها في جدول PivotTable الله يعطيك العافية فيه خلل في الوقت لو تلاحظ يحسب بالساعات

السلام عليكم المطلوب عندما تكون خلية النص جده والو قت اكبر من دقيقتين (00:02:00) يصبح لون الخلية أحمر الرياض والو قت اكبر من دقيقتين ونصف (00:02:30) يصبح لون الخلية أحمر الدمام والو قت اكبر من ثلاث دقائق (00:03:00) يصبح لون الخلية أحمر بقية المدن اكبر من اربع دقائق (00:04:00) يصبح لون الخلية أحمر تنسق شرطي.xlsx