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

حسب فهمي للمطلوب .. هل هذا الشكل هو المطلوب ؟؟؟؟

مشاركة بسيطة مع الاساتذه الكرام ولكون المطلوب مجرد استعلام عن سعر الصنف ومعلوماته برقم الباركود في نموذج غير مرتبط فيمكن عملها باستخدم حقل مخصص لقراءة الباركود يتم افراغة مباشرة بعد تنفيذ الكود ليكون جاهز لقراءة باركود اخر واستخدم دالة DLookup مع تحميل الحقول المطلوبة في الامر ويمكن اضافة حقول اخرى الى عدد 10 حقول ليكون الكود On Error GoTo err Dim x() As String A = DLookup("[Product_id] & '|' & [Product_Name] & '|' & [Product_price]", "tbl_2", "[n_w]='" & [tx1] & "'") x = Split(A, "|") [tx2] = x(1) [tx4] = x(0) [tx3] = x(2) Me.tx1 = Null Exit Sub err: MsgBox "رقم الباركود غير صحيح", vbInformation, "تنبيه" [tx1] = Null [tx2] = Null [tx4] = Null [tx3] = Null الاستعلام في الصورة 👇 باستخدام جهاز الباركود

السلام عليكم جرب الملف لعل فيه ما تريد... Cash at Banks (2021).xlsm

هذا طلبك الاول ... قي المرفق ... انظر الصورة .... هذه النقطة معتمده في الاساس عل الاستعلام الذي انت فعلته .... انظر الاستعلام ومن اين اتت هذه المسميات لأنها موجودة في برنامجك اساسا ‏‏DATA144 - kanory.mdb

ياهلا باستاذنا الغالي هاوي هذه الطريقة تعمل من الاصدار 2003 وسبق ان اشار لها الاستاذ جعفر عام 2015 هي نفس الاسماء A = DLookup("[Product_id] & '|' & [Product_Name] & '|' & [Product_price]", "tbl_2", "[n_w]='" & [tx1] & "'") x = Split(A, "|") لو تلاحظ قسمنا نتيجة اي حسب موقعها من "|" Product_id = x(0) Product_Name = x(1) Product_price = x(2) تقريبا نفس فكرة القائمة المنسدلة عندما نحملها بقيمة عدة حقول ونستدعيها في النموذج مع فارق ان القائمة مبنية على استعلام وهنا تم استخدام متغير لتحميل الحقول بواسطة DLookup ثم استخدام الحقول المحملة وفقا لموقع كل منها من "|" Me.tx1 = Me.c_2.Column(0) Me.tx2 = Me.c_2.Column(1) Me.tx3 = Me.c_2.Column(2) تحياتي لك

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

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

جزاك الله خير اخي وكل عام وانتم بخير

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

بارك الله لك وجزاكم الله خيرا وسلمت يداك

بالنسبة لعبارة مخزن تجدها في التقرير اما رقم ١ و ٢ و٣ تجدها في الاستعلام لاحظ الصور ... الشرح فيها

جرب هذه المعادلة في الخلية H9 واسحب نزولاً =IFERROR(SUM(OFFSET(INDEX($A$2:$A$37,MATCH($J9,$A$2:$A$37,0)):INDEX($A$2:$A$37,MATCH($I9,$A$2:$A$37,0)),,1)),"") الملف مرفق Hafez.xlsx

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

المثال نفسه جمعت فيه ثلاث الطرق السابقة وأضفت عليه رابعة بعد الإستفادة من الطريقة الثالثة طريقة الأستاذ خالد يعني المثال فيه أربع طرق الآن Private Sub Product_NO_AfterUpdate() 'Hawiii Dim rst As DAO.Recordset Dim flds As Variant Dim fldsArray Dim fld As Field Dim count As Integer On Error Resume Next '------------------------------------- Const tableName As String = "Products" Const fldsKey As String = "Product_NO" '------------------------------------- Set rst = CurrentDb.OpenRecordset(tableName, dbOpenSnapshot) With rst For Each fld In .Fields If fld.Name <> fldsKey Then count = count + 1 flds = flds & IIf(count > 1, "] & '|' & [", "[") & fld.Name 'If count = 10 Then Exit For End If Next fld flds = flds & "]" '-------------------------- flds = DLookup(flds, tableName, fldsKey & "=" & Me(fldsKey)) If IsNull(flds) Then GoTo fldsClear fldsArray = Split(flds, "|") '-------------------------- count = -1 For Each fld In .Fields If fld.Name <> fldsKey Then count = count + 1 Me(fld.Name) = fldsArray(count) Me(fld.Name).Picture = "" Me(fld.Name).Picture = CurrentProject.Path & "\Images\" & fldsArray(count) 'If count = UBound(fldsArray) Then Exit For End If Next fld End With rst.Close Exit Sub '-------------------------- fldsClear: For Each fld In rst.Fields If fld.Name <> fldsKey Then Me(fld.Name) = Null Me(fld.Name).Picture = "" End If Next fld rst.Close MsgBox "منتج غير مسجل", vbCritical + vbMsgBoxRight, "تنبيه" End Sub استدعاء بيانات المنتج_3.rar

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

