Private Sub 검색_Click()
DoCmd.ApplyFilter "", "[전표번호]= [Forms]![자재상위]![검색전표번호]"
즉, 필터의 조건식이라고 할 수 있습니다. ACFORMS간의 차이는 한번 작성한 후 속도를 측정해보면 이해하기 쉬울 것입니다.
필터를 많이 이용하는 곳은 고객관리에서 많이 이용되고 있다. 즉 ㄱ,ㄴ,ㄷ 등등에서 VBA로 작성된다.

End Sub

Private Sub 초기화면_Click()
DoCmd.OpenForm "초기화면", acNormal
End Sub

Private Sub Command58_Click()
전부 보이기의 표기
DoCmd.ApplyFilter "", "[전표구분] = [Forms]![자재상위]![전표구분1]"
DoCmd.GoToRecord , , acLast
참조 DoCmd.ShowAllRecords-> 필터해지 하고 전제레코드를 표시합니다.
End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
Me.전표이름 = [Forms]![초기화면]![전표구분1] & " 자재전표"
전표이름은 전표구분1 자재전표로 표시되어 입고 자재전표,공정 자재전표 등과 같이 표시됨
End Sub

Private Sub 수량_DblClick(Cancel As Integer)
Dim aa As Integer
Dim bb As Integer
Dim cc As Integer
Dim dd As Integer
aa = Nz(DSum("수량", "자재총괄", "[전표구분]=1 and [품목코드]=Forms!자재상위!자재하위.Form!품목코드 and [발행일]<=Forms!자재상위!발행일"), 0)
nz함수는 도움말에서 참조하시기 바랍니다.
쿼리 자재총괄에서 전표구분이 입고며 폼의 발행일보다 이전 수량의 조건 합계
bb = Nz(DSum("수량", "자재총괄", "[전표구분]=2 and [품목코드]=Forms!자재상위!자재하위.Form!품목코드 and [발행일]<=Forms!자재상위!발행일"), 0)
cc = Nz(DSum("수량", "자재총괄", "[전표구분]=3 and [품목코드]=Forms!자재상위!자재하위.Form!품목코드 and [발행일]<=Forms!자재상위!발행일"), 0)
dd = Nz(DSum("수량", "자재총괄", "[전표구분]=4 and [품목코드]=Forms!자재상위!자재하위.Form!품목코드 and [발행일]<=Forms!자재상위!발행일"), 0)
MsgBox "현재 입고-공정;" & aa - bb & "개 재고, 공정-완제품;" & bb - cc & "개 재고, " _
& " 완재-판매;" & cc - dd & "개 재고", vbMsgBoxSetForeground, "변정한"
% 실은 위의 자료가 없을 시 else 를 사용하여 다른 내용을 추가 해보십시오
End Sub

Private Sub 창고코드_GotFocus()
Me.창고코드.Dropdown
End Sub

Private Sub 품목코드_DblClick(Cancel As Integer)
On Error GoTo Err_품목코드_DblClick
Me.단위.SetFocus
% 단위 필드로 포커스 이동
Dim FIND As String
FIND = "*" & [Forms]![자재상위]![자재하위].Form![품목코드] & "*"
자재상위의 자재하위폼 중 품목코드의 일부내용
DoCmd.OpenForm "FIND", acNormal
If IsNull(Me.품목코드) Or Me.품목코드 = "" Then
Forms!FIND!LIST.RowSource = " SELECT 품목코드, 품목상위명, 단가1, 단가2, 단가3, 단가4 FROM 품목코드상위 "
Else
Forms!FIND!LIST.RowSource = " SELECT 품목코드, 품목상위명, 단가1, 단가2, 단가3, 단가4 " _
& " FROM 품목코드상위 " _
& " WHERE (((품목코드) Like " & "'" & FIND & "'));"
End If

2가지의 품목코드 질의 폼으로 표시하도록 하였습니다. 
1. 품목코드에 null인 경우 전체품목코드가 표기
2. 품목코드에 일부코드를 알고 있는 경우 일부항목검색

If Forms!자재상위!전표구분 = 1 Then
Forms!FIND!N = 13
ElseIf Forms!자재상위!전표구분 = 2 Then
Forms!FIND!N = 23
ElseIf Forms!자재상위!전표구분 = 3 Then
Forms!FIND!N = 33
ElseIf Forms!자재상위!전표구분 = 4 Then
Forms!FIND!N = 43
End If
Forms!FIND.LIST.Requery
Forms!FIND!성명1.SetFocus
Exit_품목코드_DblClick:
Exit Sub
Err_품목코드_DblClick:

' MsgBox "자료이상으로 추가 이동할 수 없습니다.확인하십시요.다시 확인하세요", vbYes, "B&H DATABASE 변정한", vbOKOnly
MsgBox Err.Description
Resume Exit_품목코드_DblClick
[참조] 위 예제는 에러에 대한 생각을 하여 프로그램을 작성한 것이다.
End Sub