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

مرفق مثال بسيط حسب فهمي للموضوع وحاولت اني ابسطه باكبر قدر ممكن لعله يحقق المطلوب او ينتفع به احدهم ايضاح اذا رغبت البحث فقط بالحرف الاول احذف * من بداية المعيار في الاستعلام تحياتي Database8.accdb

الاستاذ @jjafferr ماشاء الله عليه ماقصر وضع حل متميز كالمعتاد مع ذلك فكرتي المتواضعة عن طريق متغير عام Public k As Byte هذا المتغير سوف نستخدمه في النموذج والتقرير في زر امر طباعة نضع الامر Dim i As Byte k = 0 For i = 0 To 2 k = k + 1 DoCmd.OpenReport "re1", acViewPreview, , Me.frm1.Form.Filter DoCmd.PrintOut Next في راس التقرير وضعت تسمية وفي حدث عند الطباعة وضعت الامر If k = 1 Then Me.tt.Caption = "جزاءات" ElseIf k = 2 Then Me.tt.Caption = "ماهيات" Else Me.tt.Caption = "ماهيات وجزاءات" End If والنتيجة فتاكة ليست الحل الامثل ولكن تؤدي المطلوب تحياتي

تحية طيبة عطرة تم عمل المطلوب باستعمال عمود مساعد A بمعادلات لترقيم الفاتورات وتنسيقات شرطية... أرجو أن يفي المطلوب... Book4.xlsx

الدرس الاول في UserForm عناصر الدرس 1- اضافة التبويبات الرئيسية للفورم 2- اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module اولا : اضافة التبويبات الرئيسية 1- نقوم باضة userForm ثم نضيف اطار Frame ونضيف داخله عدد 5 Lebel بالنسبة لعنوان اكتب ما تشاء عربي انجليزي لكن المهم Label Name ( Btn1-Btn2-Btn3-Btn4) ا BackStyle =0 BorderStyle=0 واليبل الخامس لتغير خلفية النص Name=AnlBtn BackColor=&H8000000E& ثم نضيف ليبل خاص بالعنوان نسميه PageNo ثم نضيف MultiPage ونضيف في ال Page1 ثانيا ربط التبويبات بالفورم نضيف Class Module نكتب داخله الكود التالي Public WithEvents LblBtn As MSForms.Label Private Sub LblBtn_Click() ' للحركة بين التبويبات UserForm1.AniBtn.Left = LblBtn.Left 'ربط صفحات المالتي بيج مع التبويبات UserForm1.MultiPage1.Value = Right(LblBtn.Name, 1) - 1 'شريط العنوان UserForm1.PageNo.Caption = "Page No " & UserForm1.MultiPage1.Value + 1 & " ( " & LblBtn.Caption & " )" End Sub وفي الفورم Dim LblEvent(3) As New Class1 Private Sub UserForm_Initialize() With Me.MultiPage1 'لتغير استايل المالتي بيج .Style = fmTabStyleNone: .Value = 0 End With 'عدد التبويبات 4 من صفر الي 3 For AddEvent = 0 To 3 Set LblEvent(AddEvent).LblBtn = Me("Btn" & AddEvent + 1) Next AddEvent End Sub الملف بالمرفقات ياريت ننفذ الخطوات ولو اي استفسار ماتترد اتمني من الله اكون بسط الشرح ويكون فيه الاستفادة مع تحياتي MultiPage Officana.xlsm

وعليكم السلام ورحمة الله وبركاته تقرير حسب الطلب2.xlsm

بعد إذن استاذي الجليل جعفر هل ممكن اشارك بهذا الموضوع تفضل أخي يارب يكون هذا طلبك employees.rar

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

تفضل أخي الكريم وهذه هذ المعادلة CONCATENATE(D7," - ",D6," - ",TEXT(D5,"dd-mm-yyyy")) test-v2.xlsx

تحية طيبة مباركة جرب الملف بالمرفقات (مع بعض التعديلات باستعمال دوال أخرى) لعل فيه ما تريد... المعاش التقاعدي.xlsx

انتبه أخى الكريم فــــ 30% من المرتب وهو 5000 جنيه فلابد ان يكون المعاش 3500 وليس 3000 جنيه ..فالمشاركة كده أخذت أكبر من حجمها

اخي محمد 🙂 هذا تعديل جدا بسيط ، وكان المفروض ان تحاول تعمله وتتعلم منه ، فهذا المنتدى للتعلم 🙂 على العموم ، تفضل 🙂 جعفر 1528.1.Reports_in_Combobox.mdb.zip

وعليكم السلام اخي adomar9911 🙂 واهلا وسهلا بك في المنتدى 🙂 لو بحثت في المنتدى ، ستجد الكثير من المواضيع الشبيهه بطلبك ، وهنا اضع بين يديك هيئة البحث : https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=بحث+اثناء+الكتابة&sa=Search وهذا مثال لي: جعفر

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

للاسف لا ... من غير الاسكانر مش عاعرف اجرب الكود

اشكرك اخى الحبيب جزاك الله خيرا

تفضل 🙂 كلما تعمل تقرير ، تلقائيا سيتم اضافته في القائمة . جعفر 1528.Reports_in_Combobox.mdb.zip

اخى وجيه اكرمكم الله ونفع بكم

شكرا لمروركم جميعا استاذى واخى الحبيب الاستاذ مجدى مروركم يعد تكريما وتشريفا لى استاذ abdelfattahbadawy استاذ arsalanamin بارك الله فيكم وجزاكم الله خير

احسنت اخ وجيه نورت المنتدى بعد غياب طويل ربنا يكرمك

وعليكم السلام 🙂 ومشاركة مع اخي kanory 🙂 1. اعمل حقل نص في التقرير لكتابة كلمة جزاءات و ماهيات . 2. اعمل الحقل myText في النموذج الذي سيتم منه الطباعة : . وهذا الكود على حدث زر الطباعة: Private Sub cmd_print_3_Copies_Click() Me.myText = "جزاءات" DoCmd.OpenReport "Report1" Call Pause_Time Me.myText = "ماهيات" DoCmd.OpenReport "Report1" Call Pause_Time Me.myText = "جزاءات + ماهيات" DoCmd.OpenReport "Report1" Call Pause_Time End Sub Sub Pause_Time() Dim PauseTime, Start PauseTime = 2 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop End Sub . قد لا تكون بحاجة الى الدالة Pause_Time ، فهي تجعل الكمبيوتر ينتظر ثانيتين قبل ان يطبع التقرير التالي. جعفر 1527.Report_Label.mdb.zip

أكرمكم الله ونفع بكم ووفقكم لكل خير

انت طلبت من شخص معين الرد عليك اجعل الموضوع عام وفي المنتدى خبراء كثر والاستاذ جعفر عمله طيب وسيرد عليك ان شاء الله قد يفيدك هذا المثال المرفق https://wayprograms.blogspot.com/2022/06/qr-code-in-access.html بالتوفيق