اذهب الي المحتوي
أوفيسنا

فتح نموذج بناء على عوامل تصفية من خلال كومبو بوكس

محمد عبد الشفيع

بواسطه محمد عبد الشفيع
في قسم الأكسيس Access

 مشاركة

الردود الموصى بها

محمد عبد الشفيع

محمد عبد الشفيع

قام بنشر
قام بنشر

السلام عليكم ورحمة الله وبركانه
الاساتذة والخبراء الاعزاء 

بالمرفقات قاعدة combo
اريد فى النموذج TSF الاتى :-
1- فى كومبو الاول يتم اختيار الشهر وبناء عليه يظهر فى الكومبو الثانى والثالث ما يخص هذا الشهر فقط
2- فى كومبو الثانى يتم اختيار الفريق وبناء عليه يظهر فى الكومبو الثالث ما يخص الشهر والفريق
3- فى كومبو الثالث يتم اختيار الاسم 
4- اريد اول سطر بجميع الكومبو فارغ وبعد هذا السطر بيانات الكومبو
5- عند اختيار قيمة من الكومبو الثانى او الثالث ثم اختيار قيمة من الكومبو الاول يتم مسح القيم من الكومبو الثانى والثالث وبالمثل عند اختيار قيمة من 
الكومبو الثالث ثم اختيار قيمة من الكومبو الثانى يتم مسح قيمة الكومبو الثالث
6- عند الضغط على زر تطبيق التصفية يتم فتح نموذج KBT بناء على الاختيارات بداخل الكومبو اى عمل تصفية بالشهر والفريق والاسم وعرض النتيجة
لا يشترط الاختيار من جميع الكومبو فقط عند اختيار اى قيمة من اى كومبو يتم التصفية عليه وعرض النتيجة بالنموذج KBT وعند عدم اختيار اى شى من جميع الكومبو يتم عرض النموذج كامل بدون تصفية
7- عند الضغط على زر مسح البيانات يتم مسح بيانات جميع الكومبو

combo.accdb

  • Like 1
رابط هذا التعليق
شارك
Shivan Rekany

Shivan Rekany

قام بنشر
قام بنشر
في ١٥‏/١١‏/٢٠١٨ at 15:17, محمد عبد الشفيع said:

اريد فى النموذج TSF الاتى :-
1- فى كومبو الاول يتم اختيار الشهر وبناء عليه يظهر فى الكومبو الثانى والثالث ما يخص هذا الشهر فقط
2- فى كومبو الثانى يتم اختيار الفريق وبناء عليه يظهر فى الكومبو الثالث ما يخص الشهر والفريق
3- فى كومبو الثالث يتم اختيار الاسم 
4- اريد اول سطر بجميع الكومبو فارغ وبعد هذا السطر بيانات الكومبو
5- عند اختيار قيمة من الكومبو الثانى او الثالث ثم اختيار قيمة من الكومبو الاول يتم مسح القيم من الكومبو الثانى والثالث وبالمثل عند اختيار قيمة من 
الكومبو الثالث ثم اختيار قيمة من الكومبو الثانى يتم مسح قيمة الكومبو الثالث
6- عند الضغط على زر تطبيق التصفية يتم فتح نموذج KBT بناء على الاختيارات بداخل الكومبو اى عمل تصفية بالشهر والفريق والاسم وعرض النتيجة
لا يشترط الاختيار من جميع الكومبو فقط عند اختيار اى قيمة من اى كومبو يتم التصفية عليه وعرض النتيجة بالنموذج KBT وعند عدم اختيار اى شى من جميع الكومبو يتم عرض النموذج كامل بدون تصفية
7- عند الضغط على زر مسح البيانات يتم مسح بيانات جميع الكومبو

اليك هذا

 

combo.accdb

  • Thanks 1
رابط هذا التعليق
شارك
محمد عبد الشفيع

محمد عبد الشفيع

قام بنشر
  • الكاتب
قام بنشر
46 دقائق مضت, محمد عبد الشفيع said:

مشكور اخى وجارى التجربة غدا باذن الله

استاذى العزيز @Shivan Rekany

كومبو بوكس الثانى والثالث يعرضوا فارغين بدون بيانات مثل الكومبو الاول حيث انى ممكن ان اختار من كومبو الثالث فقط الاسم وافتح النموذح بناء عليه دون ان اختار الشهر والفريق

زر مسح البيانات يفرغ الكومبو ولكنه لا يعرض جميع بيانات الكومبو الثانى والثالث

رابط هذا التعليق
شارك
Shivan Rekany

Shivan Rekany

