تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ِAccess 2016
#1
Option Compare Database

Private Sub g_GotFocus()
Me.g.RowSource = "select distinct ga from a"
End Sub

Private Sub x_GotFocus()
If IsNull(g) Then
Me.x.RowSource = " select distinct aux from a"
Else
Me.x.RowSource = " select distinct aux from a where ga = '" & Me.g & "'"
End If
End Sub

هذا الكود لم يعمل معي كتصفية للبيانات لعمودي الجدول
حيث ان اسم الجدول (a) واسم العمود الاول (ga) واسم العمود الثاني (aux) واسم كمبو بوكس الاول في النموذج (g) واسم الكمبو بوكس الثاني (x)
لم تتم التصفية كما في الجداول والاستعلامات 
وقد حاولت خمسين مرة ولم تنجح العملية
الرد }}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم