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

وعليكم السلام 🙂 سؤالك هو: تظهر لك رسالة خطأ التالية: . ويكون المؤشر باللون الازرق في الكود على: . والحل هو: ان تعمل استبدال ctrl+h لجميع الكود : او تغيير اسم قاعدة بياناتك هنا ، الى اسم آخر غير عن Database او db او الاسماء المحجوزة للأكسس : . جعفر

نعم ممكن ومن اسهل الطرقلتنفيذ ذلك If Me![c_8].Caption = "نساء" Then Me.Type = "نساء" Me.c_8.Caption = "رجال" ElseIf Me![c_8].Caption = "رجال" Then Me.Type = "رجال" Me.c_8.Caption = "اطفال" ElseIf Me![c_8].Caption = "اطفال" Then Me.Type = "اطفال" Me.c_8.Caption = "نساء" End If وتفسيرة كما يلي اذا كانت تسمية زر الامر نساء اجعل قيمة النوع نساء غير تسمية الامر الى رجال اذا كانت تسمية الامر رجال اجعل النوع رجال غير تسمية الامر الى اطقال اذا كانت تسمية الامر اطفال اجعل النوع اطفال غير التسمية لزر الامر الى نساء وذلك للاستمرار في دورة تنفيذ الكود اغلق الشرط الملف مرفق Database1011.accdb

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

السلام عليكم تم حل الموضوع بعد التاكد من ملكية الحساب عن طريق البريد الإلكتروني مع الشكر و التقدير

جزاكم الله خيرا 🌹 احبكم الله الذى احببتمونا فيه جزاكم الله خيرا جزاكم الله خيرا 🌹 شكرا للتصحيح جزاكم الله خيرا 🌹😉 جزاكم الله خيرا 🌹😉

جزاكم الله خيرا استاذى الجليل واخى الحبيب 🌹 انتم النور كله والبهاء والحسن والجمال و يا استاذى الجليل لذلك عند مشاركتى كتبت ان هذه على طريقة المعقدين 😁

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

بعد اذن استاذى القدير الاستاذ @kha9009lid🌹 وهذه على طريقة المعقدين امثالي😀 Database1012.accdb

ربنا يبارك لك استاذنا والمعلم الجدير ورزقك اينما كنت

السلام عليكم امتداداً لتطويرات برنامج الخليل المحاسبي يسرني أهدي لكم الإصدار الثاني مع تعديلات وإضافات جميلة كما أشكر أستاذي الفاضل @sandanet لقد استفدت من طريقته في الحماية حسب مشاركته القيمة : اترك لكم البرنامج . وآملاً أن اتلقى ملاحظاتكم القيمة بعد استخدام البرنامج . تقبلوا فائق المحبة والتقدير BuySal20_V14.accdb BuySal20_V14.accdb.mdb.zip

السلام عليكم 🙂 اخواني ، الجميع يساعد في المنتدى بوقته وبدون مقابل ، وعندنا مثل يقول: حبة الزبيب ما تشبّع ، ولكنها تحلّي الفم 🙂 فرجاء خلونا نشجع الاعضاء في العطاء 🙂 لما تحصل على رد له قيمة ، فتشجيعا للعضو الذي يساعدك ، اخبر العضو بأنك مُعجب برده ، هكذا : . . ولما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة) : . شكرا 🙂 جعفر ومع الاعتذار لأخي احمد لإستخدام اسمه في المثال 🙂

قبل فتح التطبيق يتم فقط اضافة ملفات لتنسيقات الصوت والفيديو المختلفة داخل المجلد المرفق باسم sound files يا عينى ع الدلع او بعد فتح التطبيق يتم الضغط على زر الأمر تحديث المكتبة القسم الايمن من الشاشة هو التحكم فى مشغل الوسائط برنامج الميديا بلاير الجزء الاوسط هو التنقل بين الاذاعة الصوتية وتعمل اون لاين او مكتبة ملفاتك من المجلد Sound files واسفل قائمة التشغيل التى تحتوى على الملفات خصائص واعدادات التشغيل والتكرار حاجه دلع الجزء الايسر وهو خاص بالتحكم فى الصوت لجهاز الحاسوب بس خلاص اسف انا باتصفح من الجوال مش قادر اعمل تنسيق للموضوع اكتر من كده ولا عارف ارفق صور فى انتظار ردكم بعد التجربة وفى الختام اتوجه بكل الشكر والتقدير والعرفان بالجميل لكل اساتذتى جميعا واخوانى فى هذا الصرح الشامخ الذين اتعلم منهم دائما وابدا اخص بالشكر الاستاذ القدير @jjafferr 🌹 حيث اننى دمجت بهذا المرفق الكثير مما قدمه من أفكار وتوجيهات عبر اشهر وسنوات وكذلك الاستاذ القدير @ابوخليل 🌹 كذلك استخدمت هنا الكثير من الاكواد التى تعلمتها منه عبر اشهر سنوات وباقى كوكبة اساتذتى الفضلاء واخوانى كل الشكر لكم 🌹🌹🌹 Digital Player App.zip

