[Resolvido]Abrir mesmo formulário 2 vezes

Olá Amigos
Estou fazendo um aplicativo no Access para controle de atendimentos. Ao clicar em um botão, um determinado formulário é aberto, só que preciso que esse formulário seja aberto mais de uma vez, pois múltiplas ocorrências poder existir simultaneamente.
Como isso é possível?
Esse é o código que abre o formulário:

Código:

Private Sub Comando7_Click()
Dim DB As Database, RS As DAO.Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("tbl_reg_chamada_190")
RS.AddNew
RS("Horário") = Now
RS("Motivo") = "Ocorrência"
RS.Update
RS.Close
DoCmd.OpenForm "frm_atendimento"
End Sub

fácil, criar formulários iguais: form1 e form2

Coloque assim em um Botão:

Código:


Static Frm As Form_Formulário1
Set Frm = New Form_Formulário1
Frm.Visible = True



Nesse exemplo ele Abre o Formulário1 (Form_Formulário1)

Obs: Mudar apenas o Nome do formulario, deixando o Form_

Não funcionou da forma esperada. Esse comando repete o formulário já aberto somente com o botão no próprio formulário.

Imagine o seguinte:

Formulário A contém um botão [ocorrência]. Ao clicar no botão, abrirá um Formulário B para inserir os dados da ocorrência. Porém, antes dessa ocorrência finalizar, pode haver outra. Ao clicar no botão [ocorrência] no Formulário A é necessário que outro Formulário B seja aberto, colhendo as informações da nova ocorrência.

Como resolver?

O problema foi solucionado criando cópias de formulários iguais como recomendado por alpedro.
O pulo do gato foi criar botões idênticos - um para cada formulário, colocar todos sobrepostos (um por cima do outro), e, em cada botão um código que, ao ser clicado, fica oculto automaticamente e, um refresh. Em cada formulário, um botão para fechar ao finalizar o preenchimento e, nesse botão um comando para tornar o botão que antes estava oculto no primeiro formulário, visível novamente e, um refresh.

Ideia fácil, execução chata - fiz 10 formulários.
Exemplo do código no Formulário A

Código:

Private Sub bot_ocorr01_Click()
Dim DB As Database, RS As DAO.Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("tbl_reg_cham")
RS.AddNew
RS("Horário") = Now
RS("Motivo") = "Ocorrência"
RS.Update
RS.Close
DoCmd.OpenForm "frm_atendimento01", acNormal
Me.bot_ocorr01.Enabled = False
Me.bot_ocorr01.Visible = False
Refresh
End Sub

Exemplo do código no Formulário que foi repetido várias vezes

Código:

Private Sub bot_finalizar_Click()
Me.DataFim = Now()
If IsNull(Me.comb_ocorr) Or Me.comb_ocorr.Value = "" Then
MsgBox "O campo Ocorrência é de preenchimento obrigatório", vbCritical, "Atenção"
Me.comb_ocorr.SetFocus
Exit Sub
ElseIf IsNull(Me.Endereço_da_Ocorrência) Or Me.Endereço_da_Ocorrência.Value = "" Then
MsgBox "O campo Endereço da Ocorrência é de preenchimento obrigatório", vbCritical, "Atenção"
Me.Endereço_da_Ocorrência.SetFocus
Exit Sub
ElseIf IsNull(Me.Dados_da_Ocorrência) Or Me.Dados_da_Ocorrência.Value = "" Then
MsgBox "O campo Dados da Ocorrência é de preenchimento obrigatório", vbCritical, "Atenção"
Me.Dados_da_Ocorrência.SetFocus
Exit Sub
ElseIf IsNull(Me.comb_provid) Or Me.comb_provid.Value = "" Then
MsgBox "O campo Providência Adotada é de preenchimento obrigatório", vbCritical, "Atenção"
Me.comb_provid.SetFocus
Exit Sub
End If
DoCmd.Close
Forms![frm_telainicial]![bot_ocorr01].Enabled = True
Forms![frm_telainicial]![bot_ocorr01].Visible = True

End Sub

Observem que tem algumas peculiaridades, como campos de preenchimento obrigatório.

Obrigado!