필드 기본값을 필터와 동일하게 설정하십시오.

Question

필터가있는 폼을 엽니 다. 이 양식을 사용하여 새 레코드를 만들 때 필드가 필터와 동일한 기본값을 갖길 원합니다. (그러면 새 레코드가 현재 필터 결과의 일부가됩니다). 폼을 열 때 tempvar에 필터 값을 저장합니다.

어떻게하면 간단하게 처리 할 수 ​​있습니까?

이 질문에서 현재의 필터를 얻을 수있는 두 후자의 방법을 시도 : Access 2003 VBA Get Active filter?이

나는 전자를 이해하지 못했다.

Visual Basic을 프로그래밍하지 않았고 중요한 수준의 액세스를 사용하지 않았습니다. 그래서 나는 꽤 상세한 설명이 필요할지도 모른다.

고마워요.

Answer 1

아쉽게도 Access에는 이러한 기능이 없습니다. 그리고 이것을 구현하기 위해서는 VBA를 배워야합니다.

필자는 필터를 분석하기가 어려울 것이라고 생각합니다. 제 생각에는 각 필드에 대한 필터 및 오류 값을 설정하는 것이 더 쉬울 것입니다. 양식을 여는 함수와 값을 설정하기위한 일부 공용 양식 메소드가 필요합니다.

Dim m_stFiler as String 

Public Sub SetControlFilter(ByVal stCtrl As String, ByVal stExp As String, ByVal stValue as String) 
    Dim ctl As Control 

    '-- set default value 
    set ctl = Me("stCtrl") 

    ctl.DefaultValue = "=""" & stValue & """" 

    '-- build filter 
    If m_stFiler <> "" Then m_stFiler = m_stFiler & " AND " 
    m_stFiler = m_stFiler & ctl.ControlSource & " " & stExp & " "" & stValue & "" " 

End Sub 

Public Sub ApplyFilter() 
    Me.Filter = m_stFiler 
    Me.FilterOn = True 
End Sub 

Answer 2

Sergeys 대답 바른 길에 나를 넣어 :

여는 형태의 기능을 같이 할 수처럼

Dim frm as Form_SomeForm 

DoCmd.OpenForm "SomeForm", , , , , acHiden 

Set frm = Forms("SomeForm") 

frm.SetControlFilter("UserName", "=", "Foo") 
frm.SetControlFilter("Age", "=", "123") 
... 

frm.ApplyFilter() 

frm.Visible = True 

양식 모듈 "SomeForm"찾아보실 수 있습니다.

나는 tweeks를해야만했다.

그것은 단지 하나의 필드에 근무하고 나는 methodsas이 전화를했다 :

Dim stCon As String 
stCon = stCtrl 
'-- set default value 
Set ctl = Me(stCon) 

: 나는이 같은 새로운 내부 변수에 stCtrl을 저장했다 몇 가지 이유를 들어

Call frm.SetControlFilter("Age", "=", "123") 

을

고마워요 많은로