alsihran

قيمة المتغير Paath= string يتم جلبها من مربع تحرير وسرد من العمود الثالث paath = Me.city.Column(2)

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

السلام عليكم عندي هذا الكود لفتح ملف اكسل وشغال تمام sXlsFile = CurrentProject.Path & "\ReasonsExtension_Bad.xlsx" الان اريد اجعل اسم الملف متغير فقمت بعمل تعريف للمتغير بالشكل التالي Dim sXlsFile As String sXlsFile = Empty Dim paath As String paath = Empty paath = Me.city.Column(2) sXlsFile = paath وخزنت المسار بالكامل في الجدول لكل ملف كما موضح بالصورة المرفقة المشكلة عند تنفيذ الكود واستدعاء اسم الملف تظهر علامات تنصيص زياده ولا يتعرف على مسار الملف ارجو المساعده في حل الاشكال

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

عفواً اقصد تحديث نفسها جملة الاستعلام التي قمنا من خلالها بتحديث النصوص نجاح فشل Na الى ارقام عند تشغل الاستعلام مرة اخرى قوم بتحول رقم 1 و 2 الى رقم 3 بسبب ان تشغيل الاستعلام مرة اخرى سيجد ان رقم 1 و 2 لاتساوي نجاح فشل يقوم بتحديثها الى رقم 3 هذه الجملة من الاستعلام المسؤولة عن الامر IIf([ff] <> "نجاح" And [ff] <> "فشل" And [ff] <> "Na", 3,

نعم استاذ حلة المشكلة الى نوع ما لانه اذا اعدت تشغيل الاستعلام مره ثانية يقوم بتحويل رقم 1 ورق 2 الى رقم 3 حسب الشروط تحياتي وتقديري شكرا لك

نعم استاذنا الكريم تقوم ادارة تقنية المعلومات بالمنشأه بايقاف التعليمات البرمجية ( تنفيذ الاكواد البرمجية ) عن الاجهزة المرتبطة بالسيرفر الرئيسي في الفرع الرئيسي ومن ضمنها الاسكربت وتثبيت البرامج و . .و .. و الخ

الله يعطيك العافية استاذ عذراً منك لاني أسأت الفهم تمام شكرا لك

الله يعطيك العافية المشكلة معاااي ذكرتها في مشاركة سابقة شكل المسألة عويصه 😇

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

كلامك صحيح استاذ جميعا ان شاء الله جزاك الله خير استاذي البيانات يتم استيرادها من ملف أكسل وهي نصوص احتمالية خطأ المستخدم في ادخال النص المطلوب بالتحديد وارده بنسبة 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 بدون توقف ما اعرف وين المشكلة ......؟