تم بفضل الله تعالى التغلب على المشكلة وتم حلها بحمد الله وتم تعديل المرفق عدد السجلات للنموذج المستمر v.2.mdb

السلام عليكم اخوانى واساتذتى الكرام برجاء المساعده لعضو @صلاح بلعلا نسى كلمه السر الخاصه به وطلب كلمه السر ولم تصله وطلب المساعده عن طريق الفيس بريده alalaa30@hotmail.com https://m.facebook.com/groups/285194998167633?view=permalink&id=3024950580858714 @محمد طاهر تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

شكرا استاذ احمد واستاذ محمد للتصحيح فقط والخطأ كان مني تم حل الموضوع عن طريق الاستاذ محمد طاهر

جزاك الله خيرا استاذ @محمد طاهر نعم تم ابلاغى من قبل الاستاذ @صلاح بلعلا الان انه تم حل المشكله عن طريق استاذ احمد ماهر @محمد طاهر جزاكم الله خيرا

اخى واستاذى العزيز محمد @ابا جودى للتغلب على مشكله عدم ظهور البيانات بعد الحذف قمت بوضع الكود التالى كمصدر للسجلات عند الفتح Private Sub Form_Open(Cancel As Integer) strSql = "SELECT TOP 10 tblData.ID, tblData.[NO], tblData.Locatin, tblData.SecName, tblData.DepName, tblData.RegDate FROM tblData;" Me.RecordSource = strSql Call RecordCount Call RecordCount End Sub

والان ظهرت المشكله الحقيقيه بعد اغلاق النموذج لم تظهر البيانات 😀

جزاكم الله خيرا 🌹😉 اخى الحبيب واستاذى القدير استاذ @أحمد الفلاحجى

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

جزاك الله خيرا اخى واستاذى محمد @ابا جودى

تفضل Increment (1).xlsm

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

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

جزاكم الله خيرا 🌹😉 اخى الحبيب استاذ @كرار صبري _ أبو جنى

أحسنت ابا جودى جهد متميز 🌹

اتفضل 🌹 تحديد عدد السجلات التى يتم عرضها عدد السجلات للنموذج.mdb

اذا كنت من اعضاء معهد إدارة المشاريع ، فالمعهد يقدم ثلاثة دورات مجانية للأعضاء Project Management for Beginners Agile in the PMO Business Continuity https://lnkd.in/gpVeYaN https://lnkd.in/ghnuSDT https://lnkd.in/gqA4XF7

كيفية استخراج الجنس من الرقم القومى استخراج الجنس من الرقم القومى.xlsx

بارك الله فيك وزادك الله من فضله

تفضل ربما يكون ما تريد اخي الكريم ادخل التاريخ في العمود "C"وانقر بالماوس الايسر دوبل كليك مثلا تاريخ التعيين هو: 12/12/2014 النتيجة : 12/12/2016 12/12/2018 12/12/2020 اتمنى ان يكون ما تريد تحياتي Increment (1).xlsm

شاهد هذا الموضوع

السلام عليكم تفضل اخي العزيز هذا التعديل يخص رقم طلب التخزين حسب فهمي بالاضافة تم تعديل ID1 و Date1 كما هي في الجداول وكنت مضطر لتقليل الاكواد لا اكثر المهم تم التعديل واذا تحب انظر الكود في زر امر استلام للملف السابق والحالي بالنسبة للنموذج نعم ممكن فقط حوله من نموذج مستمر الى نموذج مفرد Root120.rar

