منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ِAccess 2016
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
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)
لم تتم التصفية كما في الجداول والاستعلامات 
وقد حاولت خمسين مرة ولم تنجح العملية