사용자 폼에서 사용자 폼을 반복해서 열면 개체 문제가 발생합니다.

Question

저는 현재 Excel 2003에서 일련의 데이터 입력 폼을 표시하는 도구를 구축했습니다. 고객은 양식에 "이전 양식"및 "다음 양식"단추가 있어야한다고 요청했습니다.

Sub NextForm(strFormName As String) 
    Dim intCurPos As Integer 
    Dim strNewForm As String 

    'Find out which form we are currently on from a list in a range 
    intCurPos = WorksheetFunction.Match(strFormName, Range("SYS.formlist"), 0) 
    If intCurPos = WorksheetFunction.CountA(Range("SYS.formlist")) Then 
     'We want to use the first one 
     intCurPos = 0 
    End If 

    'Get the name of the form to open 
    strNewForm = WorksheetFunction.Index(Range("SYS.formlist"), intCurPos + 1) 
    'Load the form into the Userforms Collection 
    Set newForm = VBA.UserForms.Add(strNewForm) 
    'Show the form 
    newForm.Show 
End Sub 

난 당신이 25 시간을 수행 한 후 (그래 내가 아는)이다 시스템 충돌이 문제를 다음과 같이

형태 사이를 이동하는 데 사용되는 코드입니다. 나는 이것이 당신이 newForm에 도착할 때마다 발생한다는 것을 깨닫는다. 코드 위의 줄은 완료되지 않고 메모리에있다.

모덜리스 양식은이 문제를 중지하지만 사용자는 다른 양식을로드하고 중요한 문제를 일으킬 수있는 다른 작업을 수행 할 수 있습니다.

누구에게 도움이되는 제안이 있습니까? 어떻게 든 코드 실행을 강요하지만 폼의 모달 능력을 멈추게하지는 않습니까?

롱샷이지만 어떤 도움을 주셔서 감사합니다.

Answer 1

아마도 접근 방식을 변경해야합니다. 주기에 루프 형태 및 루프마다 사용자를 누르십시오 "다음 양식"버튼을 열고 주요 모듈 사용에

:

나는 다음을 제안합니다. 모든 형태에서

'This sub in your main Module 
sub ShowAndCyleForms 
    Dim FormName As String 
    Dim MyForm as Object 
    Dim CloseForm as Boolean 

    FormName = "frmMyForm"   

    do while CloseForm=False 
     set MyForm = VBA.UserForms.Add(FormName)   
     MyForm.Show 
     CloseForm=MyForm.CloseStatus 
     FormName=MyForm.strNewForm 
     Unload MyForm 
     Set MyForm = Nothing 
    loop 

end sub 

는 선언 : 다음을 delievers 기능으로 당신의 서브를 수정

Private Sub btnNextForm_Click() 
    CloseStatus=False 
    strNewForm= NextForm(Me.Name) 
    Me.Hide 
End Sub 

: 모든 "다음 양식"버튼에서

Public CloseStatus as Boolean 
Public strNewForm as String 

이 같은 것을 넣어 양식 이름

Sub NextForm(strFormName As String) 
    Dim intCurPos As Integer 

    'Find out which form we are currently on from a list in a range 
    intCurPos = WorksheetFunction.Match(strFormName, Range("SYS.formlist"), 0) 
    If intCurPos = WorksheetFunction.CountA(Range("SYS.formlist")) Then 
     'We want to use the first one 
     intCurPos = 0 
    End If 

    'Get the name of the form to open 
    NewForm = WorksheetFunction.Index(Range("SYS.formlist"), intCurPos + 1) 
    ' 
End Sub 

당신은 또한 O.K를 수정해야합니다. 폼을 언로드하는 대신 폼을 숨기고 CloseStatus를 true로 설정하십시오.

아이디어는 외부에서 모든 양식로드/언로드를 단일 절차로 제어하는 ​​것입니다.

희망 사항은 충분합니다.