03-02-22, 06:58 PM
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)
لم تتم التصفية كما في الجداول والاستعلامات
وقد حاولت خمسين مرة ولم تنجح العملية
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)
لم تتم التصفية كما في الجداول والاستعلامات
وقد حاولت خمسين مرة ولم تنجح العملية