Início
NADIRONUNES 23/3/2012, 18:50como que eu faco pra quando eu tenho dois forms abetos forms1 e forms2 quando eu fechar o forms2 ele direcionar o setfocus por forms1 no campo codigo
2 participantes
como usar Setfocus de um forms pra outro
NADIRONUNES- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 578
Registrado : 30/08/2010
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Talvez no evento "Ao fechar":
Forms!NomeDoForm!NomeDoCampo.SetFocus
Forms!NomeDoForm!NomeDoCampo.SetFocus
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
NADIRONUNES- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 578
Registrado : 30/08/2010
tenho esse codigo
If (Forms!nf!TNFE = Forms!nf!Vnota) Then
Dim MSGFA
MSGFA = MsgBox("O Valor da Nota Fiscal Foi Fechado!!!" & Chr(10) & Chr(10) & "Nota Fiscal ..: " & Forms!nf!nnota & Chr(10) & "Fornecedor .: " & Forms!nf!Fornecedor, vbExclamation + vbDefaultButton2, "Nota Fical Fechada")
If MSGFA = vbYes Then
Forms!nf!Comando33.Enabled = True
Forms!nf!Comando21.Enabled = True
If MsgBox("Deseja Inserir Nova Nota Fiscal", vbYesNo) = vbYes Then
DoCmd.GoToRecord , , acNewRec
Forms!nf!nnota.SetFocus
Forms!nfRequery
Else
Forms!nf!Comando33.Enabled = False
Forms!nf!Comando21.Enabled = False
DoCmd.CancelEvent
DoCmd.Close
End If
End If
End If
so que nao ta indo pra um novo registro
If (Forms!nf!TNFE = Forms!nf!Vnota) Then
Dim MSGFA
MSGFA = MsgBox("O Valor da Nota Fiscal Foi Fechado!!!" & Chr(10) & Chr(10) & "Nota Fiscal ..: " & Forms!nf!nnota & Chr(10) & "Fornecedor .: " & Forms!nf!Fornecedor, vbExclamation + vbDefaultButton2, "Nota Fical Fechada")
If MSGFA = vbYes Then
Forms!nf!Comando33.Enabled = True
Forms!nf!Comando21.Enabled = True
If MsgBox("Deseja Inserir Nova Nota Fiscal", vbYesNo) = vbYes Then
DoCmd.GoToRecord , , acNewRec
Forms!nf!nnota.SetFocus
Forms!nfRequery
Else
Forms!nf!Comando33.Enabled = False
Forms!nf!Comando21.Enabled = False
DoCmd.CancelEvent
DoCmd.Close
End If
End If
End If
so que nao ta indo pra um novo registro
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Tente inverter as linhas do Requery e do SetFocus.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Tópicos semelhantes
