USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
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
Topo da página