حمادة عثمان

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

تسلموا جميعا وبارك الله فيكم

كيف يمكننى كتابة اسماء ازرار الامر الموجودة بالنماذج باللغة العربية وظهورها عند الوقوف بمؤشر الماوس عليها

لدى نموذج اريد كود للمعاينة قبل الطباعة وليس طباعة مباشرة

لكن انا عايز يكون فى نموذج مش تقرير

احتاج ان اضع زر امر عرض قبل الطباعة فى نموذج

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

 

انا عاجز عن الشكر

تحية تقدير واجلال لحضرتك

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

انا عارف انى غلست عليك

اريد ان افعل زر امر لفتح التقارير كما فى القاعدة المرفقة

للدى تقرير اسمه الطلاب النشطين مرتبط باستعلام

قمت باستخراج ثلاثة تقارير منه عن طريق التجميع والفرز

ولدى نموذج به زرين امر الاول لتصدير التقرير الى صيغ مختلفة والاخر لمعاينة التقرير

اريد ان اضع الكومبوبوكس بالنموذج به اسماء تلك التقارير

وعند اختيار احد التقارير وقمت بالضغط على زر الامر يقوم بفتحه

مرفق المثال

8.rar

انا هوضحلك بالتفصيل فى الموضوع

ش

2 minutes ago, Shivan Rekany said:

ههههه

حبيت فكرتك

اتفضل عملت لك هذا عالسريع

 

Database1.rar

شكرا على مجهودك واهتمامك

بس ليا عندك طلب صغير

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

ارجو المساعدة يا اخوة

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

فيه مشكلة فى الكود

هل الكود ناقص

ارجو توضيحه وشرحه اكثر

2 hours ago, Shivan Rekany said:

حسب فهمی لسؤالك في تاريخ الى قبل تحديث اكتب

If me.date1 > me.date2 then
    Msgbox "لا یجوز "
    Cancel = -1
 End if

غير me.date1 بأسم مربع نصي تاريخ من و me.date2 بأسم مريع نصي تاريخ الى

شكرا على مجهودك فعلا انا محتاج دة

43 minutes ago, أمير2008 said:

هههههههههه

كيفك أستاذ حماده ؟

 

أنا قبل تسجيل الدخول كنت على الانترنت و سمعت ضجيجاً وصراخاً داخل منتدى أوفيسينا

فقلت أدخل المنتدى  يمكن يكون هناك أعضاء يتعاركون أو شيئ من هذا القبيل

فوجدتك تصرخ طالباً المساعدة

هههههههه

على العموم على حد علمي فأنت تحتاج للاستخدام  دالة If

وفي مثالك جرب التالي عند الضغط على زر الحفظ :

  On Error Resume Next
    DoCmd.SetWarnings False
    If MsgBox("هل تريد حغظ التغييرات", vbYesNo, "الجفظ") = vbNo Then
Cancel = -1
   Me.Undo
   DoCmd.SetWarnings True
Else
If Nz(Me.student_name, 0) = 0 Or Nz(Me.gender, 0) = 0 Or Nz(Me.faculty, 0) = 0 Or Nz(Me.class, 0) = 0 Or Nz(Me.entry_data, 0) = 0 Then
MsgBox ("هناك حقول لم يتم كتابتها")
If Nz(Me.entry_data, 0) = 0 Then Me.entry_data.SetFocus
If Nz(Me.class, 0) = 0 Then Me.class.SetFocus
If Nz(Me.faculty, 0) = 0 Then Me.faculty.SetFocus
If Nz(Me.gender, 0) = 0 Then Me.gender.SetFocus
If Nz(Me.student_name, 0) = 0 Then Me.student_name.SetFocus
Else
DoCmd.GoToRecord , , acNewRec
End If
End If

 

تسلم ايدك وشكرا على الاستجابة لبسريعة هههههههههههه

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

لدى نموذج لاستخراج تقرير بقترة اريد ان تااريخ الى لا يسبق تاريخ من

طب اعمل اية  علشان حد يساعدنى

الرجاء المساعدة

هل من معاون لى يا اخوة

ارجو المساعدة يا خوانى

فى القاعدة المرفقة

وهى عبارة عن نموذجين للطلاب والسادا

اريد عند الظغط على زر حفظ او الضغط على زر انشاء جديد تظهر لى رسالة انه توجد حقول ضرورية فارغة

6.rar

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

لما بضغط على حفظ بيحفظ عادى بس لما بقفل النموذج بيظهرلى رسايل الاكسس لانى عامل فى خصائص الجدول ان الحقول دى ضرورية

انا كنت عايزك تطبقلى انت الكود فى المثال دة