نجوم المشاركات

حرب هذا الملف data salim.xlsx

وعليكم السلام ورحمة الله وبركاتة السبب المسميات لمربعات التسمية لاحظ حرف E توجد فوقة إشارة غير مفهومة قم بتعديل المسميات وسيعمل النموذج بدون مشاكل ::بالتوفيق::

ادخل أولا على لوحة التحكم-Control Panel ثم اتبع الخطوات بالصور :

شكر واجب للعضو المتمير kaser906 على المجهودات الرائعة

بارك الله فيك استاذ سليم وجزاك الله كل خير وهذا حل اخر لإثراء الموضوع data.xlsx

ممكن توضح ؟

بارك الله فيك اخي في الله kaser906 وشكرا جزيلا على المساعدة فلو تعلم نصف يوم وانا احاول ان اعرف السبب. جزاك الله كل خير

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

تفضل اخي الكريم الملف الخاص بالشرح http://www.mediafire.com/file/01csf1zpt6um92h/ساجدة+استعلام+بيانات+مصفوفات.xlsm

أخي الكريم طلبك مخالف لأنظمة وقوانين المنتدى يجب عليك عدم طرح أكثر من سؤال في الموضوع الواحد افرد لكل سؤال موضوع خاص ::بالتوفيق::

طلبك غير واضح وضح ما تريد بالتفصيل ::بالتوفيق::

وعليكم السلام تفضل ::بالتوفيق:: عيادة.rar

وعليكم السلام أخي الكريم موضوعك مخالف تماما لأنظمة وقوانين المنتدى ::بالتوفيق::

استبدل الكود السابق بهذا الكود Dim x x = DLookup("[tozeh]", "tbl", "Auto_id =[المعرف]") If x = 0 Then Me![جهة التوزيع].Locked = True Me![جهة التوزيع].Enabled = False ElseIf x = -1 Then Me![جهة التوزيع].Locked = False Me![جهة التوزيع].Enabled = True End If ::بالتوفيق::

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

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

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

أخى الكريم لا يصلح بالمعادلات اليك الكود تكتب اسم الشيت الذى تريده فى الخلية A1 ولكن المعادلات فقط لإيجاد واستخلاص اسم الشيت وكتابته فى خلية ما وليس العكس بارك الله فيك Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then ActiveSheet.Name = Target.Text End Sub

تفضل تم تغيير بعض المسميات لأتمكن من كتابة الكود جرب بعد تحديث حقل المعرف وعند التركيز على حقل جهة التوزيع ::بالتوفيق:: قفل خلايا نموذج فرعي(1).accdb

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

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

طريقة عرض النموذج نماذج مستمرة مصدر سجلات النموذج هو الجدول Table زر الأمر الأول A+ve عبارة عن تشغيل استعلام الحاق سجلات لنفس الجدول ليس له علاقة بالنموذج زر الأمر الثاني B+ve عبارة عن تشغيل استعلام الحاق سجلات للجدول Table2 لايأخذ أي قيمة من النموذج يرجى توضيح الأمر ملاحظة : توجد مشكلة بالكود الذي وضعته لك بالمرفق سيتم اصلاحه حين تتوضح الأمور ::بالتوفيق::

أنظر المرفق أن كان الحل يناسبك ::بالتوفيق:: Auto Number2.rar

وعليكم السلام ورحمة الله وبركاتة ماهو الرقم الذ ي تر يد استخدامه ::بالتوفيق::

السلام عليكم يمكن إعادة ضبط الطابعة الافتراضية لأكسس برمجيا على النحو التالي Function UF_REPORT_PROCESS(Optional REPORT_VIEW As AcView) Dim CUR_PRINTER As Printer '-- GET CURRENT DEFAULT PRINTER Set CUR_PRINTER = Application.Printer '-- SET NEW DEFAULT PRINTER Application.Printer = Application.Printers(Me.CMB_PRINTER_LIST.Value) '-- PRINT REPORT DoCmd.OpenReport Me.LST_REPORT_LIST, REPORT_VIEW '-- RETURN TO SYSTEM DEFAULT PRINTER Application.Printer = CUR_PRINTER End Function وهذا مثال مبسط: SET DEFAULT PRINTER.zip