sn aguney
formun modülüne aşağıdaki kodu ekleyiniz. zaten after update olayı varsa birleştirmeniz gerekir. yoksa hata verecektir. doğru anlamışsam kod istediğiniz sonucu vermektedir

Private Sub GİREN_MİKTAR_AfterUpdate()
Dim miktar As Integer, Sql As String, SQL1 As String
Sql = "SELECT [STOK GİRİŞ ÇIKIŞ].MAKAM FROM [STOK GİRİŞ ÇIKIŞ] WHERE ((([STOK GİRİŞ ÇIKIŞ].[GİREN MİKTAR]) > 0)) GROUP BY [STOK GİRİŞ ÇIKIŞ].MAKAM ORDER BY [STOK GİRİŞ ÇIKIŞ].MAKAM;"
SQL1 = "SELECT [STOK GİRİŞ ÇIKIŞ].MAKAM FROM [STOK GİRİŞ ÇIKIŞ] GROUP BY [STOK GİRİŞ ÇIKIŞ].MAKAM ORDER BY [STOK GİRİŞ ÇIKIŞ].MAKAM;"

miktar = Nz(GİREN_MİKTAR)
If miktar > 0 Then Me.Açılan_Kutu64.RowSource = SQL: Me.Açılan_Kutu64.Requery Else Me.Açılan_Kutu64.RowSource = SQL1: Me.Açılan_Kutu64.Requery

End Sub