السلام عليكم 🙂 1. رجاء انزل البرنامج المرفق ، ثم انسخ الكائنين منه الى برنامجك الرئيسي ، واحذف البرنامج المرفق ، ثم العمل على نسخة من برنامجك الاصلي ، 2. تأكد ان جميع النماذج مغلقه ، ثم افتح النموذج zfrm_Testing ، وانقر على الزر . 3. هذا سيعمل مجلدات في مجلد برنامجك ، وفي كل مجلد المرفقات التي به (حسب ID سجل برنامجك) ، وسيقوم بتصدير جميع مرفقاتك الى المجلدات : . 4. لما ينتهي البرنامج من تصدير الملفات ، سيعطيك رسالة Done ، 5. افتح النموذج Masttr Form2 ، وسترى المرفقات موجودة على يمين الشاشة (انظر للصورة في الاسفل) ، 6. المرفقات في الاعلى تابعة للنموذج الرئيسي ، والمرفقات في الاسفل تابعة للنموذج الفرعي (رجاء التاكد ان المرفقات صحيحة ، وهي نفسها الموجودة في برنامجك) : . انا لم اقم بعمل كود لحذف اي شيء من برنامجك ، اذا اردت ان تضيف مرفق جديد ، فتستطيع ان تمسكه من متصفح الملفات ، وتفلته Drag and Drop سواء في المجلد العلوي او السفلي ، البرنامج تلقائيا يضيف المجلدات. بعد ان تتأكد ان البرنامج يعمل بطريقة صحيحة ، تستطيع يدويا ان تحذف حقول المرفقات من جدوليك ، ثم استعمل ضغط واصلاح 🙂 هذا هو الكود الموجود في النموذج zfrm_Testing ، والذي يصدر المرفقات الى مجلدات و ملفات خارجية : Private Sub cmd_Export_Attachments_Click() On Error GoTo err_cmd_Export_Attachments_Click Dim rst_tbl As DAO.Recordset Dim rst_Att As DAO.Recordset Dim myDir As String Dim File_Name As String 'table name : [Mastr Table] 'Attachment filed name : [مرفقات] Set rst_tbl = CurrentDb.OpenRecordset("Select * From [Mastr Table]") While Not rst_tbl.EOF ' Loop through the table 'check if the Dir exists, if not, make it myDir = Application.CurrentProject.Path & "\Attachments" 'Attachments Call Make_Dir(myDir) myDir = myDir & "\Mastr_Table" 'Mastr_Table Call Make_Dir(myDir) ' myDir = myDir & "\" & rst_tbl![CUSTOMER COD] 'Customer_Code ' Call Make_Dir(myDir) myDir = myDir & "\" & rst_tbl!ID 'ID Call Make_Dir(myDir) Set rst_Att = rst_tbl.Fields("[مرفقات]").Value While Not rst_Att.EOF ' Loop through the attachments. ' File_Name = myDir & "\" & rst_tbl!ID & "_" & rst_Att.Fields("Filename") 'ID and Attachment names ' rst_Att.Fields("FileData").SaveToFile File_Name ' Save current attachment rst_Att.Fields("FileData").SaveToFile myDir rst_Att.MoveNext Wend 'rst_Att rst_tbl.MoveNext Wend 'rst_tbl '' ' '[Payment Table] '[مرفقات] Set rst_tbl = CurrentDb.OpenRecordset("Select * From [Payment Table]") While Not rst_tbl.EOF ' Loop through the table 'check if the Dir exists, if not, make it myDir = Application.CurrentProject.Path & "\Attachments" 'Attachments Call Make_Dir(myDir) myDir = myDir & "\Payment_Table" 'Mastr_Table Call Make_Dir(myDir) ' myDir = myDir & "\" & rst_tbl![CUSTOMER COD] 'Customer_Code ' Call Make_Dir(myDir) myDir = myDir & "\" & rst_tbl!ID 'ID Call Make_Dir(myDir) Set rst_Att = rst_tbl.Fields("[مرفقات]").Value While Not rst_Att.EOF ' Loop through the attachments. ' File_Name = myDir & "\" & rst_tbl!ID & "_" & rst_Att.Fields("Filename") 'ID and Attachment names ' rst_Att.Fields("FileData").SaveToFile File_Name ' Save current attachment rst_Att.Fields("FileData").SaveToFile myDir rst_Att.MoveNext Wend 'rst_Att rst_tbl.MoveNext Wend 'rst_tbl rst_tbl.Close: Set rst_tbl = Nothing rst_Att.Close: Set rst_Att = Nothing Exit_cmd_Export_Attachments_Click: MsgBox "Done" Exit Sub err_cmd_Export_Attachments_Click: If Err.Number = 3420 Then 'ignore rst not there Resume Next ElseIf Err.Number = 3839 Then 'file exists Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Public Function Make_Dir(Dir_Name As String) As Boolean 'Make_Dir = True ' a new Directory was made 'Make_Dir = False ' the Directory Exists 'check if the Dir exists, if not, make it If Dir(Dir_Name, vbDirectory) = "" Then MkDir Dir_Name Make_Dir = True ' a new Directory was made End If End Function . وهذا كود لحدث الحالي والذي يُظهر المرفقات في كائن webbrowser في النموذج Masttr Form2 : Dim myDir As String 'Mastr_Table, Dir exists, if not, make it myDir = Application.CurrentProject.Path & "\Attachments" 'Attachments Call Form_zfrm_Testing.Make_Dir(myDir) myDir = myDir & "\Mastr_Table" 'Mastr_Table Call Form_zfrm_Testing.Make_Dir(myDir) myDir = myDir & "\" & Me!ID 'ID Call Form_zfrm_Testing.Make_Dir(myDir) 'Payment_Table, Dir exists, if not, make it myDir = Application.CurrentProject.Path & "\Attachments" 'Attachments Call Form_zfrm_Testing.Make_Dir(myDir) myDir = myDir & "\Payment_Table" 'Payment_Table Call Form_zfrm_Testing.Make_Dir(myDir) myDir = myDir & "\" & Me!ID 'ID Call Form_zfrm_Testing.Make_Dir(myDir) 'specify that the browser is an object in the Form Set web = Me.objIE.Object Set web_2 = Me.objIE_2.Object 'Master, Open/Navigate the page myDir = Application.CurrentProject.Path & "\Attachments" 'Attachments myDir = myDir & "\Mastr_Table" 'Mastr_Table myDir = myDir & "\" & Me!ID web.Navigate myDir 'Payment, Open/Navigate the page myDir = Application.CurrentProject.Path & "\Attachments" 'Attachments myDir = myDir & "\Payment_Table" 'Mastr_Table myDir = myDir & "\" & Me!ID web_2.Navigate myDir جعفر 1195.zip

