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

نعم لائحة أسماء دون تكرار ومرتبة أبجدياً بدون ماكرو ولا فلتر فقط (معادلات) اللائحة تتجاهل الفراغات و الارقام (فقط نصوص) لرؤية المعادلات يكفي رفع الحماية عن الشيت/ بدون كلمة مرور ترتيب ابجدي.xlsx

يسألونك دائماً عن ملف الصادر والوارد فكان هذا الملف الذي ارجو ان يستفيد منه اكبر عدد من المستخدمين فقط املأ الجدول بالبيانات اللازمة و حدد صفحة الترحيل واضغط على الزر من مميزاته: لا يسمح لك بتكرار رقم الصادر او الوارد لا يسمح لك بترحيل بيانات غير مكتملة Sader_Wared.xlsm

اخي الكريم انظر للصورة ثم الشرح هو أن الكود المصدري مع الكود الوسيط يتم حفظهما معاً ضمن ملف قاعدة بيانات الأكسس ذي اللاحقة mdb (أو accdb). بعد أن تكتب الكود المصدري بلغة VBA، يتم تجميعه compiled إلى كود وسيط يسمىp-code. عندما يعمل تطبيق قاعدة البيانات، ويستخدم أكواد VBA، تتم ترجمة هذا الكود الوسيط وتنفيذ الكود بواسطة الأكسس، ولذلك تحتاج إلى وجود الأكسس دوماً (أو على الأقل إلى وجود المكونات التي تقوم بالترجمة). السؤال الذي يطرح نفسه هنا هو التالي: مع ملاحظة أن الكود المصدري بلغة VBA قد تمت ترجمته إلى الكود الوسيط p-code ، ألا يعني هذا أن بإمكاننا الآن أن نتخلص من الكود المصدري، ونحتفظ بالكود الوسيط، ولن نخسر شيئاً؟ الجواب: بلى، بإمكاننا أن نتخلص من الكود المصدري، لكن هذا يعني أننا لن نستطيع القيام بأي تعديلات في الكود لاحقاً. في الحقيقة، الأكسس يوفر لنا هذه الخاصية من أجل حماية الكود المصدري من التعديل، وتقليص حجم ملف قاعدة البيانات. يتم ذلك عبر تحويل كل الأكواد المصدرية في الملف إلى كود وسيط p-code، ثم التخلص من الكود المصدري، وضغط الملف بعدها وتحويل الامتداد إلى mde (أو accde) بدلاً من mdb. ومن هنا تعرف السر في أنك لا تستطيع الاطلاع على أكواد ملفات mde، مع أن التطبيق يعمل بشكل كامل.

هل جربت ملفى المرفق بالاعلا . كما ذكر الاخ @Shivan Rekany تمت الاجابه على جميع تساؤلاتك السابقة