قام بنشر
قام بنشر
7 ساعات مضت, محمد عبد الشفيع said:

كومبو بوكس الثانى والثالث يعرضوا فارغين بدون بيانات مثل الكومبو الاول حيث انى ممكن ان اختار من كومبو الثالث فقط الاسم وافتح النموذح بناء عليه دون ان اختار الشهر والفريق

زر مسح البيانات يفرغ الكومبو ولكنه لا يعرض جميع بيانات الكومبو الثانى والثالث

اتفضل اليك هذا 

Option Compare Database

Private Sub ComFrq_AfterUpdate()
    Me.ComNam = Null
    Call Tesfie
End Sub

Private Sub command10_Click()
    Me.ComMnth = Null
    Me.ComFrq = Null
    Me.ComNam = Null
    Call Tesfie
End Sub

Private Sub command9_Click()
    DoCmd.OpenForm "KBT", acNormal
End Sub

Private Sub ComMnth_AfterUpdate()
    Me.ComFrq = Null
    Me.ComNam = Null
    Call Tesfie
End Sub

Private Sub Form_Load()
    Call Tesfie
End Sub
Function Tesfie()
    If Len(Me.ComMnth & "") = 0 And Len(Me.ComFrq & "") = 0 Then
        Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT  GROUP BY KBT.nam; "
        Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT  GROUP BY KBT.frq; "
    ElseIf Len(Me.ComMnth & "") = 0 And Len(Me.ComFrq & "") <> 0 Then
        Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT WHERE (((KBT.frq)=Forms!TSF!ComFrq)) GROUP BY KBT.nam; "
        Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT  GROUP BY KBT.frq; "
    ElseIf Len(Me.ComMnth & "") <> 0 And Len(Me.ComFrq & "") = 0 Then
        Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT WHERE (((KBT.mnth)=Forms!TSF!ComMnth)) GROUP BY KBT.nam; "
        Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT WHERE (((KBT.mnth)=[Forms]![TSF]![ComMnth])) GROUP BY KBT.frq; "
    ElseIf Len(Me.ComMnth & "") <> 0 And Len(Me.ComFrq & "") <> 0 Then
        Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT WHERE (((KBT.mnth)=Forms!TSF!ComMnth) And ((KBT.frq)=Forms!TSF!ComFrq)) GROUP BY KBT.nam; "
        Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT  GROUP BY KBT.frq; "
    End If
End Function

 

combo.accdb

  • Thanks 1
رابط هذا التعليق
شارك
محمد عبد الشفيع

محمد عبد الشفيع

قام بنشر
  • الكاتب
قام بنشر
5 ساعات مضت, Shivan Rekany said:

اتفضل اليك هذا 


Option Compare Database

Private Sub ComFrq_AfterUpdate()
    Me.ComNam = Null
    Call Tesfie
End Sub

Private Sub command10_Click()
    Me.ComMnth = Null
    Me.ComFrq = Null
    Me.ComNam = Null
    Call Tesfie
End Sub

Private Sub command9_Click()
    DoCmd.OpenForm "KBT", acNormal
End Sub

Private Sub ComMnth_AfterUpdate()
    Me.ComFrq = Null
    Me.ComNam = Null
    Call Tesfie
End Sub

Private Sub Form_Load()
    Call Tesfie
End Sub
Function Tesfie()
    If Len(Me.ComMnth & "") = 0 And Len(Me.ComFrq & "") = 0 Then
        Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT  GROUP BY KBT.nam; "
        Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT  GROUP BY KBT.frq; "
    ElseIf Len(Me.ComMnth & "") = 0 And Len(Me.ComFrq & "") <> 0 Then
        Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT WHERE (((KBT.frq)=Forms!TSF!ComFrq)) GROUP BY KBT.nam; "
        Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT  GROUP BY KBT.frq; "
    ElseIf Len(Me.ComMnth & "") <> 0 And Len(Me.ComFrq & "") = 0 Then
        Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT WHERE (((KBT.mnth)=Forms!TSF!ComMnth)) GROUP BY KBT.nam; "
        Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT WHERE (((KBT.mnth)=[Forms]![TSF]![ComMnth])) GROUP BY KBT.frq; "
    ElseIf Len(Me.ComMnth & "") <> 0 And Len(Me.ComFrq & "") <> 0 Then
        Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT WHERE (((KBT.mnth)=Forms!TSF!ComMnth) And ((KBT.frq)=Forms!TSF!ComFrq)) GROUP BY KBT.nam; "
        Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT  GROUP BY KBT.frq; "
    End If
End Function

 

combo.accdb

اشكرك عزيز وجارى التجربة

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept