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

السلام عليكم تكثر الحاجة الى اخراج تقرير حسب حقول محددة يختارها المستخدم وهذا الباب تم التطرق اليه في هذا المنتدى ومن يبحث يجد الكثير .. علما اني قد استفدت واخذت من تلك المواضيع فما انا الا ناقل . ورب ناقل علم الى من هو اعلم منه . وحتى يكون هذا الموضوع مرجع مختصر لكيفية تصميم واعداد التقرير لذا عملت على اعداد مثال صغير وهو عبارة عن جدول ونموذج وتقرير اولا : عمل قائمة في النموذج يتم فيها عرض حقول الجدول عند تحميل النموذج ... وهذه الاكواد هي المسؤولة : Private Sub Form_Load() Dim dbs As DAO.Database Dim tbl As DAO.TableDef Dim sCaption As String DoCmd.Restore Set dbs = CurrentDb Set tbl = dbs.TableDefs("table1") For Each fld In tbl.Fields sCaption = "" On Error Resume Next sCaption = fld.Properties("Caption") On Error GoTo 0 lstFields.AddItem fld.Name & ";" & sCaption Next fld Set dbs = Nothing Set tbl = Nothing End Sub ثانيا عملت زر لإعداد الحقول في التقرير ثم فتحه ، وخلف هذا الزر يتم تنفيذ هذه الشفرة Dim i As Integer Dim txt As TextBox Dim lbl As Label Dim intSelectedCount As Integer Dim lngWidth As LoadPictureConstants Dim intSelectedNo As Integer With lstFields If .ItemsSelected.Count = 0 Then MsgBox "يجب اختيار حقل واحد على الأقل", vbExclamation, "خطأ" Exit Sub End If DoCmd.OpenReport "Rep1", acViewDesign, , , acHidden intSelectedCount = .ItemsSelected.Count lngWidth = Reports("Rep1").Width / intSelectedCount Reports("Rep1").Section("PageHeaderSection").Height = 310 Reports!Rep1!Label2.Caption = Nz(Me.Textlabl) Reports("Rep1").Section("Detail").Height = 310 intSelectedNo = 0 For i = 0 To .ListCount - 1 If .Selected(i) Then Set lbl = CreateReportControl("Rep1", acLabel, acPageHeader, , , intSelectedNo * (lngWidth + 50), 5, lngWidth, 300) lbl.Caption = .Column(1, i) lbl.BackStyle = 1 lbl.BackColor = RGB(200, 200, 200) lbl.BorderStyle = 1 lbl.FontBold = True lbl.TextAlign = 2 Set txt = CreateReportControl("Rep1", acTextBox, acDetail, , .Column(0, i), intSelectedNo * (lngWidth + 50), 5, lngWidth, 300) txt.BorderStyle = 1 txt.TextAlign = 2 intSelectedNo = intSelectedNo + 1 End If Next i End With DoCmd.OpenReport "Rep1", acViewReport ملحوظات : جعلت زر الخروج في التقرير يغلق التقرير ( من غير حفظ ) متجاوزا رسالة تأكيد الحفظ حفظ التقرير يسبب تراكم الحقول المصنوعة داخل الكود .. ومن ثم تظهر المشكلات والأخطاء ختاما لا تنسوني من دعواتكم الصالحة واتمنى ان تجدوا فيه الفائدة والمتعة اختيار حقول التقرير.rar

تفضل و اذا كانت الاجابة صحيحة اختار افضل اجابة لغلق الموضوع جدول.accdb استعلام.accdb

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

شكرا لك استاذي الكريم لقد نجح الامر الف شكر كتيييييييير الك جزاك الله خيرا

أستاذنا القدير @Moosak وعليكم السلام ورحمة الله وبركاته،، وحياك الله ،، ونحن من يعتذر فأنتم المنبع الصافي ومنهل المعرفة لنا ولجميع الزملاء في المنتدى المبارك.. الحقيقة أثناء البحث وجدت هذا المثال الذي ذكرته،، ولكن كنت بحاجة أن يكون الاستعراض تلقائي لمحلدات متعددة مسمياتها داخل سجل البرنامج فيرتبط مباشرة وتظهر كما تفضل أستاذنا القدير @Foksh بتعديلاته النيرة سلمت وهذا هو المطلوب رضي الله عنكم جميعا.. لكن ظهر لي أمر وهو أنه إذا هناك مجلد داخل إحدى المجلدات المذكورة مثلاة مجلد 1 الذي بداخل مجلد ALL به مجلد فهل يمكن أن يظهر اسمه مع الملفات أم يتعذر ذلك.. معذرة لكن جاءت الفكرة عرضًا الآن.. حفظكم الله الباري مثال أكسس3.rar

وعليكم السلام ورحمة الله وبركاته تفضل أخي الكريم: حسب فهمي لسؤالكم الكريم =IF(E8>H8;H8;IF(AND(E8<H8;E8>G8);G8;E8)) للبدلات.xlsx

استاذ @سامر محمود اضفت(جداول - ونماذج ) بالبرنامج . المطلوب يمين فورم1 دون الساس بعملك كامل . الجدول (tbl_LocationEmpSalay) أنا وضعت المرتبات . والمطلوب منك تعديلها كما تحب أو كما الواقع . واليك المرفق بعد التعديل ووافني بالرد. https://www.mediafire.com/file/xzbxins0cvpa0mz/samer-Test.rar/file

الاساتذه الكرام السلام عليكم ورحمة الله وبركاته ارجو من حضراتكم تعديل هذا الكود بحيث عند نسخ الشيت يتم اضافته في اخر شت وليس بعد شيت رقم 10 شاكر جدا لكم Sheets("نموذج").Select Sheets("نموذج").Copy After:=Sheets(10) Range("C4").Select