عبيدالله

السلام عليكم اشكر جميع الاساتذة الكرام على هذا الموضوع الهااااااام جدا بالنسبة لي على الاقل.. بس ظهرت لي هذه المشكلة (رقم 91) للعلم بأني اعمل على نظام ويندوز 7 التميد 64بت اوفيس 2010 طابعة 4×1 (HP LaserJet 3030)

السلام عليكم قمت بعمل فورمات للجهاز ثم تحميل ويندوز 7 ×64بت واوفيس 2010 وعند تشغيل برنامجي ظهرت لي الرسالة التالية: ما العمل؟؟

استاذي العزيز ابوخليل هل تقصد هكذا.. الفاتورة.rar هل هناك طريقة افضل؟ افيدوني بارك الله فيكم حتى اقوم بالتعديل ولا زلت في أول العمل.

السلام عليكم احبكم جميعا.. شرح المشكلة: لدي نموذج مستمر لفاتورة (بيع، شراء) فيها الحقول مجدولة التالية: | اسم الصنف | الوحدة | الكمية | سعر الوحدة | ... الخ حقل |الوحدة| عبارة عن قائمة منسدلة وفي استعلامه عامل تصفية يعتمد على |اسم الصنف| حيث وأن لكل صنف الوحدات الخاصة به، مثلا: الأرز: (طن، كيس50كجم، كيس10كجم) الصابون: (كرتون، باكيت)... وهكذا. فعندما اختار صنف الأرز مثلاً تظهر في القائمة المنسدلة لـ |الوحدة| الوحدات الخاصة به وهي (طن، كيس50كجم، كيس10كجم) المشكلة: عند تعدد السجلات في النموذج المستمر فإن التصفية تكون بحسب |اسم الصنف| الحالي فقط وبالتالي تختفي اسماء |الوحدة| لباقي السجلات انظر المرفق: الفاتورة.rar

خير يا asdawy ما عجبك؟؟ تكرم علي بالملاحظات

وفيك بارك

بمناسبة دخول السنة الهجرية الجديدة أسعد بارفاق نسخة اخرى من التقويم المفتوح التقويم المفتوح 1901 - 3000 اصدار 11_2.zip اقترح التثبيت وقد سبق نشر هذا التقويم سابقاً على الرابط: http://www.officena.net/ib/index.php?showtopic=36590

البرنامج يعمل جيدا وتم تجريبه على اكثر من جهاز ولا مشكلة! للعلم اني استخدم اكسس 2010

نفس مشاركة الاستاذ ابو خليل مع بعض التعديل - انسخ النموذج إلى نظامك. نموذج تغيير شعار الشركة.rar

ضع هذا الكود Forms![GD1]![co1].Requery

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

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

موضوع جميل ورائع وإلى الأمام دوما وكان لي موضوع سابق احب ان اشارككم به وهو عبارة عن تضمين اكثر من تنسيق مختلف داخل مربع النص هكذا (مثال): اترككم مع المرفق مع ملاحظة انه لا يعمل إلا على 2007 وما فوق لأنه يعتمد على ادماج اكواد "html" ضمن اكواد "vba" FormatText 2007.rar

لي ذكريات جميله مع اكسل 2003 إلا أنه وبلا شك فإن اكسل 2010 افضل واسرع وأجمل بالنسبة لإصدار 2013 فلم اطلع عليه واتوقع أن يكون افضل من 2010

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

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

لا بد من كلمة شكر لكل من محمد ايمن واستاذنا ابوآدم .. موضوع جيد ومفيد

لي الشرف للعلم بأني تأسست وتتلمذت في هذا المنتدى الغالي على نفسي

شكرا اخي nart lebzo تم تغيير اسم الظهور انا مشترك في منتدى آخر بنفس اسم (عبيدالله) ولا بأس بأن اكون بنفس الاسم هنا

