[sendbad100]

السلام عليكم
المطلوب غير واضح  

حدد اي قيمة تريد بموجبه يتم الاخفاء  هل اذا كان المدين صفر   او الدائن اوالفرق بينهما

---

حسب  فهمي  

احف الكود الذي في  زر العرض 
وضع التالي 

اتمنى يفي بالغرض

PHP كود :

Private Sub Command1_Click()
On Error Resume Next
If Me.Check1.Value = 1 Then

Adodc1.RecordSource = "SELECT name AS [اسم العميل], Sum(a_g) AS [حساب مدين], Sum(m) AS [حساب دائن], Sum(a_g)-Sum(m) AS [رصيد مدين], Sum(m)-Sum(a_g) AS [رصيد دائن] FROM fat GROUP BY name HAVING (((Sum(a_g)-Sum(m))<>0) AND ((Sum(m)-Sum(a_g))<>0))"
 Else
 Adodc1.RecordSource = "select name as [اسم العميل ],sum(a_g) as [حساب مدين],sum(m) as [حساب دائن],sum(a_g)-sum(m) as [رصيد مدين],sum(m)-sum(a_g) as [رصيد دائن] from fat group by name"
 End If
 Adodc1.Refresh
 Label9 = Adodc1.Recordset.RecordCount
 
If Adodc3.Recordset.RecordCount > 0 Then
   Set DataGrid1.DataSource = Adodc1
   End If
   DataGrid1.Columns.Item("0").Width = 2000
    DataGrid1.Columns.Item("1").Width = 1000
    DataGrid1.Columns.Item("2").Width = 1000
    DataGrid1.Columns.Item("3").Width = 1000
    DataGrid1.Columns.Item("4").Width = 1000
    Label3 = ""
    Label5 = ""
    Label7 = ""
    Dim Counter As Integer
    For Counter = 1 To Adodc1.Recordset.RecordCount
     Label3 = Val(Label3) + Adodc1.Recordset.Fields(1).Value
      Label5 = Val(Label5) + Adodc1.Recordset.Fields(2).Value

        Adodc1.Recordset.MoveNext
        Next
Form_Activate

End Sub