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

جرب الكود التالي مع تغيير text1 الى اسم مربع النص بالنموذج لديك Private Sub cmdInsertPic_Click() If Dir("\\TOSHIBA\careitems\" & text1 & ".jpg") <> "" Then If MsgBox("الملف موجود هل تريد الاستبدال", vbYesNo) = vbNo Then Exit Sub End If Application.FileDialog(3).Show FileCopy Application.FileDialog(3).SelectedItems(1), "\\TOSHIBA\careitems\" & text1 & ".jpg" End Sub بالتوفيق

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

في حقل جديد من الاستعلام اكتب مجموع: Val(Nz([Arabic_t1_med];0))+Val(Nz([Mathe_t1_med];0))+Val(Nz( [dirasat_t1_med];0)) +Val(Nz( [Scienc_t1_med] ;0))+Val(Nz( [English_t1_med];0)) استخدمنا val لكي يخرج لنا قيمته واستخدمنا مع nz لكي يحول لنا الفراغات الى اصفار واليك ملفك بعد تعديل 020 - Copy.rar

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

طبعا اخي رمهان فشغل الخبراء امثالك لاغنى عنه حتى وان حلت جميع مشاكل الاكسس في العالم نظل بحاجة الى حلولكم السحرية دائماً تحياتي

استاذن من استاذنا @صالح حمادي اتفضل استخدمت هذا الكود في حقل جديد من الاستعلام eee: IIf(IsNull([Arabic_t1_med]);"ادخل الدرجة لمادة العربية";IIf([Arabic_t1_med]="غ";"غ";IIf(Val([Arabic_t1_med])<10;"دون مستوى";IIf(Val([Arabic_t1_med]) Between 10 And 12;"مقبول";IIf(Val([Arabic_t1_med]) Between 13 And 14;"جيد";IIf(Val([Arabic_t1_med]) Between 15 And 16;"جيد جدا";IIf(Val([Arabic_t1_med])>16;"ممتاز"))))))) واليك ملف بعد تعديل Copy of 016.rar

قم اخي الكريم بارفاق ملف كمثال ليمكن التعامل معه بشكل اوضح ولرفع الملفات ستخدم المحرر الكامل ثم اضغط ملفك واختار من تبويب ارفاق الملفات بالاسفل ((اختر ملفات )) ثم حدد مكان الملف من علي الجهاز عندك قم موافق (( لابد ان يكون الملف مضغوط)) باحد برامج الضغط واشهرها Winare ولا تتجاوز مساحة الملف 1.95 ميجابايت وان كان اكبر من ذلك قم برفعه علي اي موقع رفع ملفات وضع الرابط بالمشاركة كما في الصورة علي الرابط التالي https://www.officena.net/ib/topic/46745-طلب-مساعدة-كيفية-رفع-الملفات/#comment-280436 تقبل خالص تحياتي

المطلوب عند كتابة حرف يظهر الاسماء لاختيار الاسم المطلوب يوجد مشكلة مثلا مع اسم احمد البحث مابين سطر 7 وسطر 26 إذا ذاد او نقص يرسل رسالة بعدم البحث الا بين النطاقين 7 و 26 ومراجعة باقى CommandButton من مسح واضافة ولكم جزيل الشكر مواضيع.rar

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

اخ واستاذي @صالح حمادي ممكن تتغير عنوان الموضوع لان هذه العنوان مثل هذا انا حسبته انه مكرر لذا ما فتحت تحياتي

السلام عليكم لحل المشكلة أتبع الخطوات التالية: 1- أذهب إلى الجدول "طلب التحويل" و غير نوع الحقل "المبلغ" من رقم إلى عملة. 2- اذهب لخصائص مربع نص المبلغ في النموذج و بالتحديد خاصية تنسيق في التبويب تنسيق و اتركها فارغة تحولات بنكية .rar

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

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

هل عدد المواد ثابتة اي هو 5 مواد فقط هل تريد تتعدد مواد الرسوب و الغياب او تريد اسماءه

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

تسلم جدآآآآآآآ ربنا يخليك و معلش هتعبك معايا الفترة الجايا دي :D

اولا ابدأ بالجداول المطلوب عمله حسب عملك وبعدين ارفق قاعدة اللي بها الجداول لكي نساعدك تحياتي

مافهمت قصدك

تفضل Dim rs As Recordset Dim db As Database Set db = OpenDatabase("D:\backup\project.accdb") Set rs = db.OpenRecordset("projectFiles", dbOpenDynaset) rs.MoveFirst rs.MoveLast Rcont = rs.RecordCount Set rs = Nothing Set db = Nothing باعتبار Rcont هو متغير رقمي / أو اسم حقل في النموذج

معليش خلينا نحدد اعلاه اكثر 1. تعديل قيمه بجدول 2. تعديل عنوان label 3. عن طريق باتش يتم تحميله من النت هل هذا المطلوب بالتمام ؟

السلام عليكم استاذى @Shivan Rekany بارك الله فيك اخى ومعلمى الفاضل هذا بالفعل هو المطلووووب بارك الله فيك

اهلا بك اخ @ali2008x في منتداك ط منتدى اوفيسنا" اولا : اخي العزيز غير عنوان الرسالة من "اريد مساعدة من فضلكم " الى جملة مختصرة لطلبك مثلا " طرح في جدول " لكي لا يخالف القوانين المنتدى ثانيا : ماتريد بالضبط اشرح بالتفصيل اي اي حقل بيكون طرح من اي حقل و بيجمع بأي حقل اكتب اسماءه كمثال رياضية وثالثا : تكدر تفتح جدولك في وضع تصميم وتغير خاصية حقل Vacations Balance الى Calculated وفي خاصية Expression اكتب المعادله‌ او اشرح لننا ماتريد وارفق القاعده‌ تحياتي لك اخوك شفان ريكاني

DoCmd.RunSQL "delete from kaedabyanat in 'C:\Users\SYSTEM_KADASI.zip' where table1.id=3;" بعد اذن اخي الاستاذ شيفان جرب الكود اعلاه مع تغيير اسم الجدول وحقل الشرط ومسار القاعده ولم استطع فتح القاعده لانها محوله الى نسخة تنفيذيه بصيغة 32 بت وانا لدي 64 بت والذي يعترض فتح الملفات المنشاه ب 32 بت تحياتي

اخي كاسر جرب ان تضع الكود التالي خلف الزر ادخل الصوره Private Sub cmdInsertPic_Click() Application.FileDialog(3).Show FileCopy Application.FileDialog(3).SelectedItems(1), "\\TOSHIBA\careitems\hi.jpg" End Sub ثم تاكد انها انتقلت للجهاز الاخر . لا تتاكد بانه تم عرض الصوره في المربع وانما التاكد بالذهاب للجهاز السيرفر او التي به الجداول كنت اتمنى ان المرفق احتوى على واحد من الجداول المربوطه تحياتي

استاذ صابر هل المرفق السابق تقصد به معلومه وانه تم المطلوب . ام مازال الطلب قائم تحياتي اخي اوس بالعكس مرفقك جميل وقيم وبه المطلوب . ولكن فقط ساحاول الاختصار وما ساشارك به هو نفس فكرتك تقبل تحياتي

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

حاولت لكن بدون جدوى ما اظن تكدر تعمل والقاعدة الخارجية مضغوطة في برامج زيب

اضف الى الكود * 0.5 اي الكود سيتغير الى DoCmd.MoveSize Height:=Me.WindowHeight - (Me.ÊÝÕíá.Height * 0.5)

اتفضل استخدمت هكذا If Arab1 < 50 And Arab1 >= 25 Then ForeColor = 3 Me.FillStyle = 6 Me.FillColor = 14079702 DrawWidth = 5 Me.Circle (Me.Arab1.Left + (Me.Arab1.Width / 2.4), Me.Arab1.Top + (Me.Arab1.Height / 2.2)), 330 ElseIf Arab1 < 25 Then ForeColor = 3 Me.FillStyle = 6 Me.FillColor = 14079702 DrawWidth = 5 Me.Circle (Me.Arab1.Left + (Me.Arab1.Width / 2.4), Me.Arab1.Top + (Me.Arab1.Height / 2.2)), 330, , 3 End If واليك ملف الق نظرة الى مادة عربي وللعلم نستخدم رقم 1 الى 6 للدائرة مكتملة اي واحد قليلة و 6 مكتملة تحياتي تقرير دائرة للراسب (2).rar

السلام عليكم جرب هذا الكود If Arabic_t1_med = "غ" Then MsgBox "غ" If Arabic_t1_med >= 17 Then MsgBox "ممتاز" ElseIf Arabic_t1_med >= 15 Then MsgBox "جيد جدا" ElseIf Arabic_t1_med >= 13 Then MsgBox "جيد" ElseIf Arabic_t1_med >= 10 Then MsgBox "مقبول" ElseIf Arabic_t1_med < 10 Then MsgBox "دون الوسط" End If

شاهد المرفق التالي فهو بنفس الفكرة التي تطلبها او قم اخي الكريم بتصميم الفورم بالشكل الذي تريده ( نظرا لضيق الوقت فقط ) وسوف اقوم ان شاء الله بوضع اكواده لك شاهد المرفق وابلغنا بالنتائج تقبل خالص تحياتي طلب كود استدعاء بيانات فاتورة.rar

عذرا اخي الكريم / ناصر ... لم افهم المطلوب تماما او اختلط علي الامر كيف تقوم بتشغيل الكود الاول ( منع طباعة اوراق محددة سواء مرئية أو مخفية ) وتقوم بتشغيل الكود الرابع ( طباعة اوراق محددة سواء مرئية أو مخفية ) في نفس الوقت .. فكيف لي المنع والطباعة في آن واحد وهل هناك شرط معين للقيام بتنفيذ عملية الطباعة مثلا ام ماذا تقبل خالص تحياتي

بسم الله الرحمن الرحيم وبه نستعين أخى وأستاذى الفاضل / حماده عمر " ابوسما " السلام عليكم ورحمته الله وبركاته شاكر لكم اخى اهتمامكم بالموضوع فجزاكم الله تعالى خير الجزاء معلشى الموضوع محير بعض الشيىء المشكلة اننى اريد اخفاء كامل المصنف باستثناء ورقتين فقط الظاهرين أمام حضرتك بالمرفق التالى منهم عدة أوراق دون طباعة مع الاخفاء ومنهم عدة اوراق طباعة مع الاخفاء وهى الاوراق من STOR 1 حتى STOR 10 لديك بالمرفق التالى أربعة أكواد الاول لمنع طباعة اوراق محددة سواء مرئية أو مخفية وهو ويعمل بطريقة ممتازة Sub printsheets() ' لمنع صفحات محددة من الطباعة سواء مرئية أو مخفية Dim dontPrint As Object Dim ws As Worksheet Set dontPrint = CreateObject("Scripting.Dictionary") dontPrint.Add "List", 1 dontPrint.Add "Add", 2 dontPrint.Add "Main store", 3 dontPrint.Add "Search", 4 dontPrint.Add "Archives", 16 dontPrint.Add "Collection items", 17 dontPrint.Add "Suppliers", 18 dontPrint.Add "Customers", 19 For Each ws In ActiveWorkbook.Worksheets If dontPrint.Exists(ws.Name) Then Else ws.PrintOut End If Next ws End Sub الثانى لطباعة الاوراق المخفية فقط وهو يعمل أيضا بطريقة ممتازة " للإستفاده من عمل الكود " Sub PrintOnlyHiddenWorksheets() ' لطباعة الاوارق المخفية فقط Dim CurVis As Long Dim sh As Worksheet For Each sh In ActiveWorkbook.Worksheets With sh CurVis = .Visible If CurVis >= 0 Then .Visible = xlSheetVisible .PrintOut .Visible = CurVis End If End With Next sh End Sub الثالث لطباعة الاوراق المرئية والمخفيه معا وهو ايضا يعمل بطريقة ممتازة " للإستفاده من عمل الكود " Sub PrintHiddenAndVisibleWorksheets() ' لطباعة الاوراق المخفية والمرئية معا Dim CurVis As Long Dim sh As Worksheet For Each sh In ActiveWorkbook.Worksheets With sh CurVis = .Visible .Visible = xlSheetVisible .PrintOut .Visible = CurVis End With Next sh End Sub نأتى للكود الرابع والمعنى بالاضافة أو التعديل الذى تفضلت سيادتكم بتعديله Sub Test() 'تعديل الاستاذ الفاضل / حمادة عمر ابو سما Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In Sheets(Array("Stor10", "Stor9", "Stor8", "Stor7", "Stor6", "Stor5", "Stor4", "Stor3", "Stor2", "Stor1")) sh.Visible = xlSheetVisible If Application.WorksheetFunction.CountBlank(sh.Range("A10:V5000")) <> sh.Range("A10:V5000").Count Then sh.PrintOut sh.Range("A10:V5000").ClearContents ' اضفت هذا السطر لمسح محتوى الجدوال بعد الطباعة sh.Visible = xlSheetHidden End If Next sh Application.ScreenUpdating = True End Sub والسؤال كيف يمكن عمل توافق بين الكود الاول والكود الرابع كمصفوفه بين منع الطباعة مع الاخفاء وبين طباعة المصفوفة مع الاخفاء ملحوظة هذا الموضوع مرتبط بموضوع خاص بكم تم رفعه ولكن لم يرد الرد من سيادتكم حتى الان نرجو الاطلاع والافادة بإذن الله من فضلك إضغط هنا شاكر فضلك وشاكر فضل كل من يساهم فى هذا الموضوع وجزاكم الله جميعا خير الجزاء طباعة اوراق محددة مع الاخفاء + منع طباعة اوراق مع الاخفاء.xlsb.rar

السلام عليكم الاخ الكريم / ناصر المصري تقبل خالص تحياتي قم بتعديل الكود الخاص بالطباعة الي الكود التالي ( والفكرة هي اظهار الملفات للطباعة اولاً ثم اخفاءها مرة اخري بعد الانتهاء من الطباعة ) Sub Test() Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In Sheets(Array("ورقة1", "ورقة2", "ورقة3", "ورقة4", "ورقة5", "ورقة6", "ورقة7", "ورقة8")) sh.Visible = xlSheetVisible If Application.WorksheetFunction.CountBlank(sh.Range("A1:B3")) <> sh.Range("A1:B3").Count Then sh.PrintOut sh.Visible = xlSheetHidden End If Next sh Application.ScreenUpdating = True End Sub واذا واجهت مشكلة في تنفيذ الكود تأكد من اسماء الشيتات في الكود ( حيث ان لدي مشكلة بالجهاز لا تظهر اللغة العربية الآن ) حيث تم اضافة الجزئية التالية ( لاظهار الشيتات ) في بدايات الكود sh.Visible = xlSheetVisible ثم اضافة الجزئية التالية ( لاخفاء الشيتات مرة اخري ) في نهايات الكود sh.Visible = xlSheetHidden واخبرنا بالنتيجة ان شاء الله جزاك الله خيرا

تفضل لعله المطلوب على فكرة هذة المشاركة هي اجابة سابقة لاحد الاساتذة لا اذكر اسمه ....جزاه الله كل خير 123.zip

ممكن ارفاق الملف الاساسي الموجود به الفورم مع ملف آخر من ملفات الادخال كمثال ليتضح التنسيق والشكل وشكل الفورم ايضا تقبل خالص تحياتي

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

الكود اصبح هكذ في محرر فيجوال بعد تحديث لمبلغ 1 و مبلغ 2 بنكتب هذا حسب قاعدة بياناتك Me.MECMOA = IIF([MBLX2] = 0, [MBLX1] * 50, IIF([MBLX2] > [MBLX1], [MBLX1] * 50, [MBLX2] * 50)) نموذج لتعديل.rar

بارك الله فيك شكرا جزيلا

السلام عليكم يمكنك إستعمال هذا الكود curPath = "d:\أم خلود.accdb" If Dir(curPath) = "" Then FileCopy "c:\2017\أم خلود.accdb", curPath Else Application.FollowHyperlink curPath End If

فكرة رائعة اخي الكريم ،،، واليك بعض الملاحظات حبذا لو يتم تطبيقها الان بعد الربط غير السليم يخبرنا انه تم الربط بطريقة غير سليمة ويفتح البرنامج باخطاء!!! ونحتاج بعد ذلك الى اعادة تسمية القاعدة التي تم ربطها بالخطأ! كي يطالبنا بمكان القاعدة الصحيحة. أليس كذلك؟؟؟ ما رأيك استاذنا الحبيب رمهان لو أن الكود عند الربط غير السليم يقوم بازالة مسار القاعدة الخطأ من جدول ( BackDBs ) والخروج من البرنامج تلقائيا وعند الدخول مرة اخرى يطالبنا بمكان الداتا الصحيحة،،، ليصبح هكذا: Dim strSQL As String If CurrentDb.OpenRecordset("SELECT MSysObjects.Name, MSysObjects.Type FROM MSysObjects AS MSysObjects_1 RIGHT JOIN [" & DLookup("DBPathANDName", "BackDBs", "found=true") & "].MSysObjects ON MSysObjects_1.ForeignName = MSysObjects.Name WHERE (((MSysObjects.Name) Not Like '*msys*') AND ((MSysObjects_1.ForeignName) Is Null) AND ((MSysObjects.Type)=1))").RecordCount <> 0 Then MsgBox ("قاعدة البيانات التي تم ربطها بالبرنامج غير صحيحة، برجاء اختيار قاعدة اخرى") strSQL = "Update BackDBs SET DBPathANDName = null" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True DoCmd.Quit Else End If دمتم بود

بناءاً على رغبة المتابعين شرح الكود الخاص بالتعامل مع النصوص سيتم إدراج الأمثلة الخاصة بها مع الشرح في هذه الصفحة. التعامل مع الملفات النصية ينقسم إلى ثلاثة أقسام وهي: 1- الكتابة (write). 2- القراءة (read). 3- الإضافة (append).

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

بارك الله فيك أخي وحبيبي حسام على المشاركة انتم أساتذتنا تعلمنا منكم الكثير بالنسبة لسؤال أخي علي سنبل حول وقوف الويندوز هو وقوف سطح المكتب للحظات استخدم مفتاح alt+tab لحل هذه المشكلة أظن أن هذه المشكلة ظهرت على ويندوز 7 وهي سببها تحويل ملف اكسل الى ملف تنفيذي بصيغة exe جاري حل المشكلة وتحديث الروابط