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

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

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

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

combo.accdb

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

للرفع

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

للرفع

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

للرفع

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

في ١٧‏/١١‏/٢٠١٨ at 07:47, محمد عبد الشفيع said:

للرفع

 

[Shivan Rekany]

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

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

اليك هذا

 

combo.accdb

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

6 ساعات مضت, Shivan Rekany said:

اليك هذا

 

combo.accdb

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

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

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

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

استاذى العزيز @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

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

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

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