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

ضغه في حدث بعد التحديث قبل البدء نفذي التالي - قم بإزالة مصدر السجلات - قم بإزالة مصدر عنصر التحكم لكل عنصر مرفق لك مثال لذلك استدعاء بيانات المنتج.zip

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

الجدول مكون من حقول وبعض الحقول فارغة ؟ ووضعة جدول بسيط كدلاله على الموضوع مع وجود الفارغات في الحقول ولو اني ماعرفت كيف بظهره على هذه الصفحة تلقائي بدون تحميل او فتح للجدول http://seetv.jeeran.com/access.doc كيف اعمل تقرير او امر فقط او استعلام يظهر لي الحقول الفارغة كمثال انه يظهر لي خالد والحقل الفارغ له تاريخ التوظيف والتلفون وايضا يظهر معاه محمد ولكن يظهر معه تاريخ التوظيف وايضا يظهر معاه سعيد ومعه فقط التلفون وايضا لو يمكن الاظهار الرقم بدل الاسم بمعنى 1 بدل خالد واشكركم كثير على المنتدى الي فعلا محتاجين لمثل هذه المنتديات الناجحه بمعنى الكلمة ولكم مني الف شكر من مشرفين واعضاء

تفضل New 5.xlsm

مشاركة من الاساتذه : طريقة اخرى تمكنك من اختيار مخازن بعينها لتظهر في التقرير ..... جرب ووافينا بالنتيجة ... ‏‏DATA144 - kanory.mdb

أشكرك جزيل الشكر

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

شكرا للدكتور على المثال وزيادة في الإثراء ، هذه طريقتي في الوصول للبيانات Private Sub Product_NO_AfterUpdate() Dim rst As DAO.Recordset On Error Resume Next Set rst = CurrentDb.OpenRecordset("Products", dbOpenSnapshot) With rst .FindFirst "Product_NO=" & Me.Product_NO If Not .NoMatch Then Me.Product_Name = .Fields("Product_Name") Me.Product_price = .Fields("Product_price") Me.Product_Image.Picture = "" Me.Product_Image.Picture = CurrentProject.Path & "\Images\" & .Fields("Product_Image") Else Me.Product_Name = Null Me.Product_price = Null Me.Product_Image.Picture = "" MsgBox "منتج غير مسجل", vbCritical + vbMsgBoxRight, "تنبيه" End If End With rst.Close 'Set rst = Nothing End Sub

بارك الله فيك أخى وأستاذى الفاضل // محمد صالح

مربوط اخي الكريم اختر مثلا منخزن 1 الى مخزن 3

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

تفضل التعديل اخي الكريم DATA1401.zip

تفضل التعديل الترقيات.zip

وعليكم السلام تفضل محاولة مني Lock shift1.accdb

عندي يعمل بشكل طبيعي انظر الضورة seaf Extra1.xlsm

مبدئياُ هذا الكود لادراج التواريخ لكل شهر ما عدا يوم الجمعة 1- هناك صفوف واعمدة فارغة( مخفية) لفضل الجدول عن بقية البيانات (الصف رقم 8 والاعمدة I و AM ) 2-نوع الاجازات في عامود واحد (H) لا تنقع لأنه يمكن للموظف ان يأخذ نوعين (أو اكثر) من الاجازات مثلا من تاريخ 1 الى 5 اجازة مرضية و من تاريخ 20 الى 23 اجازة خاصة الكود (صفحة Repport) Option Explicit Sub Get_Date() Dim Start_date As Date Dim End_date As Date Dim k%, xx, lr% With Sheets("Repport") lr = .Cells(Rows.Count, 3).End(3).Row If lr < 9 Then Exit Sub .Range("N9:N" & lr).ClearContents If Not IsDate(.Range("M3")) Then Start_date = #1/1/2021# .Range("M3") = Start_date Else Start_date = .Range("M3") End If End_date = Application.EoMonth(.Range("M3"), 0) .Range("U3") = End_date k = 10 .Range("j6").Resize(2, 31).ClearContents For xx = Start_date To End_date If Format(Day(xx), "dddd") <> "Friday" Then .Cells(7, k) = Day(xx) .Cells(6, k) = Format(Day(xx), "dddd") k = k + 1 End If Next .Range("AN9:AN" & lr) = _ Application.Count(.Range("j7").Resize(, 31)) End With End Sub الملف مرفق seaf mohamed.xlsm

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

تفضل لك ما طلبت وهذه هى معادلة القائمة المنسدلة لتسمح بالبحث داخلها واضح ذلك بالملف المرسل لك الم تطلع عليه ؟!!! توضح بالخلية E2 فى القائمة المنسدلة , من قائمة Data ثم Data Validation =OFFSET($R$2,,,COUNTIF($R$2:$R$100,"?*")) وعليك بمتابعة ودراسة المعادلات المساعدة الموجودة بالعمودان R & P ابراهيم1.xlsm

وعليكم السلام ... كان عليك استخدام خاصية البحث بالمنتدى تفضل هديتى برنامج مخزنى و دليل حسابات_ECO2_DuClick_store_ بفورم بحث و اضافه 1.0.0 وهذا برنامج اخر برنامج مخازن وكارت صنف2012 من تصميمي.xls

مشكلة طالما واجهتني كثيرا ، وهي عند فتح برامج أكسس أو نماذج خاصة تلك التي تستخدم في البحث أو عمل نسخة أحتياطية ، والمشكلة هي ظهور مربع حوار يقول لديك مشكلة في OLE Server or ActiveX control. الغريب أن نفس البرنامج و نفس النماذج تفتح في جهاز آخر ، مرفق مربع الحوار الذي يظهر المشكلة. The experation On Open you entered as the event prop erty settings produced the following error: A problem occured while Microsoft Access was communicating with the OLE server or ActiveX Control. للعلم كانت البرامج تعمل معي بصورة طيبة ولكن عند عمل إعادة تحميل النافذة أصبحت برامج الأكسس أغلبها تظهر لي هذه المشكلة عند فتحها. حتى البرامج التي تعمل معي عند قيامي بوضعها بجهاز آخر تظهر هذه المشكلة ... كيف إمكانية حل هذه المشكلة المؤرقة والتي تحرمني نوم عيني ،، أرجو أن أجد حلا لديكم ودمتم[fliph]

أخوتي الأعزاء السلام عليكم .. وبعد كيف أجبر المستخدم على عدم ترك أحد الحقول فارغاً حيث حاولت أن أجعل خاصية مطلوب "نعم" وكتبت في قاعدة التحقق من الصحه : is not null ولكن أريد عندما ينتقل المؤشر من الحقل مباشره إلى الحقل الثاني يظهر رسالة تنبيه ويعيد التركيز في الحقل المراد عدم تركه فارغاً . أرجو المساعده والله يحفظكم ..

السؤال للعضو firemaha وهو ما الفرق بين العلامة . والعلامة ! في هذا السطر Forms!MainForm!SecondSubForm.Requery

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

دعوة أطرحها للمشاركة لعمل برنامج للأصول الثابتة . ( ملف تاريخي للأصول - الاستهلاكات - الاضافات - الاستبعادات ) والخ .... أشرف خليل

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

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

مثال علي رسالة تأكيد قبل التعديل و التخيير بين التنفيذ و التراجع updateconfirm.zip

لدي مربع قائمة يظهر اسماء الطلاب وقائمة أخرى فارغة أريد عند النقر على اسم الطالب في القائمة الأولى ينتقل الاسم إلى القائمة الأخرى