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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Teclado
Jailson Brandao
SANTA INÊS
MA - BRASIL
Postada em 14/03/2005 19:53 hs            
Oi! galera.
 
Tenho um form em que preciso abir outro form ao preciona uma tecla de função, estou usando o senguinte código:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
Case vbKeyF8
        Localizar
  End Select
O nome localizar é um função para localizar um registro, onde é aberto uma ImputBox, Só que quando localizo  o registro a ImputBox deveria ser fechada e
envez disso a Imput é aberta novamete.
 
Será o que está fazendo isso?
     
Sandro
não registrado
Postada em 15/03/2005 11:33 hs   
Depende. como é a sua função Localizar?
     
Jailson Brandao
SANTA INÊS
MA - BRASIL
ENUNCIADA !
Postada em 15/03/2005 20:34 hs            
Veja só a função é essa, será o que está errado?
tambem já chamei a função com o procedimento Call, mas tambem deu o mesmo erro
abre duas imputbox.
Private Sub Localizar()
Dim AA
AA = InputBox("DIGITE O NÚMERO DA ENTRADA.", "LOCALIZAR...", "")
If AA = "" Then
Exit Sub
End If
Entrada.dtentr.Recordset.FindMin "NUM_ASSI=" & AA
If Entrada.dtentr.Recordset.NoMatch = True Then
    MsgBox "Este registro não foi encontrado!!!", vbCritical, "Localizar." 
End If
End Sub
   
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