تمكنت (بحمد الله) من عمل دالة لإعادة تنسيق جزء من النص داخل مربع النص في التقارير أو النماذج تقوم هذه الدالة بتمكين المستخدم التحكم في تنسيق النص أو جزء من النص داخل مربع نص واحد!! كيف؟.. انظر الصورة: بالنسبة للتقارير بالنسبة للنماذج الصيغة العامة: FormatText(TargetText ;FontName ;FontSize ;FontColor ;FontBold ;FontItalic ;FontUnderline ) الشرح: FormatText: اسم الدالة الخاصة بإعادة تنسيق النص TargetText: النص المستهدف لإعادة تنسيقة FontName: اسم الخط ويكتب بين علامتي تنصيص("×××")َ FontSize: حجم الخط ويمكن كتابتها بين علامتي تنصيص أو بدونها FontColor: لون الخط، ويكتب بين علامتي تنصيص ("×××") ويمكن كتابة اسم اللون باللغة الإنجليزية أو كتابة كود اللون FontBold: لجعل النص غامق اكتب -1 سالب واحد أو True FontItalic: لجعل النص مائل اكتب -1 سالب واحد أو True FontUnderline: لتسطير النص (خط تحت النص) اكتب -1 سالب واحد أو True التطبيق: قم باستيراد الوحدة النمطية إلى برنامجك ثم استخدم الدالة. المطلوب: تجربة واختبار الدالة وتطويرها من قبل مشرفي واساتذة واعضاء المنتدى. الوحدة النمطية: Function FormatText(TargetText As String, FontName As String, FontSize As String, FontColor As String, FontBold As Integer, FontItalic As Integer, FontUnderline As Integer) Dim FontB0, FontB1, FontI0, FontI1, FontU0, FontU1 As String If FontBold = True Then FontB0 = "<b>" FontB1 = "</b>" Else FontB0 = "" FontB1 = "" End If If FontItalic = True Then FontI0 = "<i>" FontI1 = "</i>" Else FontI0 = "" FontI1 = "" End If If FontUnderline = True Then FontU0 = "<u>" FontU1 = "</u>" Else FontU0 = "" FontU1 = "" End If FormatText = "<font face=" & FontName & " , size=" & FontSize & " , color=" & FontColor & FontB0 & FontI0 & FontU0 & "" & TargetText & "" & FontU1 & FontI1 & FontB1 & "</font>" End Function النسخة كاملة (2007 وما فوق) FormatText 2007.rar المقابل: الدعاء بالتوفيق.

نموذج فوترة جيد جدا (من ناحية البيانات) اما بالنسبة للتنسيق والترتيب فطبعا لكل واحد منا ذوقه الخاص إلى جانب ان يكون شكل نموذج الفوترة متوافق مع تنسيق بقية النماذج والواجهة الرئيسية... مع ذلك فالشكل مقبول إلى حد ما هذه الصورة ستفيدني مستقبلا ان شاء الله مشكور

صحيح استاذي ابو خليل الكود يعمل جيداً ولا أدري لماذا لم يكن يعمل معي في المرة السابقة؟؟؟؟ كان يعندما اغلق قاعدة البيانات A تنغلق قاعدة البيانات B مباشرة.. الشكر موصول لأبو خليل وجميع اعضاء المنتدى الرائع

بارك الله فيك بس الكود الذي ذكرت في مشاركتك هو نفس الكود الذي انا جبته والذي انا اشكو منه.. الكود هذا يقوم بعمل ربط بين الملف A والملف B فإذا اغلق الملف A يغلق B تلقائياً.. والمطلوب أن يغلق A دون أن يغلق B اتمنى ان يكون طلبي قد اتضح

لدي كود يفتح قاعدة بيانات B محمية بكلمة مرور بواسطة قاعدة البيانات A بس هذا الكود يعمل على ربط القاعدة القاعدتين، فإذا تم اغلاق الملف A يغلق الملف B مباشرة والمطلوب فتح القاعدة B المحمية بكلمة مرور ثم اغلاق القاعدة A بدون أن يغلق القاعدة B والكود Dim strAccessExe As String, strDB As String Static acc As Access.Application Dim db As DAO.Database Dim strDbName As String strDbName = CurrentProject.Path & "\Forms.mdb" Set acc = New Access.Application acc.Visible = True Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=123") acc.OpenCurrentDatabase strDbName acc.RunCommand acCmdAppMinimize db.Close Set db = Nothing الرجاء المساااعدة للضرورة القصوى

يا سلاااااام عليييييك بارك الله فيك لا تتوقف