Senhores, meu código sempre da erro quando inicio a planilha por primeira vez, depois o erro não aparece mais, o erro aparece quando clico no botão cadastra, mas só aparece uma vez .
]
Codigo: ’ Declaração de variáveis globais para os objetos do formulário
Public form_cadastro As Object
Public CAIXA_DATA As Object
Public BOTAO_CADASTRAR As Object
’ Exibir o formulário de cadastro
Sub Formulario_Cadastro()
’ Verificar se a biblioteca está carregada e carregar, se necessário
If Not DialogLibraries.hasByName(“CADASTRO_PESSOAS”) Then
DialogLibraries.LoadLibrary(“CADASTRO_PESSOAS”)
End If
' Verificar se o formulário está disponível na biblioteca
If DialogLibraries.CADASTRO_PESSOAS.hasByName("FORM_CADASTRO") Then
form_cadastro = CreateUnoDialog(DialogLibraries.CADASTRO_PESSOAS.getByName("FORM_CADASTRO"))
Else
MsgBox "O formulário 'FORM_CADASTRO' não foi encontrado na biblioteca 'CADASTRO_PESSOAS'.", 16, "Erro"
Exit Sub
End If
' Obter os controles do formulário
On Error Resume Next
CAIXA_DATA = form_cadastro.getControl("CAIXA_DATA")
BOTAO_CADASTRAR = form_cadastro.getControl("BOTAO_CADASTRAR")
On Error GoTo 0
' Exibir o formulário
form_cadastro.execute()
End Sub
’ Subrotina para processar o evento de cadastro
Sub ProcessarCadastro()
’ Validar dados da entrada
If IsNull(CAIXA_DATA.Text) Or CAIXA_DATA.Text = “” Then
MsgBox “Por favor, insira uma data válida.”, 16, “Erro”
Exit Sub
End If
' Simular um processo de cadastro (exemplo)
MsgBox "Cadastro realizado com sucesso para a data: " & CAIXA_DATA.Text, 64, "Sucesso"
End Sub
’ Subrotina para chamar o formulário de cadastro
Sub ExibirFormularioCadastro()
Call Formulario_Cadastro
End Sub
’ Subrotina para exibir o formulário
Sub ixibri()
Call Formulario_Cadastro
End Sub
Alguém me ajude por favor!