ِAccess 2016 - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94) +--- قسم : مايكرسوفت أكسيس Microsoft Access (http://vb4arb.com/vb/forumdisplay.php?fid=170) +--- الموضوع : ِAccess 2016 (/showthread.php?tid=40677) |
ِAccess 2016 - محمد يحي الزبيري - 03-02-22 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) لم تتم التصفية كما في الجداول والاستعلامات وقد حاولت خمسين مرة ولم تنجح العملية |