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

السلام عليكم المسؤول عن التنظيم هو الكود ، ومن اجل اظهار القائمة لا بد يكون عدد الاعمدة مساوي لما تم ضبطه داخل الكود يعني يجب عليك تكرار الاعمدة في حقل الجنسية بما يتناسب مع مربع التحرير الآخر ، اي يجب ان يكون عدد الاعمدة في مربعات التحرير متساوية هذين السطرين هما اللذين يحددان عدد الاعمدة وأي الاعمدة يظهر Case LngArabic: .ColumnWidths = "0;0;2.251" Case LngEnglish: .ColumnWidths = "0;2.251;0" لاحظ هنا العمود الذي يظهر في العربي والعمود الذي يظهر بالانجلش تفضل تم التعديل AZIZ3.rar

إخوتي الفضلاء أقدم من مكتبتي تطبيق التقويم لتثبييت المواعيد والأحداث ، وقد إستخدمت الفكرة و أجزاء من التطبيق في كثير من التطبيقات الخاصة وهو منظومة للتقويم ولتثبيت المواعيد و الأحداث ، ويمكن إظهار التقويم كنموذج لليوم و / أو الأسبوع و / أو شهر ويحاكي التصميم المستخدم في MS OUTLOOK آملاً عموم الفائدة والله من وراء القصد وهو حسبي ............ NA_Calendar.rar

...لدي اوفيس اكسل 2010 ...في الاكسل على الشيت يكتب بلغه العربيه لاتوجد مشكله وعلى ملف الكود ايضا من الاعدات غيرت اللغه الى اللغه العربيه لاتوجد مشكله المشكله عند عمل تشغيل للكود النتيجه اتظهر على شيت الاكسل بلغه غير مفهومه فاما هو الحل ارجوكم

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

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

بارك الله فيك

جزاك الله خير ياسليم بس المشكلة الأيام ما تتغير حسب التاريخ sun mon tus ماتتغير

الله يعطيك العافية استاذ كنت ابحث عن السبب ولم استطع الوصول اليه الان وضحت الفكرة

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

لماذا لا تقوم بفتح التقرير عن طريق ملف pdf ومن هناك يمكنك اخيار الطابعة التي تريد

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

فعلاً هو الحل المثالي- بارك الله بك - ، و هو ما تم في مكان عملي فقد اتُبعت تقنية الحواسيب التوائم The Twins Computers و هي الأفضل عند توفر الميزانية و خاصة عند التأسيس ، لكن بمثل حالة ما أقوم به فهذا غير ممكن كوني مجرد هاو يقوم بإعداد ملفات الإكسل و الأكسس على سبيل الخدمة دون أن يكون هذا من صميم عمله ، و لأفراد شتى بعضهم لا أعلم نظام تشغيله . شكراً لك من كل قلبي على تفاعلك و تعبك ، و أعتذر لتأخري بالرد مع أني صاحب السؤال و من يفترض أن يكون بانتظار الإجابة . . سأعمل على تطبيق ما تكرمتم به .

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

اذا كان هناك مبدع فأنت المبدع اذا كان هناك خبير فأنت الخبير اذا كان هناك مؤمن فأنت المؤمن لانك طبقت الحديث النبوي الشريف عن رسولنا الكريم محمد (ص) قال (( زكاة العلم تعليمه )) شكراً وحياك الله على هذا الابداع

نصيحة أخي الكريم ابتعد عن المسميات المحجوزرة id Name NO تفضل المرفق سيتم الترقيم تلقائي حسب أخر رقم تم إدخاله عند رغبتك في تغيير الرقم ادخل الرقم الجديد في حقل رقم جديد بالنموذج وسيتم الترقيم من جديد تم الاستغناء عن الاستعلامات ::بالتوفيق:: Auto Number3.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

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