alsihran

ملاحظة ايضا اثناء التجربة لاحظت ان الاستعلام يقوم بحذف القيم التي تم تحديثها سابقا

كلامك صحيح استاذ جميعا ان شاء الله جزاك الله خير استاذي البيانات يتم استيرادها من ملف أكسل وهي نصوص احتمالية خطأ المستخدم في ادخال النص المطلوب بالتحديد وارده بنسبة 50% فلو كان هناك امكانية تحديث اي نص اخر غير ناجح' فاشل' Na' الى رقم 3 شاكر ومقدر لك تعاونك

تمام الدالتين ادت المطلوب فقط هناك ملاحظة لوكانت هناك قيمة بالجدول غير ناجح فاشل Na يتم تحديثها الى فراغ انظر الصورة والمرفق fr.rar

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

السلام عليكم لدي استعلام يقوم بتحديث حقل في جدول بناء على قيمة الحقل مثلا القيمة بالجدول ناجح يتم تحديثها الى رقم 1 الى هنا الامور كلها تمام اريد اضع شروط اخرى للتحديث مثلا اذا كانت قيمة الحقل فاشل يتم تحديث الحقل الى رقم 2 اذا كانت قيمة الحقل Na يتم تحديث الحقل الى رقم 3 استطيع عملها بعدد ثلاثة استعلامات ولكن اريد اختصارها الى استعلام واحد فقط qryi.accdb

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

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

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

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

بالنسبة لهذا الموضوع مريت عليه سابقا لكن حصلت انه مش منطقي اغير دقة الشاشة بالكامل بالاضافة اذا كان جهاز المستخدم مرتبط بسيرفر ما راح يسمح له يغير دقة الشاشة ( لاتوجد صلاحيات ) انا افتح برنامجي مثل ما تفتح برنامجك اللي وضعت رابطه وقلت ما تستغني عنه بالنسبه لجميع مواضيع حجم الشاشة بالمنتدى تقريبا جربتها كلها ومع الاسف الاخوان وضعوها على انها تعمل ولمى جربتها الى شاشة مقاس 21 كلها فشلت وظهرت ادوات النماذج متبعثره اعتقد كودك اللي تحدد فيه حجم نافذة الاكسس عند بدء تشغيل اول نموذج راح يساعد قي ضبط الامور نوعا ما مع تحديد الارتساء الافقي لادوات النموذج يمين / يسار الى كليهما ان شاء الله باكر لمى اجرب على الشاشة الكبيرة اضع النتيجة شاكر ومقدر لك

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

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

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

شكرا لك على تفاعلك في الموضوع الطريقة هذي موجودة وذكرت هذا الكلام في بداية الموضوع وكان هذا حل الاستاذ ابو خليل في عرض السجلات في التقرير في الحقيقة ما اعرف هل المطلوب ممكن مع Ado Recordset أم لا بحثت في المواقع الاجنبية لكن ما وصلت لنتيجة كل الموجود نفس طريقة الاستاذ جعفر يحضر البيانات من جدول في نفس قاعدة البيانات الهدف من المطلوب المعرفة وزيادة المعلومات ☺️ لو احد الاساتذة يعطيني اجابة جازمه بأن المطلوب ممكن او غير ممكن مع الشكر للجميع

Up رفع

قمت بالتعديل على كود الاستاذ @jjafferr Private Sub Form_Open(Cancel As Integer) On Error Resume Next Dim dbs As ADODB.Connection Dim rstDAO As ADODB.Recordset Dim rstADO As ADODB.Recordset Dim fld As ADODB.Field Dim strSQL As String Set rstADO = New ADODB.Recordset With rstADO .Fields.Append "EmployeeID", adInteger, , adFldKeyColumn .Fields.Append "FirstName", adVarChar, 10, adFldMayBeNull .Fields.Append "LastName", adVarChar, 20, adFldMayBeNull .Fields.Append "Email", adVarChar, 64, adFldMayBeNull .Fields.Append "Include", adInteger, , adFldMayBeNull .Fields.Append "Selected", adBoolean, , adFldMayBeNull .CursorType = adOpenKeyset .CursorLocation = adUseClient .LockType = adLockPessimistic .Open End With Set dbs = CreateObject("ADODB.Connection") dbs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Shran\Desktop\AdoForm\Adb_Dat.accdb;Persist Security Info=False;" ' Set dbs = CurrentDb strSQL = "SELECT EmployeeID, FirstName, LastName, Email " & _ "FROM Employees ORDER BY LastName, FirstName" Set rstDAO = dbs.OpenRecordset(strSQL, dbOpenDynaset) Do Until rstDAO.EOF rstADO.AddNew rstADO.Fields(0) = rstDAO!EmployeeID rstADO.Fields(1) = rstDAO!FirstName rstADO.Fields(2) = rstDAO!LastName rstADO.Fields(3) = rstDAO!Email rstADO.Fields(4) = Null rstADO.Fields(5) = Null rstADO.Update rstDAO.MoveNext Loop Set Me.Recordset = rstADO Me.AllowAdditions = True Set rstDAO = Nothing Set dbs = Nothing لكي يحضر البيانات من قاعدة بيانات خارجية ( مثال تقريبي لمحاكات السيرفر ) لكن اصبح البرنامج يعلق على ويظهر شاشة سوداء وبعد تتبع الكود اثناء التنفيذ وجدته يستمر في عملية Loop بدون توقف ما اعرف وين المشكلة ......؟

الله يعطيك العافية طريقة هذا الاستعلام تجعل الاتصال مفتوح بين النموذج وقاعدة الجداول وهذا يعني ( أن الاتصال بالسيرفر سيبقى مفتوح الى ان يتم اغلاق النموذج ) والمطلوب : استعلام يحضر البيانات ويغلق الاتصال كما في طريقة الاستاذ جعفر والاستاذ @د.كاف يار

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

الله يعطيك العافية سأحاول بأذن لله تطبيق الطريقة لكن استفسار لوسمحت بالنسبة لهذا المتغير تم تعريفه على قاعدة البيانات الحالية كيف سيكون في حالة الاتصال Sql Server

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

السلام عليكم كنت طرحت موضوع عرض السجلات في التقرير ولم اجد الا اجابه من الاستاذ ابو خليل بأن اسهل طريقة هي وضع السجلات في جدول مؤقت اليوم اطرح نفس السؤال وطلب المساعده في عرض السجلات في نموذج بطريقة عرض نماذج مستمره بدون جداول مؤقته حاليا استخدم مربع القائمة لكن مع الاسف لايفي بالغرض لعدم التمكن من تنسيق القائمه واستخدام التنسيق الشرطي AdoForm.rar

👌 تمام الله عطيك العافيه

السلام عليكم وضعت تنسيق شرطي بهذا الشكل لكن تظهر رسالة خطأ فكيف يكتب تنسيق النسبة المئوية في شرط التنسيق الشرطي

فعلا اخي الكريم كلامك صحيح اعتذر منك اسلوبك يعطي نفس النتائج الان فهمت المسألة شكرا لك

ضروري عامل الضرب لان عملية الحساب تعتمد على حقول أخرى انا هنا وضعت مثال للتقريب فقط تمام هو المطلوب