your code says
Code:
Private Sub A_C_Head_AfterUpdate()
Dim strSource As String
strSource = "SELECT DBKHItems " & _
"FROM [DBKHeads&Items] " & _
"WHERE DBKHHead = '" & Me.[A/C Head] & "' ORDER BY DBKHItems"
Me.Perticulars.RowSource = strSource
Me.Perticulars = vbNullString
End Sub
your thread says
Combo Box “Perticulars”
SELECT [DBKHeads&Items].DBKHItems,[DBKHeads&Items].DBKHNICNo FROM [DBKHeads&Items] WHERE((([DBKHeads&Items].DBKHHead)=[forms]![DBKCashBook].[A/C Head])) GROUP BY[DBKHeads&Items].DBKHItems, [DBKHeads&Items].DBKHNICNo;