كل الانشطه

لايعمل

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

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته جمعة مباركة طيبة عليكم جميعا طلبي هو عندما ادخل بيانات كتاب ما واختار من البرنامج مثلا نوع الكتاب وارد يتم الحفظ داخل مجلد الوارد الموجود في مجلد ال Files وايضا اذا تم اختيار صادر من البرنامج يتم الحفظ في مجلد الصادر الموجود في المجلد الرئيسي Files ويكون البحث من المجلدين سواءا اذا اردنا البحث عن كتاب وارد نبحث عنه في المجلد وارد لكي نقوم بطباعته وهكذا بالنسبة للصادر نفس العمل مع وافر التحايا وهذا البرنامج في المرفقات ARCHFAB-11.rar

ممكن توضيح ومساعدة عندي حوالي 2000 اسم ولقب ورقم تعريفي وكل شخص له صورة في ملف برقم تعريفي اريد ان احمل الصور دفعة واحد يعني لما اعمل كل شخص له صورة ياخذ وقت كبير وفي الاخير احاول طباعة بطاقة عمل تكون فيها الاسم اللقب رقم التعرفي والصورة حسب الرقم التعريفي ملاحظة اريد الصورة تتحمل وحدها مشكورين مسبقاً

ممكن توضيح ومساعدة عندي حوالي 2000 اسم ولقب ورقم تعريفي وكل شخص له صورة برقم تعريفي اريد ان احمل الصور دفعة واحد يعني لما اعمل كل شخص له صورة ياخذ وقت كبير وفي الاخير احاول طباعة بطاقة عمل تكون فيها الاسم اللقب رقم التعرفي والصورة حسب الرقم التعريفي ملاحظة اريد الصورة تتحمل وحدها مشكورين مسبقاً

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

ولو تحقق الشرطان ماذا يكنب

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

فتح الله عليك وزادك من نعمه وفضله باقى استفسار رقم الاسبوع .. بمعنى يوجد سنة فى عملى مثلاً السنة تبدا من من يوم الجمعه الموافق 10 يناير سنة 2025 مثلاً الاسبوع ده رقم يكون كام .. او السؤال بطريقة اخرى يوجد اسبوع من الجمعه إلى الخميس تاريخ بين عامين ميلاديين سنة مثلا 2025 وسنة 2026 فيكون من 28/ 12 / 2025 حتى 3 / 1 / 2026 رقمه كام .... والاسبوع الذى يليه رقمه كام للى هو من 4 / 1 /2026 حتى 10 / 1 / 2026 تقبل شكرى واعتزازى وتقديرى لشخصكم الكريم بقراءتى للكود جيداً فهمت ان تحديد رقم الاسبوع من يوم الجمعه الذى ينهى الاسبوع ويتم ايجاده بالسطر التالى week = desWS.[DC330].Value d = 15 st = Application.WeekNum(week, d) ولكن لا افهم ليه d = 15

استاذ @soik225998 بعد اختيار الصورة بيتم تخزين مسارها وامتدادها بالجدول . حسب الاسم . وفي الاستعلام نخلي الشرط (Criteria) . [Forms]![بحث]![البيانات].[Form]![الاسم] حيث البحث اسم الفورم الرئيسي البيانات اسم الصب فورم الاسم حقل الاسم . (AA) زودنا حقل بالاستعلام2 AA: [Application].[CurrentProject].[Path] & "\" & "MyPic" & "\" & [ID] & [PicType] لجلب الصورة من فولدر الصور بجوار البرنامج (MyPic) PicType هو امتداد الصورة ممكن يكون (jpg) أو (bmp)أو(png)ـ وعند الضغط على الاسم بينفذ الكود Private Sub الاسم_Click() If IsNull(DLookup("PicPath", "Query2")) Then MsgBox "لايوجد صورة للموظف رجاء ادراج صوره له ", vbInformation Dim strCriteria As String strCriteria = "ID = " & Me.ID DoCmd.OpenForm "AddPic", WhereCondition:=strCriteria, OpenArgs:=(Me.ID) Else DoCmd.OpenForm "بيانات الشخص" End If End Sub بيفتح فورم بيانات الشخص الذي يأخذ بياناته من الاستعلام2 الذي به مسار الصورة وأي سؤال أ استفسار حاضرين .

اخى الكريم جزاك الله خير المطلوب فى خلية جديدة يكون الشرط كالتالى اذا كانت الخلية c4=10 يكتب راسب اذا كانت الخلية b4 >=1 يكتب برنامج علاجى

اشكركم على المرور

عندما أقوم أنا بإعادة تصميم البرنامج مثل أستاذى kkhalifa1960 حتى أتوصل لعمل برنامج رائع مثله لم أعرف .. استاذى ( لا تعطني سمكة ولكن علمنى كيف اصطادها ) كيف قمت بربط الأسم حتى اتمكن من تصميم البرنامج بنفسى .. أريد شرح وافى بالتصميم الذى قمت به لعمل البرنامج حتى يتسنى لي معرفة الشرح وتنفيذه

