عبيدالله

السلام عليكم

اشكر جميع الاساتذة الكرام على هذا الموضوع الهااااااام جدا بالنسبة لي على الاقل..

 

بس ظهرت لي هذه المشكلة (رقم 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

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

 

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

 

 

كذلك امكانية وضع الاختصار على رأس قائمة ابدأ، هكذا

 

 

وبذلك يكمل العمل وتكمل الفائدة

موضوع جميل ورائع وإلى الأمام دوما

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

 

الاسم: سامي علي ابوعايش، العمر: 23 سنة، الحالة الاحتماعية: عازب، الحالة التعليمية: طالب جامعي

 

اترككم مع المرفق مع ملاحظة انه لا يعمل إلا على 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

الرجاء المساااعدة للضرورة القصوى

يا سلاااااام عليييييك

بارك الله فيك

لا تتوقف