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

السلام عليكم ورحمة الله وبركاته أخي اذا لديك معرفة تامة عن كيغية استعمال فيجوال بيسك 06 فمن الأحسن استعماله حتى لا تقع في أخطاء من اصدار الى اصدار آخر ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم سألكم الدعاء بظهر الغيب لي 2017/2018

السلام عليكم ورحمة الله وبركاته أخي الكريم راجع المرفقات التي أرفقتها سوف تجد الحل انشاء الله ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم سألكم الدعاء بظهر الغيب لي 2018/2018

السلام عليكم ورحمة الله وبركاته على الرغم من كثرة المواضيع عن الحماية لكن رأيت ان اضيف شيء بسيط على ذلك تم انشاء هذا الموضوع لاني من هنا قلت للسيد @Aliko سارجع مع المثال لا اريد اطول كثير لاني زعيف في اللغة العربية لذلك اليكم قاعدة مع الكراك حماية.rar كراك.rar

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

السلام عليكم اليوم أرفقت ملف بسيط جدا وهو صورة تتحكرك وعلى مقياس 12./012 جميل جدا أتمنى أن ينال اعجابكم أرائكم تهمنا لذا فلا تترددو أخوكم في الله مناد سفيان الجزائر napperons Algérino.rar

- يمكن تحقيق المطلوب باكثر من طريقة 1- NotInList عندما تكون القيمة غير موجوده فى قائمة مربع التحرير والسرد وهذه الطريقة تقتصر على مربع التحرير والسرد حدث غير موجود فى القائمة 'الطريقة الاولى 'Private Sub Category_Code_NotInList(NewData As String, Response As Integer) 'MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه" 'Me.Undo 'SendKeys "{Esc}{Esc}" 'End Sub 2- كما تفضلتم عن طريق DCount 'الطريقة الثانية 'DCount Private Sub Category_Code_BeforeUpdate(Cancel As Integer) Dim Code_NotInList As Integer Code_NotInList = DCount("Category_Code", "Items", "Category_Code= " & [Category_Code]) If Code_NotInList <> 1 Then MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه" Me.Undo Else End If End Sub 3- وايضا ممكن عن DLookup حدث قبل التحديث 'الطريقة الثالثة 'DLookup Private Sub Category_Code_BeforeUpdate(Cancel As Integer) Dim Code_NotInList Code_NotInList = DLookup("Category_Code", "Items", "Category_Code= " & [Category_Code]) If IsNull(Code_NotInList) Or Code_NotInList = "" Then MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه" Me.Undo Else End If End Sub وتم ادراج الاكواد المناسبة للثلاث طرق فى المرفق الاتى يمكن التبديل بينهم للتجربة المطلوب بثلاث طرق - فاتورة مشتريات.rar

السلام عليكم شكرا لاخونا شفان على جهوده المتميزة اخي الكريم : اذا اردت ان لا يظهر سجل الاضافة الجديد افتح النموذج الفرعي على التصميم / خصائص النموذج / لسان التبويب بيانات اجعل القيمة : السماح بالاضافة = لا

السلام عليكم ورحمة الله وبركاته تحية خاصة الى كل أعضاء المنتدى لقد أرفقت برنامج حوالة الدفع اصدار 30.0.0 جميل جدا وخفيف البرنامج مرفق بالصور ويستعمل في الشركات والمدارس التعليمية وحتى اصحاب التجارة *01 قاعدة بيانات *02 تصفية الحسابات على مدار 01 ساعة أي كل ساعة يقوم هو تلقائي بي فلترة قاعدة البيانات حسب التاريخ والاسم و المبلغ أي من أعلى مبلغ الى آخر مبلغ متحصل عليه في اليوم *03 حوالة الدفع *- تصنيف العمال من أول بداية التاريخ الى نهايته آرائكم تهمنا ونحن في خدمتكم ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم سألكم الدعاء بظهر الغيب لي كل الحقوق محفوظة للمبرمج : مناد سفيان حوالة دفع 2017.rar

سألكم الدعاء بظهر الغيب لي عن قريب انشاء الله رغم ضيق الوقت ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم المبرمج : مناد سفيان الجزائر 2017/2019

عفواً اخي الكريم لم انتبه الى انك قمت بفتح موضوع منفصل لذلك فاني وضعت لك مرفق لتطلع عليه في هذه المشاركة https://www.officena.net/ib/topic/79655-المساعدة-فى-عدم-فتح-النماذج-وظهور-هذه-الرسالة/?do=findComment&comment=510161 تحياتي

السلام علبكم أخي الكريم سوف أحل لك المشكلة باذن الله و أعتذر منك عن قولي أن هذا المرفق الذي أرفقته غير متطور جدا لأن اكسل يتعبك ولكن يجب عليك ايجاد حل والحل معي باذن الله على سبيل المثال أنا بدي بحسب 5+5 مش كل يوم و أنا بتعب نفسي و أحسب الطريقة اليدوية وبالرغم من ذالك مشكووور لأنو يجب عليك التطلع الى الامام حتى تطور معلوماتك يجب التخطيط والله ولي التوفيق ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم سألكم الدعاء بظهر الغيب لي 2017/2018