السلام عليكم ورحمة الله تعالى وبركاته وانا فايت لاقيت استاذنا الجليل اخوانا @شايب قلت فى نفسى لا لابد من المرور والقاء السلام ومشاركة مع احبائى فى الله اليكم فكرة بدون دوال وهى الاحب الى قلبى الشرح 1- انشاء وحدة نمطية عامة وظيفتها الاعلان عن متغيرات عامة وهى كالاتى Public strPasswordPrompt As String Public boolPasswordPrompt As Boolean 2- ننشئ نموذج لكلمة السر على ان يكون اسمه frmPasswordPrompt وبه مربع النص لكتابة كلمة السر على ان يكون اسمه txtPassword زر امر التأكيد على ان يكون اسمه btnConfirmation ونضع الكود الاتى لزر الامر boolPasswordPrompt = True strPasswordPrompt = Nz(Me.txtPassword.Value) DoCmd.Close acForm, Me.Name وهنا نطلب منه انه يلحق القيمة True الى المتغير العام boolPasswordPrompt وان يلحق القيمة التى سوف يتم كتابتها فى مربع النص txtPassword الى المتغير العام strPasswordPrompt ثم يغلق النموذج زر امر الالغاء على ان يكون اسمه btnCancel ونضع الكود الاتى لزر الامر boolPasswordPrompt = False DoCmd.Close acForm, Me.Name وهنا نطلب منه انه يلحق القيمة False الى المتغير العام boolPasswordPrompt ثم يغلق النموذج الان يمكن استخدام كلمة سر فى اى مكان فى النموذج اما للحذف او للطباعة او لفتح نموذج حسب رغبة المصمم والان الية استدعاء هذا النموذج للعمل على زر الامر المراد قتح النموذج السرى من خلاله نضع الاكواد الاتية Const CORRECT_PASSWORD As String = "123" Const MSG_ENTER_PASSWORD As String = "Please enter a password to proceed." Const MSG_INCORRECT_PASSWORD As String = "Incorrect password. Operation canceled." Const MSG_PROCEED_SUCCESSFULLY As String = "proceed successfully!" Const MSG_OPERATION_CANCELED As String = "Operation canceled" Do DoCmd.OpenForm "frmPasswordPrompt", , , , , acDialog Select Case True Case boolPasswordPrompt Select Case True Case Nz(strPasswordPrompt, "") = "" MsgBox MSG_ENTER_PASSWORD, vbExclamation Case strPasswordPrompt <> CORRECT_PASSWORD MsgBox MSG_INCORRECT_PASSWORD, vbExclamation Case Else MsgBox MSG_PROCEED_SUCCESSFULLY DoCmd.OpenForm ChrW("1587") & ChrW("1585") & ChrW("1610") Exit Do End Select Case Else MsgBox MSG_OPERATION_CANCELED, vbExclamation Exit Do End Select Loop هذا شرح مبسط للفكرة العامة ولكن ان اردنا العمل اكثر احترافية ومرونة من خلال الاكواد فى وحدة نمطية انظر المرفق الاتى رقم سري.accdb

للاسف غير مفهوم بالنسبة لي مادا تقصد بتنسيق الاسبوع يوم/شهر/سنة اما ادا كنت تقصد التواريخ عدل هدا الجزء من الكود a = Array("فواتير الأسبوع من", " ", CDate(desWS.[CV330]), " ", "إلى", " ", CDate(desWS.[DC330])) Set xDate = srcWS.Cells(2, lCol + 3).Offset(1).Resize(, 7) With xDate .Value = a: .Interior.Color = RGB(255, 255, 0) .BorderAround LineStyle:=xlContinuous, Weight:=xlMedium, Color:=RGB(0, 0, 0) If Not IsDate(xDate.Value) Then xDate.NumberFormat = "yyyy/mm/dd" ' قم بتعديل تنسيق التاريخ بما يناسبك End With Book معدل 3.xls

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

انتهيت لتوي من تعديل الملف كما طلبت مني وهاهو 2المواقف.zip

السلام عليكم ورحمه الله وبركاته والله والله والله يعجز الكلام عن التعبير عن مشاعرى وامتنانى للاستاذ الفاضل محمد هشام ، مجهود فوق الوصف ، تفانى واخلاص فى العمل لاتقانه .. استاذى لا املك إلا الدعاء لشخصكم الكريم جعله الله فى ميزان حسناتك واكرمكم الله ونفعك به فى الدنيا والاخرة لك ولاسرتك الكريمه وقبل ان اضع افضل اجابة والموضوع يتم غلقه .. توضيح وليس إلا رقم الاسبوع تحديده هو السنة المالية من 1/1 يعنى رقم 15 مثلا هو رقم الاسبوع فى السنة كيف يكون تنسيق الاسبوع فى ورقة الترحيل يوم / شهر / سنة تقبل الله منا ومنكم صالح الاعمال وجعله فى ميزان حسناتكم

تم الدمج لكن الشروط غير مفهومة راجع الملف واخبرنا بالنتيجة ادماج المعادلتين.xlsx

علما بان اخينا الفاضل شايب سبق ان اشار الى موضوع مشابه في هذة المشاركة ⬇️ الشايب

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

حاضر سأقوم بإعادة ارسالة مع تعديل ماذكرت واعذرني فأنا قليل خبرة في المنتدى والاكسس

المطلوب اذا كان الرقم اكبر من او يساوى 1 يكتب برنامج علاجى من الخلية الاولى او اذا كان الرقم 10 فى الخلية الثانية يكتب راسب

ارجو أخي الكريم @صالح الصالحي ان تقوم بالغاء افضل إجابة ، واستخدامها لحين ان تجد الإجابة الصحيحة أياً كان مقدمها ، هذا أولاً ثانياً ، التزاماً بقواعد المنتدى ادراج بعض البيانات التي ترغب بانتاج البحث والتقارير عنها ، وليس ارفاق ملف فارغ وكأنك تريد ممن يقدم المساعدة أن يملأه ثالثاً ، للوصول لحلول لمشكلتك :- لا تستخدم أسماء عربية في مسميات الحقول . لا تستعمل المسافات بين الأسماء . لا تستعمل اسماء حقول محجوزة للبرنامج مثل ( Name,Date,To,From ..... إلخ ) لا تستعمل رموز ( #، @،$،& .... إلخ ) في مسميات الحقول . لا تستعمل الأرقام في أسماء حقول الجداول أو تبدأ بها . قواعد المشاركة بمنتدي أوفيسنا