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

اتفضل Dim db As Database Dim tdfNew As TableDef Dim fldLoop As Field On Error GoTo Err_Command0_Click: Set db = DAO.OpenDatabase(CurrentDb().Name) Set tdfNew = db.TableDefs!basic With tdfNew .Fields.Append .CreateField(Me.[id mon], dbText, 50) End With MsgBox "تمت عملية إنشاء الحقول المحددة بنجاح!!!", vbOKOnly, "رسالة توضيح" Exit_Command0_Click: Exit Sub Err_Command0_Click: MsgBox "إما أن الحقول المراد إنشاؤها موجودة مسبقاً ، أو أن قاعدة البيانات غير موجودة في المكان المحدد!!!", vbOKOnly, "رسالة توضيح" Resume Exit_Command0_Click try.accdb

من أفضل البرامج لتصوير الشروحات بصيغة GIf ويدعم اللغة العربية على الرابط : https://www.screentogif.com/ https://www.screentogif.com/downloads.html

مشاركه مع أخي صالح بريكان هناك طريقة اخرى لاستخراج الاسبوع بدقة دون دخول الاسبوع السابق ولا اللاحق : اما طريقة الأخ الغالي /صالح بريكان تظهر جميع أيام اسابع ماضية و لاحقة ما يصادف ايامها يوم اسبوع الحالي مثلا اليوم يوم السبت تظهر تواريخ جميع أيام السبت سواء ماضية اولاحقة 10/8 24/8...... xx.accdb

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

اتفضل DoCmd.OpenForm "Teb22", , , "[a1] = '" & Me.a1 & "'" & "And [a2] = '" & Me.a2 & "'" ماشاء الله كلنا بتوقيت واحد هههههههههههههه

تفضل اخي الكريم teest.accdb

اتفضل اليك هذا teest.zip

لعل هذا ما تريده الصفحة Salim من هذا الملف Example_Salim_Updated.xlsx

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

برنامج مساقات للمحاسبة للأستاذ الكبير : محمد أجول قام بشرح البرنامج خطوة بخطوة في عدة دروس في قناته على اليوتيوب التالية :- ملفات العمل لبرنامج المساقات المحاسبي : https://goo.gl/My9F7x ملفات العمل للبرنامج الثاني مساقات أولاين : https://drive.google.com/drive/u/2/fo... ما يميز البرنامج مساقات المحاسبي "المرفق" اعتماده في الغالب على الحقول غير المنضمه ولا يتعمد على الحفظ التلقائي من الأكسس يستخدم مكتبة DAO يمكننا تنزل البرنامج واستعراض الأكواد للاستفادة منها في أعمالنا . مساقات_للمحاسبة,_نسخة_قابلة_للتعديل.accdb

استاذي العين لا تعلى على الحاجب

السجلات الثلاث الاخيرة يوجد بها رموز غير مفهومة ولكن يمكن تعديلها وليس كما اشرت انت في بداية الموضوع (و حتى عند تعديل كمال احمد : الى كمال احمد بدون الرمز لا يتم التعديل و لا يخرج الماوس من الخلية )

السلام عليكم إليك الكود قم بوضعه في حدث مفتاح للأسفل للنموذج و لا تنسى تعيين خاصية مفتاح المعاينة إلى نعم If KeyCode <> vbKeyShift Then KeyCode = 0 End If

نعم

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

اخي محمد ليس في الملف مشكله ... لاحظ سجلت سجل وبه رمز واخرجت الماوس ... انظر

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

هو نفس الكلام اللي انا قصدت تعتبر ورقة بيانات فرعية وليست نموذج فرعي

الان اتضحت الصورة ما تراه ليس تكرار وحسب فهمي انك لا تريد ان يظهر التاريخ ورقم المستند اكثر من مره لذلك استخدم مقطع تجميع لرقم المستند أنظر انك المرفق يلبي طلبك ::بالتوفيق:: النقلياتKaser906.rar

السلام عليكم جرب الملف اوفسينا.xlsx

وعليكم السلام-تفضل هذا الكود Option Explicit Sub opening_multiple_file() Dim i As Integer With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .Filters.Clear .Filters.Add "Excel Files", "*.xls*" If .Show = True Then For i = 1 To .SelectedItems.Count Workbooks.Open .SelectedItems(i) Next i End If End With End Sub

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

اظن عندما عندما تسنخ اسم العضوء ثم تكتب فتلقائي يتلون

انظر لهذا التعديل لعله يفى بالغرض نسخة من 1111.xlsx

مجهود عظيم ورائع أستاذ / عبد اللطيف وبنتعلم من حضرتك الكثير وليا سؤال بسيط في عمل سابق لك وهو المطعم ماهو المقصود ( مرحلات ) وما فائدته في البرنامج .. شكراً لكرم حضرتك

جزاك الله خيرا و نفع بك و زادك الله علما "هذا هو المطلوب"