السلام عليكم ورحمة الله وبركاته أخي الكريم وضح أكثر ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم سألكم الدعاء بظهر الغيب لي 2017/2018

بسم الله الرحمان الرحيم و الصلاة والسلام على سيدنا محمد أخي الكريم انشاء الله هانحل المشكل عن قريب ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم سألكم الدعاء بظهر الغيب لي أخوكم في الله المبرمج : مناد سفيان الجزائر ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم

شكرا لكي بنيتي أرفقي لي الملف حتى أتمكن من المساعدة نحن في خدمتكم 2017.2018 ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم سألكم الدعاء بظهر الغيب لي المبرمج : مناد سفيان يرحب بكم ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم

استخدم دالة dcount

احذف تاريخ التلقائي في حقل التاريخ وبدل ذلك استخدم بعد تحديث الحقل القبله ان يكتب التاريخ

اخي الكريم لا اعلم اذا كان المرفق التالي هو ماتطمح اليه بسؤالك ام انني لم افهم السؤال جيداً اذا كان هو المطلوب فهنالك عدة ملاحظات قمت بعملها وهي اني قمت بإلغاء مايكرو بدء التشغيل autoexec11 كما اني قمت بإلغاء الكود التالي fSetAccessWindow (SW_SHOWMINIMIZED) عند فتح نموذج users كما اني وجدت ان هنالك نموذج غير موجود اسمه FP حيث انك تستدعيه بعد تسجيل الدخول من خلال الكود التالي DoCmd.OpenForm "FP", acNormal ولا اعلم لماذا هو غير موجود تحياتي Copy of EndWork1.zip

هل عدد العملاء ثابت ام يتم تغييره ؟

السلام عليكم يمكن إعادة ضبط الطابعة الافتراضية لأكسس برمجيا على النحو التالي 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

ان لم تفتح معك قم باعادة تنصيب برنامج الوينرار لديك colorFz.rar

السلام عليكم ورحمة الله أخي الحبيب أبو عبد الرحمن، تم تصحيح الخلل كما يلي: 1- الخلل الأول يتعلق بناحية الطباعة لك من ورقتي "شرط أول" و "شرط ثاني" عند ربطهما بمعادلة أو بتسمية (وإن كانت مطاطية) وعند أي تغيير فإن النطاقات تصبح ثابتة ومنه الخلل لذا قمت بتحديد ناحية الطباعة برمجيا أي بإضافة أمر في الكود لكل من الشيتين باستعمال التسميتين Criterea1 و Criterea2... 2- الخلل الثاني، هذا نسيان مني لتنبيهك أنه عند تضيف جداول أخرى (لا يهم عددها) فينبغي أن تراعي تسلسل البيانات في العمود A في هذه الجداول (التسلسل التصاعدي مهم جدا)... إذ أن تسلسل البيانات التي أدرجتَها في جداولك غير محترم حيث أن الجدول 5 (مثلا) ينتهي عند 100 والجدول الذي يليه يبدأ بـ 21 وهكذا... وقد تم التصحيح في الملف المرفق مع تفريغ بيانات جداول الورقتين "شرط أول" و "شرط ثاني" لمراقبة عمل الكود... أرجو هذه المرة أن تسلم الجرة ويعمل الملف بصورة صحيحة... أخوك بن علية إدراج فواصل الصفحات في عدد ثابت من الصفوف لعدة اوراق.xlsb_4.rar

وعليكم السلام ورحمته الله وبركاته اخى وحبيب قلبى بن عليه ربنا يبارك فيك وفى عمرك يارب وميحرمنيش منك أبدا مبدئيا بالنسبة لى ممنوع الاقتراب او التصوير عما تقدمه لى فى هذا الموضوع فلن أقوم بأى تعديلات بعد طلب الاذن منك أخى وحبيبى هناك ملحوظتين بالمرفق التالى اولا قمت بزيادة عدد الجدوال فى الورقة الرئيسة التى تصل فى بعض الاحيان الى 700 جدول الملاحظة الاولى تتعلق بفواصل الصفحات فلا أدرى هل الامر متعلق بتحديد كامل نطاق الورقتين أم لا الملاحظة الثانية تتعلق بإدراج حدود الجدوال فى باقى الصفحات فيما عدا ذلك فالامور تسرى عل بركة الله ارجو الاطلاع على المرفق التالى والافاده بإذن الله تعالى *** تقبل وافر تقديرى واحترامى وجزاكم الله خيرا إدراج فواصل الصفحات في عدد ثابت من الصفوف لعدة اوراق.xlsb.rar

ارفع القاعده ونشوف المتاح ان شاء الله راح نقدمه قدر المستطاع

ماشى ماشى خلاص عرفت قصدك هشوف كده وارجعلك جرب ياباشا كده فى حالة ان الحقل فارغ ومفيش سجلات مش هيعمل حاجة اما لو 0 هيجيبلك لا يوجد رصيد مدين ودائن.rar

كود مهم جدا ولا يمكن الاستغناء عنه تحديد ارقام الخطأ لرسائل الاكسس فيمكن تعطيلها او ترجمتها Private Sub Form_Error(DataErr As Integer, Response As Integer) MsgBox DataErr MsgBox DataErr & vbCrLf & Err.Description Response = acDataErrContinue End Sub