السلام عليكم ورحمة الله وبركاته جمعة مباركة دالة لاضافة صور الى نموذج معين من فولدر المطلوب فيها اسم الصورة واسم الشكل التلقائي الذي تريد اظهار الصورة فيه ملاحظة مهمة : عند تعيين الخلية اللي فيها اسم الصورة يجب ان يكون ملحوق باسم الورقة مثلا =kh_AddPicture(Sheet1!H2;"myimg1") كود الدالة : Option Explicit Option Compare Text '''اسم مجلد الصور Private Const kh_pic As String = "MyImeg" Function kh_AddPicture(MyRng As Range, iName As String) Dim MyFile As String On Error GoTo 1 MyRng.Worksheet.Shapes(iName).Fill.Solid MyFile = ThisWorkbook.Path & "\" & kh_pic & "\" MyFile = MyFile & "\" & CStr(MyRng) & ".jpg" If Not Dir(MyFile, vbDirectory) = vbNullString Then MyRng.Worksheet.Shapes(iName).Fill.UserPicture MyFile End If 1 kh_AddPicture = "" End Function هو طلب لاحدهم وجعلته هنا لتعم الفائدة المرفق اكسل 2003 اكسل 2007 دالة لاضافة صور الى نموذج معين من فولدر.rar =================================================== ملحوظة ارجوا من الذين حملوا المرفق هذا يغيروا كود الدالة الى الكود المعدل ادناه =================================================== تم تعديل الدالة لتشمل صيغ الصور التي تريدها كود الدالة الجديد Option Explicit Option Compare Text '============================================= '============================================= ' اسم مجلد الصور ' اذا كان مجلد الصور في نفس مجلد ملف الاكسل ' اكتب اسمه فقط ' والا اكتب المسار كاملا ' "D:\MyDocument\MyFunction\photo" Private Const kh_pic As String = "MyImeg" '============================================= ' امكانية تحرير اي نوع من الصور لديك ادناه Private Const MyTyp As String = ".jpg,.bmp,.gif,.png,.tif" '============================================= '============================================= Function kh_AddPicture(MyRng As Range, iName As String) Dim Tp Dim MyShap As Shape Dim MyFile As String, MyPath As String Dim ibo As Boolean '----------------------------------------- On Error Resume Next Set MyShap = MyRng.Worksheet.Shapes(iName) If iName = "" Or Err Then Err.Clear: GoTo 1 '----------------------------------------- MyShap.Fill.Solid If Not InStr(kh_pic, ":") Then MyPath = ThisWorkbook.Path MyFile = MyPath & "\" & kh_pic & "\" & CStr(MyRng) '----------------------------------------- For Each Tp In Split(MyTyp, ",") If Not Dir(MyFile & Trim(Tp), vbDirectory) = vbNullString Then MyShap.Fill.UserPicture MyFile & Trim(Tp) ibo = True Exit For End If Next '----------------------------------------- 1: Set MyShap = Nothing kh_AddPicture = ibo End Function المرفق اكسل 2003/2007 دالة لاضافة صور من مجلد الى شكل تلقائي.rar

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

خرج اللي في دماغك اولأ هههههههههههههه

تم تصحيح الخطا الاكسيل "أنثى " المشكل في الهمزة فقط شكرا لك

أسمح لي أستاذنا @ابو ياسين المشولي برفع الملف النهائي حتى يستفيد منه الأعضاء لأنه مهم جداً واتمنى أن يتم تثبيت الموضوع الملف عبارة عن: فورم بحث بالأكواد عن صنف عبر ثلاثة أحتمالات أما حقلين تاريخ أو حقل نص أو قائمة منسدلة يتم عرض النتائج من خلال فورم فرعي ويمكن عرضة كتقرير بالأكواد في حالة المعاينة قبل الطباعة الملف بالمرفقات: SearchRpt(6).accdb

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

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

لانه يحمي جميع الكودات وعندما تقول بعمل accde لن تستطيع ان تنفذه اذا وجد كود خاطي

اتفضل On Error GoTo Err_أمر24_Click If MsgBox(" هل انت متأكد ؟", _ vbCritical + vbYesNo, _ "تنبيه") = vbNo Then Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.البرنامج.SetFocus End If Exit_أمر24_Click: Exit Sub Err_أمر24_Click: MsgBox Err.Description Resume Exit_أمر24_Click

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

شكرا لك استاذي العزيز تعبتك معي

اتفضل DoCmd.OpenReport "Sersh_rpt", acViewReport, , Left(Nz([datemod], 0), 50) & "[datemod] Between date1 And date2"

تعرف ما هو الخطأ عندك القي نظرتا الى الكود Private Sub أمر26_Click() On Error GoTo ErrorHandler Dim fs, cf, strFolder strFolder = "E:\الرواتب" & Format(Now(), " dd-mm-yyyy ") ' اريد ان يظهر بجانب اسم المجلد تاريخ اليوم لكن هذا الكود لايعمل Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then Set cf = fs.CreateFolder(strFolder) End If Dim strReport As String Dim strFileName As String strReport = "report" strFileName = "E:\الرواتب\رواتب الموظفين" & Format(Now(), " dd-mm-yyyy ") & ".pdf" DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strFileName, False MsgBox " تم حفظ تقرير الرواتب " & Format(Now(), " dd-mm-yyyy "), vbInformation, " E - تم الحفظ في القسم" Exit Sub ErrorHandler: MsgBox "لم يتم حفظ التقرير رجاءا", 16, " تنبيه " End Sub القي نظرتا الى هذه الجملة فيه ليس هناك اي مشكلة و بيعمل لك الفولدر هكذا strFolder = "E:\الرواتب" & Format(Now(), " dd-mm-yyyy ") لكن حضرتك بيقول اعمل تقرير في هذا الفولدر strFileName = "E:\الرواتب\رواتب الموظفين" & Format(Now(), " dd-mm-yyyy ") & ".pdf" اي قرص اي في فولدر "E:\الرواتب\رواتب الموظفين" وليس هناك فولدر باسم رواتب الموظفين اي اذا يجب ان تعمل فولد رواتب الموظفين ايضا كما تعمل فولدر الرواتب او يجب ان تحذف رواتب الموظفين

وفقك الله

شكراً جزيلاً كثيراً جداً جداً جداً بارك الله بكَ وأرجو ان يكون في ميزان حسناتك حرسك الله و والدك الأمور صارت ببركة جهودكم تمام

أخي الكريم .... عدل الكود ليماثل اسم النموذج عندك ... و احذف جملة الحدث ... Me.(اسم النموذج كما هو في سطر الحدث).Form.AllowDeletions = False End Sub

هناك مشكلة واحدة وهو صناديق كل الاصناف ليس لديهم فقط 8 دزينة ( علبة ) اي هناك احتمال رقم اكبر او اقل و كل دزينة ( علبة ) احتما يكون فيها اكثر او اقل من 12 قطعة لكن اذا رأيت هذا الموضوع مهمة و سأل عنه راح اعمل مثال للتجربة و اشرح عن كيفية العمل باذن الله

تم الجواب على كل النقاط الاعلاه من قبل استاذ @kanory ويتم عمل الفولدر و التقرير في مجلد E وتقدر تتغيره الى اي مكان تريد

السلام عليكم .... إليك هذا الكود Private Sub FORM_subform_Enter() Me.FORM_subform.Form.AllowDeletions = False End Sub ضفعه في النموذج الفرعي في حدث ENTER الشكر لموقع BYTES

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

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

هذه صورة من جهازي .... ليس هناك مشكلة .... ربما اشكالك في برنامج قاري الـ pdf لديك .

يمكنك مشاهدة هذا البرنامج ACCOUNT SOFTWARE W-COST CENTERS - V1.1.rar

جرب هذا test (1).accdb

شكرا لك يا غالي الان يعمل ممتاز واضفت علية ايضا رفرفش اضافي في حالة تحقق الشرط وهو امر استفدت منك في موضوع اخر Private Sub QSold_AfterUpdate() If IsNull(Me.QSold) Then Me.Refresh ElseIf IsNull(Me.itemName) Then MsgBox " الحقل فاضي" Me.QSold = "" Undo Me.Refresh ElseIf [QSold] >= [QAvilable] Then MsgBox " الكمية االمتاحة لا تكفي" Me.Refresh Else Me.Refresh End If End Sub

اتفضل If IsNull(Me.QSold) Then Me.Refresh ElseIf IsNull(Me.itemName) Then MsgBox " الحقل فاضي" Me.QSold = "" ElseIf [QSold] >= [QAvilable] Then MsgBox " الكمية المتاحة لا تكفي" Me.Refresh End If

ابو ياسين اعتقد انك تقصد كذا If IsNull(Me.QSold) or [QSold] > [QAvilable] Then undo MsgBox " الكمية المتاحة لا تكفي" Me.Refresh end if لانه اصغر او يساوي يجب ان يعمل

السلام عليكم تم التعديل واتمنى يكون هو مطلوبك test5.rar

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

أهلاً أخي لم أجرب عملها من قبل و سأحاول إن شاء الله .

انظر التعديل طبعا اختلفت الرؤية حسب الحاجة المهم ان الوحدة المعتمدة في البيع والشراء هي الحبة لما تسجل عدد كرتون في حقل الشراء يجب ان يدرج في حقل الحبة "qtyin" العدد (حبات) والعلبة غير مهم ولما يسجل في جدول البيع كرتون او علبة او حبة يجب ان يدرج في حقل الحبة "qtyout" العدد (حبات) اذا اردت الارصدة حسب كل مخزن فقط ادرج حقل المخزن في الاستعلام رصيد الاصناف4.rar

هذه المعادلة في G11 =IF(COUNTIF($E$11:E11,E11)>1,"",SUMPRODUCT(($A$2:$A$8=E11)*($B$2:$B$8)))

إضافة جديدة .... تتعلق بالتراجع altered.mdb

عند التجربة لم يُبَدِ لدي هذا الخطأ لذلك لم أتداركه . و قد تمت معالجة المشكلة أما بالنسبة للمشكلة الثانية لو انتبهت أخي الكريم إلى مربع ID ستجد أنك انتقلت إلى سجل آخر يكون التاريخ فيه ٦/١٠ أو ٤/١٠ أو غيره و يمكن التأكد من خلال أزرار التنقل حيث يظهر رقم السجل . لقد أضفت بعد التعديلات التي ستحتاجها في برنامجك النهائي altered.mdb

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

أخي العزيز جرب هذا ... Private Sub YOURFIELD_KeyDown(KeyCode As Integer, Shift As Integer)' يمنع حذف محتويات حقل If KeyCode = vbKeyDelete Then KeyCode = 0 End If End Sub ============================= Private Sub YOURFORM_KeyDown(KeyCode As Integer, Shift As Integer)' يمنع حذف السجلات If KeyCode = vbKeyDelete Then KeyCode = 0 End If End Sub من الصدف أنني أبحث عن هذا الموضوع منذ بضعة أيام .... و منذ بضع دقائق وجدت الحل !!!! أخي الفاضل لو نجح لديك الأمر فدعوة لوالدي .

جزاك الله الف خير استاذ ابو زاهر

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

لم افهم ماذا تعني بــــ يجب ان يتساوى ارقام العمودين حمل جدول بالنتائج المتوقعة

السلام عليكم الارقام مكررة يجب ان يتساوى ارقام العمودين المصنف1.rar

سؤالك غير مفهوم ..... هل تريد في النموذج الفرعي فقط 5 سجلات أم ماذا تريد بالضبط .... ماذا تقصد بخمس سنوات ... بارك الله فيك

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

بالنسبة للمطلوب الثاني لماذا لا يتم سحب البيانات التي تريدها من الجدول العام للطلاب أقصد جداول الطلاب أظن موقع نور يقوم بتصدير بيانات جداول الطلاب

ممكن جزء من البرنامج والروابط بها

استخدم هذا الكود قبل تشغيل الاستعلام DoCmd.RunCommand acCmdSaveRecord

ممكن ذلك ترتيب ابجدي.New.xlsx