تفضل هذا التعديل تم اضافة المبالغ التي تم قبضها من المساهم المحدد program44.accdb

تفضل التعديل اخي الكريم program44.accdb

@عبد اللطيف سلوم تسلم بارك الله فيك .

اخي الكريم من وجهة نظري بأنه يوجد خلل في التصميم بشكل عام لكي تنفذ الفكرة بالشكل الصحيح فأنت بحاجة الى التالي - جدول مالي ( لتسجيل القيود المالية ( تسديد / اضافة ) + نوع القيد ( اضافة دفعة / اضافة رسوم / .... الخ ) ) مرفق التعديل New Microsoft Access قاعدة بيانات.rar

وعليكم السلام كي تعمل قاعدة البيانات على النسختين يجب وضع كلمة PtrSafe قبل Function كما هو موضح في الكود التالي : #If VBA7 Then 'نسخة 64 Public Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long #Else 'نسخة 32 Public Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long #End If بالمرفق الملف بعد التعديل SAMEH2.rar

عاشت ايدك

وعليكم السلام ورحمة الله وبركاتة ضع مرفق ووضح أكثر ::بالتوفيق::

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

قم بالذهاب إلى تنسيق شرطي ثم اختر إدارة القاعدة ومن إظهار قواعد التنسيق اختر ورقة العمل هذه لاحظ الصورة ثم الصورة الثانية ثم الصورة الثالثة ثم اضغط موافق لاحظ النطاق من E7 : E1007 بالنسبة للون انظهر الصورة بالمثل النطاق باللون الأحمر طبعًا ممكن بالمثل تختر نطاق لرقم التليفون وتتبع نفس الخطوات فقط تغير رقم 14 في المعادلة إلى 11 وتكتب بدلاً من E7 خلية بداية النطاق

أحسنت استاذ عبد اللطيف عمل رائع جعله الله فى ميزان حسناتك ورحم الله والديك

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

بارك الله فيك استاذ سليم دالة ممتازة

كان عليك من البداية ارسال ملف به بيانات وليس خالى من البيانات لكى يتم العمل عليه وكيف اعرف القوائم المنسدلة التى تريدها ومن اين مصادرها تفضل تم عمل المطلوب لما هو متاح من البيانات ملف الاحالات.xlsm

عليك بعمل باسورد لمحرر الأكواد وذلك عن طريق الضغط على Alt F11 ثم بعد ذلك الدخول لقائمة Tools واختار منها VBAprojectproperites ثم نختار Protection ونقوم بعد ذلك بكتابة كلمة السر التى تريدها على هذان السطران

تفضل جرب هذا دليل الهاتف - Copy.xlsm

اخى الكريم كما ترى المعادلتين يعملان بكل كفاءة اذا كان هناك مشكلة فمن عندك حاول تحلها

يمكنك متابعة هذا الرابط فمثل هذه البرامج تكون بمقابل وليس مجانية https://www.officena.net/ib/topic/76248-برنامج-شركة-ايجار-سيارات/?tab=comments#comment-488293 او عليك استخدام خاصية البحث فى المنتدى ولكن اكثر فى قسم الأكسيس بارك الله فيك وشرفتنا فى المنتدى

بارك الله فيك

تفضل ترتيب2.xlsm

وعليكم السلام الرابط لا يعمل كما ترى File Not Found The file you were looking for could not be found, sorry for any inconvenience Possible causes of this error could be: The file expired The file was deleted by its owner The file was deleted by administration because it didn't comply with our Terms of Use

بارك الله فيك اخى الكريم وجزاك الله كل خير ولك بمثل ما دعوت لى وزيادة والحمد لله الذى بنعمته تتم الصالحات

تفضل ترتيب.xlsm

تفضل المصنف1.xlsm

بالتصور و التطبيق برزت لنا حاجة بضرورة وجود وحدة نمطية لفحص الجداول المرتبطة ومعرفة عددها فكان لنا حاجة بهذه الوحدة الجديدة صممتها وسميتها ModCountLinks وخلفها نكتب : 'By Nart Lebzo for Officena.net Public Function CountLinks() Dim TblCount As Integer TblCount = 0 For Each tdf In CurrentDb.TableDefs ' If the table has a connect string, it's a linked table. If Len(tdf.Connect) > 0 Then TblCount = TblCount + 1 End If Next tdf CountLinks = TblCount 'MsgBox " عدد الجداول المرتبطة بقاعدة البيانات " & vbCrLf & CountLinks, vbExclamation, "Linked with Back End" End Function وهذه تقوم بالتعرف على الجداول المرتبطة و تمر عليها وتعدها كي نتمكن من التعرف على العدد و استخدامه لاحقاً وطبعاً يظهر لكم أنني عطلت ظهور الرسالة لبيان الخيار فقد تحتاج ظهور رسالة و قد لاتحتاجه ضمن الوحدة ، وقد تضمنه لأي كود ضمن النموذج مثلاً. و للحديث بقية ...... .............