حمادة عثمان قام بنشر مايو 13, 2017 قام بنشر مايو 13, 2017 لدى نموذج به قائمة تحرير وسرد باسماء عدة تقرير ويوجد فى النموذج زرين امر الاول لتصدير التقارير والثانى لعرض التقارير كيف يتم ربط قائمة التحرير والسرد بازرار الامر
حمادة عثمان قام بنشر مايو 13, 2017 الكاتب قام بنشر مايو 13, 2017 للدى تقرير اسمه الطلاب النشطين مرتبط باستعلام قمت باستخراج ثلاثة تقارير منه عن طريق التجميع والفرز ولدى نموذج به زرين امر الاول لتصدير التقرير الى صيغ مختلفة والاخر لمعاينة التقرير اريد ان اضع الكومبوبوكس بالنموذج به اسماء تلك التقارير وعند اختيار احد التقارير وقمت بالضغط على زر الامر يقوم بفتحه مرفق المثال 8.rar
حمادة عثمان قام بنشر مايو 13, 2017 الكاتب قام بنشر مايو 13, 2017 اريد ان افعل زر امر لفتح التقارير كما فى القاعدة المرفقة
Shivan Rekany قام بنشر مايو 13, 2017 قام بنشر مايو 13, 2017 10 دقائق مضت, حمادة عثمان said: اريد ان افعل زر امر لفتح التقارير كما فى القاعدة المرفقة اسف ما رأيت مرفقك اتفضل استخدمت هذا الكود If Len(Me.Combo11 & "") <> 0 Then If Me.Combo11 = "اجمالى الطلاب النشطين" Then DoCmd.OpenReport "active_s", acViewPreview ElseIf Me.Combo11 = "طبقا للكلية" Then DoCmd.OpenReport "active_s_f", acViewPreview ElseIf Me.Combo11 = "طبقا للفرقة الدراسة" Then DoCmd.OpenReport "", acViewPreview ElseIf Me.Combo11 = "طبقا للنوع" Then DoCmd.OpenReport "", acViewPreview End If Else MsgBox "اختر التقرير اولا" End If اعمل التقريرين لفرقة الدراسة و النوع و اكتب اسمهما في الكود 8.rar
حمادة عثمان قام بنشر مايو 13, 2017 الكاتب قام بنشر مايو 13, 2017 2 minutes ago, Shivan Rekany said: اسف ما رأيت مرفقك اتفضل استخدمت هذا الكود If Len(Me.Combo11 & "") <> 0 Then If Me.Combo11 = "اجمالى الطلاب النشطين" Then DoCmd.OpenReport "active_s", acViewPreview ElseIf Me.Combo11 = "طبقا للكلية" Then DoCmd.OpenReport "active_s_f", acViewPreview ElseIf Me.Combo11 = "طبقا للفرقة الدراسة" Then DoCmd.OpenReport "", acViewPreview ElseIf Me.Combo11 = "طبقا للنوع" Then DoCmd.OpenReport "", acViewPreview End If Else MsgBox "اختر التقرير اولا" End If اعمل التقريرين لفرقة الدراسة و النوع و اكتب اسمهما في الكود 8.rar الكبير كبير والله تسلم ايدك طب ممكن اخر طلب صغير لو ينفع فى زر الامر الاخر انى ممكن اصدر التقرير الى pdf انا عارف انى غلست عليك
Shivan Rekany قام بنشر مايو 13, 2017 قام بنشر مايو 13, 2017 48 دقائق مضت, حمادة عثمان said: لو ينفع فى زر الامر الاخر انى ممكن اصدر التقرير الى pdf اليك هذا If Len(Me.Combo11 & "") <> 0 Then If Me.Combo11 = "اجمالى الطلاب النشطين" Then DoCmd.OutputTo acOutputReport, "active_s", acFormatPDF, "D:\active_s.pdf" ElseIf Me.Combo11 = "طبقا للكلية" Then DoCmd.OutputTo acOutputReport, "active_s_f", acFormatPDF, "D:\active_s_f.pdf" ElseIf Me.Combo11 = "طبقا للفرقة الدراسة" Then ElseIf Me.Combo11 = "طبقا للنوع" Then End If Else MsgBox "اختر التقرير اولا" End If End Sub 1
حمادة عثمان قام بنشر مايو 13, 2017 الكاتب قام بنشر مايو 13, 2017 2 hours ago, Shivan Rekany said: اليك هذا If Len(Me.Combo11 & "") <> 0 Then If Me.Combo11 = "اجمالى الطلاب النشطين" Then DoCmd.OutputTo acOutputReport, "active_s", acFormatPDF, "D:\active_s.pdf" ElseIf Me.Combo11 = "طبقا للكلية" Then DoCmd.OutputTo acOutputReport, "active_s_f", acFormatPDF, "D:\active_s_f.pdf" ElseIf Me.Combo11 = "طبقا للفرقة الدراسة" Then ElseIf Me.Combo11 = "طبقا للنوع" Then End If Else MsgBox "اختر التقرير اولا" End If End Sub انا عاجز عن الشكر تحية تقدير واجلال لحضرتك 1
ابو جودي قام بنشر مايو 13, 2017 قام بنشر مايو 13, 2017 ممكن بعد اذن استاذى الحبيب ومعلمنا الفاضل @Shivan Rekany حضرتك طبعا كفيت ووفيت جزاكم الله خيرا ممكن اضيف هذا المرفق بطريقة اخرى لتعم الفائدة باكثر من فكرة open report from compobox.rar 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.