السلام عليكم تفضل أخي الملف المرفق ترحيل على رقم الفوج.xlsm

جميل جدا اباجودي 💐💐😍 جزاك الله خيراً

برنامج أكثر من رائع لقد جربته و يعمل بشكل ممتاز بارك الله فيك و في عملة

السلام عليكم ورحمة الله وبركاته ... جهد مبارك و لأن رابط إذاعة القرآن الكريم من القاهرة قديم وتوقف فإليكم رابط الجديد http://178.33.178.204:9322/; ورابط آخر http://ample-06.radiojar.com/0tpy1h0kxtzuv?rj-ttl=5&rj-tok=AAABcQwlHV0AEsYA5Ok8pvFxjQ

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

وعليكم السلام اتفضل مثال على ما تريد استفد منه كما تريد وجزاه الله خيرا صاحبه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق مثال - هذا النموذج يمرر السجلات بكتل متوالية 10 سجلات في كل كتلة.mdb

السلام عليكم هذا نموذج فاتورة باللغة الفرنسية يمكن تعديلها حسب الحاجة( منقول للأمانة ) قمت بإزالة حماية VB فعند ظهور علبة الحوار اضغط OK دون كتابة شيء أرجو إفادة الجميع ____________1.rar

أخى سليم مشكور على الاضافة أنا لا أقصد من الدالة مجرد الفصل بين الاسماء ولكن أقصد استخلاص اسم محدد من اسم الشخص لو عندى اسم بالشكل ده : عبد الله عبد الرحمن نور الدين عبد الحافظ الكود الذى تفضلت به لا يمكنه استخلاص اسم الأب فقط أو الجد فقط أو اللقب فقط أرجو أن تكون الصورة واضحة الاخ خليل معذرة الموضوع متكرر تفضل Mokhtar Family New UDF.rar

جرب هذا الملف Split_names.rar أو يمكن استعمال هذا الماكرو من سطر واحد Sub Split_Names() Range("A2:A" & Cells(Rows.Count, "A").End(3).Row).TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Space:=True End Sub

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف CHEQUES PROGRAM.rar و لا تنسونا من صالح الدعاء تحياتى

الدالة OFFSET تستخدم للبحث عن محتوى خلية معينة بالإعتماد على التالي: 1- المرجع والذي يتم تحديده في الجزء الأول من الصيغة ويكون عبارة عن عنوان خلية A1 أو B1 أو غيرها. 2- رقم الصف والذي يتم تحديده في الجزء الثاني من الصيغة ويكون عبارة عن رقم صحيح أو رقم ناتج عن صيغة معينة. 3 - رقم العمود والذي يتم تحديده في الجزء الثالث من الصيغة ويكون عبارة عن رقم صحيح أو رقم ناتج عن صيغة معينة. وللتوضيح أكثر:- - المرجع يكون عبارة عن خلية داخل ورقة العمل ينطلق منها البحث. - رقم الصف هو عبارة عن عدد الصفوف المُراد تخطيها من صف المرجع حتى الوصول إلى الخلية المُراد معرفة محتواها .. - رقم العمود هو عبارة عن عدد الأعمدة المُراد تخطيها من عمود المرجع حتى الوصول إلى الخلية المُراد معرفة محتواها .. كيفية تحديد أرقام الصفوف والأعمدة:- 0 >> يستخدم في الصف والعمود عندما يكون الخلية المُراد الوصول إليها تقع في نفس صف أو عمود الخلية المرجع. 1 >> يستخدم في الصف والعمود للتقدم عمود واحد أو صف واحد إلى الأمام إبتداءً من الخلية المرجع .. وهكذا. -1 >> يستخدم في الصف والعمود للرجوع عمود واحد أو صف واحد إلى الخلف إبتداءً من الخلية المرجع .. وهكذا. أتمنى أن يكون هذا الشرح واضحاً .. والمرفق يحتوي على بعض الأمثلة عما تحدثنا عنه، ______________OFFSET.rar