شكرا لك أخ خالد ، أكيد شرحك مو لي 😃 ملخص الفكرة للمبتدئين : هو تجميع لعدة قيم حقول في متغير نصي واحد وهو هنا باسم (A) عن طريق البحث بدالة DLookup ثم نجري عملية عكسية بتفكيك قيمة المتغير النصي إلى عدة قيم وتخزينها في مصفوفة وهي هنا باسم (x) عن طريق دالة Split

ولاني نسيت أزيل .Fields حيث لا داعي لها هنا ، هنا أرفق لكم التعديل: 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 = !Product_Name Me.Product_price = !Product_price Me.Product_Image.Picture = "" Me.Product_Image.Picture = CurrentProject.Path & "\Images\" & !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

السلام عليكم استاي العزيز جرب هذا التعديل وان شاء الله يكون طلبك ملاحظة : جدول tblshit اصبح غير معني بالوجبة الثالثة فقط الاجازات والاعفاء للوجبتين 1 و 2 Reorder20.rar

مشاركة من الاساتذه : طريقة اخرى تمكنك من اختيار مخازن بعينها لتظهر في التقرير ..... جرب ووافينا بالنتيجة ... ‏‏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

جرب هذا الكود Option Explicit Sub hid_all() Dim My_num As Single Dim Col As Single Col = Application.Columns.Count Range("B1").Resize(, Col - 1).Columns.Hidden = True If Val(Range("A1")) <= 0 Then My_num = 1 Else My_num = Int(Range("A1")) End If Range("A1") = My_num Range("A1").Resize(, My_num).Columns.Hidden = False End Sub '++++++++++++++++++++++ Sub show_all() Dim Col As Single Col = Application.Columns.Count Range("b1").Resize(, Col - 1).Columns.Hidden = False End Sub الملف مرفق Show_hide_colomns.xlsm

تكتب البيانات في النطاق I1:j50 الغامودين I و J يمكن اخفائها عن غيون الفضوليين ثم تختار في العامود B الرقم الذي تريد

https://www.officena.net/ib/profile/121121-أحمد-حجاج/ الأستاذ أحمد يمكنك عمل ذلك من الهدر والفوتر (الرؤوس والتزييل) وذلك بكتابة اسم الفصل به ثم الذهاب إلى الفصل الجديد و الضغط على ارتباط بالسابق (عدم تفعيلها) وكتابة اسم الفصل الجديد وهكذا وهذا الملف المرفق لك test.docx

برنامج كلش حلو ومرتب ما شاء الله

السلام عليكم مثال قديم .. آمل أن يكون مفيدا . تحياتي . Union_97.zip

الاستاذ والاخ : منتصر فى المرفق ارجو القاء نظرة على النماذج نموذج : اساسى وقل رايك ونريد تكميلة Control2.rar

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

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

بارك الله فيك اخي / foxman برنامج جميل جداً .. جزاك الله خيراً وجعل ذلك في موازين حسناتك يثبت الموضوع

السلام عليكم يعطيكم الف عافية اخواني لو سمحتوا عندي سؤال ان شاء الله يكون سهل :pp: سؤالي هو اقدر اضيف موقع انترنت على نموذج ؟؟؟ قصدي مو اني اضيف ارتباط تشعبي لا مثلاََ عندي نموذج اسمه ياهو ونموذج ثاني اسمه هوتميل لما افتح نموذج الياهو يفتح لي صفحة الياهو في نفس النموذج مو في المتصفح ونفس الشي لو فتحت الهوتميل مستحى اسال هذا السؤال :SHY: لكني دخت ولا لقيت طريقة لكن لما كنت اجرب فيه بعض الحاجات اللى ادرجها تطلع لي رسالة اني ما ثبت OLE مدري هو يمكن الاوفيس ما نزل كامل ولا ايش بالضبط !!! المهم الله يخليكم ان شاء الله و ياليت ولو تعليق منكم

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

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

