Carregar forms

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Carregar forms

Ju857

GUARIBA
SP - BRASIL

ENUNCIADA !

Postada em 13/09/2012 14:03 hs

Boa tarde preciso carregar um determinado form com teclas de função puxando do BD  o nome do form ex:

            If FC("TECLA") = "F2" Then
                   FC("nome_FORM").Show 1

e ele diz que metodo nao suportado. este fc("nome_form") é string.

Treze
não registrado

ENUNCIADA !

Postada em 13/09/2012 14:14 hs

mude a propriedade keypreview do form principal para true, e cole

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 113 Then
form2.Show 1
End If
End Sub

113 representa a tecla F2

112 = F1
113 = F2
114 = F3
......
123 = F12

Ju857

GUARIBA
SP - BRASIL

ENUNCIADA !

Postada em 13/09/2012 14:16 hs

Assim funciona

mas preciso carregar um campo do banco de dados com o nome do fomulario

fc("nomedoformulario").show 1

Treze
não registrado

ENUNCIADA !

Postada em 13/09/2012 14:26 hs

tipo isso

Private Sub LoadForm(NomeForm As String)

    On Error goto trata_erros

    Dim FormToLoad As Form
    Set FormToLoad = Forms.Add(NomeForm)
    Load FormToLoad
    FormToLoad.Show

    Exit Sub

trata_erros:
    If Err.Number = 424 Then
       Msgbox "O objeto informado não existe!", vbExclamation
    Else
       Msgbox "Houve um erro!"& VBCRLF & Err.Description
    End If

End Sub

Para chamar o Form use:

LoadForm "NomeForm"

Ju857

GUARIBA
SP - BRASIL

ENUNCIADA !

Postada em 13/09/2012 14:31 hs

vALEU TREZE FUNCIONOU CERTINHO MUITO OBRIGADO.

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site