CHAMAR FORMULARIO.
Bom dia a Todos,
Estou com um problema, tenho o nome do formulário em uma variável. Preciso abrir este formulário (nome_form.show), mas naum estou conseguindo.
Estou fazendo assim:
variável = "nome_form"
variável.show
Desde já agradeço a atenção de vcs.
Att,
Bruno Machado Jardim
Estou com um problema, tenho o nome do formulário em uma variável. Preciso abrir este formulário (nome_form.show), mas naum estou conseguindo.
Estou fazendo assim:
variável = "nome_form"
variável.show
Desde já agradeço a atenção de vcs.
Att,
Bruno Machado Jardim
vc tem o mdiform?
se tiver então faça assim:
Private Sub Form_Load()
Frm.MDIChild = True
frm.show
ou
variavel.show
End Sub
se não tiver o mdiform
faça assim:
Private Sub Form_Load()
Frm.MDIChild = false
frm.show
ou
variavel.show
End Sub
não se esqueça de finalizar o topico.
se tiver então faça assim:
Private Sub Form_Load()
Frm.MDIChild = True
frm.show
ou
variavel.show
End Sub
se não tiver o mdiform
faça assim:
Private Sub Form_Load()
Frm.MDIChild = false
frm.show
ou
variavel.show
End Sub
não se esqueça de finalizar o topico.
Não estou utilizando MDIChild.
Mas a minha variável é do tipo String?
Código:
variável = "nome_do_form"
variável.show
Bruno
Mas a minha variável é do tipo String?
Código:
variável = "nome_do_form"
variável.show
Bruno
Cara é o seguinte para vc carregar o form em uyma variavel vc deve muda duas coisa a primeira a var não tipo string e sim tipo object e vc tem q setar a varaivel para receber o nom referente ao form
ex.
Private Sub Command1_Click()
Dim vform As Object
Set vform = Form2
vform.Show (1)
End Sub
ex.
Private Sub Command1_Click()
Dim vform As Object
Set vform = Form2
vform.Show (1)
End Sub
deu certo
Deu certo, mas tem um problema.
O nome do forme está em um banco de dados e está definido como String.
Private Sub Command1_Click()
Dim vform As Object
Set vform = "nome_do_form em string"
vform.Show (1)
End Sub
dá erro.
Tem alguma função em vb que converte string para object?
Muito obrigado.
Fico no aguardo,
Bruno
O nome do forme está em um banco de dados e está definido como String.
Private Sub Command1_Click()
Dim vform As Object
Set vform = "nome_do_form em string"
vform.Show (1)
End Sub
dá erro.
Tem alguma função em vb que converte string para object?
Muito obrigado.
Fico no aguardo,
Bruno
vou te mandar um exemplo de como é + o - .
Private Sub Form_Activate()
If Data1.Recordset.RecordCount = 0 Then
Data1.Recordset.AddNew
Data1.Recordset.TENPO = Data1.Recordset.TENPO + 1
Data1.Recordset.Update
Else
If Data1.Recordset.TENPO >= 1 Then
MsgBox (" :) .")
End
Exit Sub
End If
Data1.Recordset.Edit
Data1.Recordset.TENPO = Data1.Recordset.TENPO + 1
Data1.Recordset.Update
End If
End Sub
este é um exemplo.
tente ai se a duvida for resolvida encerre o topico.
Private Sub Form_Activate()
If Data1.Recordset.RecordCount = 0 Then
Data1.Recordset.AddNew
Data1.Recordset.TENPO = Data1.Recordset.TENPO + 1
Data1.Recordset.Update
Else
If Data1.Recordset.TENPO >= 1 Then
MsgBox (" :) .")
End
Exit Sub
End If
Data1.Recordset.Edit
Data1.Recordset.TENPO = Data1.Recordset.TENPO + 1
Data1.Recordset.Update
End If
End Sub
este é um exemplo.
tente ai se a duvida for resolvida encerre o topico.
Bom abra o recordset com a tabela q tem os valores (nome do form)
no evento Clique do botão
Private Sub Command1_Click()
Dim vform As Form 'definindo como um form mesmo
Dim vnomform As String 'definindo a string q sera o nome do form
'carrega o nome do form para a variavel, vc poderia tb carregar o nome em um text e ai
'chamar pelo text ex vnomform = Text1.text
'certo
vnomform = rs![camponome]
'define o objeto como sendo a string
Set vform = Forms.Add(vnomform)
'carrega o form
vform.Show
End Sub
Testei aqui e funcionou beleza, espero ajudar
no evento Clique do botão
Private Sub Command1_Click()
Dim vform As Form 'definindo como um form mesmo
Dim vnomform As String 'definindo a string q sera o nome do form
'carrega o nome do form para a variavel, vc poderia tb carregar o nome em um text e ai
'chamar pelo text ex vnomform = Text1.text
'certo
vnomform = rs![camponome]
'define o objeto como sendo a string
Set vform = Forms.Add(vnomform)
'carrega o form
vform.Show
End Sub
Testei aqui e funcionou beleza, espero ajudar
Valeu, Ajudou muito!!!!
Obrigado!
Obrigado!
Tópico encerrado , respostas não são mais permitidas