الاخوه الكرام اسعد الله اوقاتكم وجعلكم دائماً في صحه وسلام دائم . لدي برنامج صادر ووارد به اربعة جداول 1ـ الصادر العادي 2ـ الوارد العادي 3ـ الصادر السري 4ـ الوارد العادي طبعاً السؤال هو بالنسبه للوارد سواء العادي أو السري هناك من ضمن الحقول ( رقم القيد ) وهو ترقيم تلقائي ولكن طبعاً بعد انتهاء سنه هجريه كامله اريده أن يبداء من رقم (1) بمعنى انه وصل رقم القيد بانتهاء العام 30/12/1424هـ الى 2000 . ومع بداية العام الجديد 1425 اريده ان يبداء من الرقم (1) فكيف الحل مع ذلك بالنسبه للوارد . اما بالنسبه للصادر السري او العادي فلدينا حقل رقم المعامله الصادره فجعلته رقم فقط وليس تلقائي ولكن لو افترضنا ان السنه 1424 انتهت ووصل الرقم الى 2000 واريده ان يبداء سنه جديده برقم جديد وهو رقم (1) علماً ان هناك نفس الرقم في العام 1424 فكيف الحل مع ذلك . اتمنى منكم المساعده العاجله ولكم ابلغ واوفر تقديري طبعاً لن تتضح المشكله الا بوجود المثال ولكن كيف ارفقه وليس هناك خاصية ارفاق الامثله .

السلام عليكم ورحمة الله وبركاته ==================== أساتذتى الكرام , أخوانى فى الله أسال الله المساعدة فى الاجابة على سؤال لم اجد له حلا فترة كبيرة من الزمن ولقد اتخذت المتاح لى من الاسباب لاتمكن من الوصول الى اجابة ولكن الله لم يأذن حتى تلك اللحظة فهلا وجدت عندكم الاجابة ---------------------------------------------------------------------- السؤال هو :- كيف لى ان اعبر عن مسار ملف موجود مع قاعدة البيانات فى نفس المجلد كمتغير بالنسبة لقاعدة البيانات ..................................................................... وحتى تكون الصورة واضحة قمت بعمل ملف مساعد لقاعدة البيانات التى أعمل عليها وهذا الملف له الامتداد chm. قمت بوضع قاعدة البيانات والملف المساعد فى مجلد وتلك المحتويات قمت بعمل (setup ) لها إذا قمت بتحديد مسار الملف المساعد على أنه مسار ثابت ففى تلك الحالة من الممكن ان لا يكون الملف موجود فى جهاز المستخدم فى المكان الذى حددته ----------------------------------------------------------------------- الملخص ===== إذا كان عندى قاعدة بيانات هى frozen.mdb وكان عندى ملف مساعدة هو help.chm فالذى أريده هو متغير يرجع مسار (help.chm) بالنسبة لقاعة البيانات (frozen.mdb) بحيث أن الملفين معا فى مجلد واحد فمهما نقلت المجلد من أى مكان على جهاز الكمبيوتر فبواسطة زر فى(frozen.mdb) قاعدة البيانات يتم فتح ملف (help.chm) ***************************************** معذرة أخوتى فى الله على هذا التطويل ولكن نظرا لاهمية الموضوع بالنسبة لى أرجو أن تسامحونىوأرجو من الله عز وجل ان يتسع صدركم للاجابة ولكن نظرا لاهمية الموضوع بالنسبة لى فاردت ان يكون الموضوع واضح من كل الجوانب أتمنى من الله عز وجل أن يوفقنى للاجابة عن طريقكم والسلام عليكم ورحمة الله وبركاته

السلام عليكم كيف يمكن التحكم بعدد سجلات المطبوعة في الصفحة الواحدة , أي لو كان لدي تقرير مؤلف من مئة صفحة , كيف يمكن جعله يطبع كل عشرة سجلات في صفحة واحدة ؟

جدول به حقلين حثل يسجل فيه رقم الطالب واسمه [no] والحقل الآخر مسلسل لعدد مرات الإدخال واسمه [mosalsal] ملاحظة بيانات الطالب في جدول آخر مفتاحه الأساسي [NO] أما هذا الجدول فيمكن تكرار قيمة الحقل [NO] و قيمة [MOSALSAL] يجب أن تكون بإضفة رقم جديد لكل طالب أريد ترقيم تلقائي للمسلسل بحيث يكون لكل رقم مدخل في الحقل [no] ترقيم خاص به أرجو المساعدة في هذا الكود الوسمحتم

هلا فيكم ،،، عنددي نموذج فاتورة مبيعات فيها : رقم الفاتورة ، تاريخ الفاتورة ، اسم العميل ، ( من الجدول الاول ) رقم الفاتورة ، اسم الصنف ، السعر ، ( من الجدول الثاني ) في نموذج فاتورة مبيعات كيف أسوي عشان في مربع الاجمالي العام يظهر لي اجمالي حقل السعر ( اي اجمالي الفاتورة ) ؟؟

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