[Resolvido]DUVIDA AO ABRIR FORMULÁRIO

Boas
mestres a duvida é a seguinte,

tenho um formulário que ao abrir recebe o foco mas fica inativo e ao carregar na tecla ENTER o formulário encerra, na necla TAB não faz nada.

porem se carregar com o rato num campo qualquer, essas teclas (Enter e tab)já funcionam direitinho e vão de campo em campo conforme tabulação.

alguem ajuda?
por favor

Olá bom dia....

Carece de mais informações.....onde..qual...

Veja se as propriedades do teu formulário estão corretas...veja se não há algum código rodando antes, ao carregar teu formulário.

Boas Silvio

é o seguinte,
o formulario abre de duas formas

1ºcarregando num botão abre o formulário totalmente limpo, e assim tudo bem.

Private Sub Option1_Click()
On Error GoTo Err_Option1_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Registo de Serviços"

stLinkCriteria = "[NºOR]=" & "'" & Me![Texto131] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Option1_Click:
Exit Sub

Err_Option1_Click:
MsgBox err.Description
Resume Exit_Option1_Click
End Sub

2ºcarregando no numero de saida(filtrado num subformulário) vai abrir o mesmo formulário mas já com dados preenchidos referentes a esse nºde registo, assim já não funciona (as vezes funciona, mas poucas)

Private Sub NºOR_Click()

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = " Registo de Serviços"
stLinkCriteria = "[NºOR]=" & "'" & Me![NºOR] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'DoCmd.Close acForm, ("NºOR"), acSavePrompt
End Sub

Boas DTeixa....

O carregando pela tua segunda opção, é feita através de qual filtro....via combox ? caixa de texto ?

Uma sugestão:

eu adoto sempre uma combo para realizar esse tipo de filtragem, por ser mais prático e rápido nas buscas.

Outra coisa:
a- como estão os vínculos entre o frm principal e o teu subfrm ?
b- como estão os relacionamentos entre essas tabelas ? um para muitos ( 1-n )

o funcionamento esta bem, porque já tenho esta bd a funcinar a alguns anos e sempre funcionou bem, o problema não é a maneira como chego lá, é depois de lá estar o ENTER não saltar de campo em campo de acordo com o indice de tabulação, mas se carregar com o rato num sitio qualquer do formulário já funciona bem.

isto começou (penso eu) depois de ter acrescentado um codigo para calcular horas e datas, mas já apaguei o codigo e continua a acontecer o mesmo.

ao entrar o campo recebe o foco mas o cursor não fica a piscar.

Já testou o setfocus ??

exemplo ao carregar o teu formulário:

me.seucampo.setfocus

Após atualizar um campo, ao apertar o entrer ou a tecla tab, move para o campo qualquer.

me.seucampo.setfocus.

Ja tinha testado esse, mas da igual

tambem já tentei este, mas nada

Private Sub Form_Current()
On Error GoTo Trato
If Not IsNull(Me.data)
Me.HoraSaida.SetFocus
Else
Me.Data.SetFocus
End If
Exit Sub
Trato: MsgBox Err.Description
End Sub

Bom dia ao caros forumeiros,

Com sua permissão Silvio, peço ao dteixa para postar uma parte do banco.

Mas se quiser faça um teste com:

DoCmd.GoToControl "NomeDoControle"

Abraço

Boas Leandro
esse comando colo onde? ao carregar o form?
obrigado

Pode ser ao Abrir.

Obrigado Leandro,
mas não resultou, o foco vai para o controle mas fica inativo o cursor não pisca e quando carrego no ENTER o formulário fecha-se

não há um comando para quando o form abrir ele simular um clique do rato?

dteixa, só me resta pedir o banco para dar uma olhada, pode ser?

Isso está muito estranho....melhor mesmo postar o BD para a gente analisar !!

dteixa, como combinado, aí está.

Lendro agradeço o teu tempo mas acho que esta igual, pelo menos aqui não vejo nenhuma alteração.

verifiquei que alteraste o código do form "lISTA DE VIATURAS NO DESPACHO", mas o problema está no form "Fechar Viaturas" depois de aberto não fica ativo.

ve neste vídeo o que acontece

https://www.youtube.com/watch?v=xUj03a-Xct4&list=HL1349131265&feature=mh_lolz

Isso é muito estranho!

Acho que conseguimos.
Cole isso no lugar daquele código que eu alterei no form.

Private Sub NºSaida_KeyDown(KeyCode As Integer, Shift As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
If KeyCode = 13 Then 'Se apertar a tecla enter
stDocName = " Fechar Viaturas" 'Ele executará a ação abaixo
stLinkCriteria = "[NºSaida]=" & "" & Me![NºSaida] & ""
'DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.OpenForm stDocName, acNormal, stLinkCriteria
DoCmd.Close acForm, "Despacho de Viaturas"

End If
End Sub

Mais uma vez obrigado Lendro,
mas o problema preciste, o mais estranho é que se abrir o form direto fica tudo bem, se abrir pelo nºsaida já não funciona.

Você entendeu que a alteração que fiz foi para que a tecla enter funcionasse?
Para que não seja preciso clicar com o rato.

sim, entendi mas não esta a resultar
ao abrir o form fica tipo desativo e ao clicar com o rato ele fica ativo

Amigão, veja neste então:

Aqui funcionou tanto com o rato como com a tecla enter.

assim funciona, mas tem dois novos problemas
abre sempre o mesmo nº de saida independentemente do nºs que se carregar
e o botão fechar encerra tudo em vez de fechar só o formulario

dteixa, podemos fazer assim:

Hoje estou com meu filho um pouco doente, com um princípio de pneumonia, vou dar uma atenção só para ele agora, e amanhã nós resolvemos isso? Me desculpe se por hoje não conseguimos, mas amanhã, secamos essa garrafa, pode ser?

claro que sim,
muito obrigado,
as melhoras para o teu filho
um abraço

Bom dia paciente dteixa,

Esse problema do foco pode ser resolvido se no momento em que o próximo form for aberto, o último fechar, consegue perceber a lógica?

Faça isto:

Em cada form, no botão onde se prime para abrir o form, há o evento:
DoCmd.OpenForm stDocName, , , stLinkCriteria, certo?

Então abaixo desse comando coloque outro comando:

DoCmd.Close acForm, stDocName

Para exemplificar melhor, veja como seria no form "Registro de Serviços"

Private Sub Comando260_Click()
On Error GoTo Err_Comando260_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Despacho de Viaturas"
DoCmd.OpenForm stDocName, , , stLinkCriteria
stDocName = "Registo de Serviços" 'Redefine a Variável StDocName
DoCmd.Close acForm, stDocName 'Fecha o form "Registro de Serviços"

Exit_Comando260_Click:
Exit Sub

Err_Comando260_Click:
MsgBox Err.Description
Resume Exit_Comando260_Click

End Sub

Dessa forma o foco vai sempre estar no form requerido, pois não haverá outro, percebes?

Grande Lendro
muito obrigado, assim funciona e fico grato por disponibilizares o teu tempo,
porem eu gostaria (se possivel)de manter também o form anterior aberto ou então no momento em que o próximo form for aberto, o último minimizar e quando o outro fechar, ele voltar a maximizar.

mais uma vez muito obrigado,
vocês são fera no access

Então:

Private Sub Comando260_Click()
On Error GoTo Err_Comando260_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Despacho de Viaturas"
Me.Visible = False
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando260_Click:
Exit Sub

Err_Comando260_Click:
MsgBox Err.Description
Resume Exit_Comando260_Click

End Sub

E no form: "Despacho de Viaturas" no evento ao Fechar, você coloca:
Forms!NomeDoFormAnterior.Visible = True

Você terá que mudar os nomes dos forms, tirar os espaços, percebes?

Boas

neste caso no Form "lISTA DE VIATURAS NO DESPACHO" o Me.Visible = False não funciona,

Private Sub NºSaida_Click()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = " Fechar Viaturas"
stLinkCriteria = "[NºSaida]=" & "" & Me![NºSaida] & ""
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Foi assim que você fez?

Private Sub NºSaida_Click()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = " Fechar Viaturas"
stLinkCriteria = "[NºSaida]=" & "" & Me![NºSaida] & ""
Me.Visible = False
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

sim
mas da um erro

Run-time Error '2165':


Private Sub NºSaida_Click()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = " Fechar Viaturas"
stLinkCriteria = "[NºSaida]=" & "" & Me![NºSaida] & ""
Me.Visible = False
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Boas
Sei que não é a forma mais correta mas resolvi o problema assim:

no form "lISTA DE VIATURAS NO DESPACHO"

Private Sub NºSaida_Click()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = " Fechar Viaturas"
stLinkCriteria = "[NºSaida]=" & "" & Me![NºSaida] & ""
DoCmd.OpenForm stDocName, , , stLinkCriteria
stDocName = "despacho_de_viaturas" 'Redefine a Variável StDocName
DoCmd.Close acForm, stDocName 'Fecha o form "Registro_de_Serviços"
End Sub

e no form "Fechar Viaturas"

Private Sub cmdClose_Click()
DoCmd.Close
stDocName = "Despacho_de_Viaturas"
DoCmd.OpenForm stDocName, , , stLinkCriteria 'abre de novo o form anteriormente fechado

End Sub

Mestre Leandro (ou outros)
estou com mais uma duvida que não sei resolver, é o seguinte:

no form "Despacho de Viaturas" no fundo há 4 campos de cor azul que mostram o total da respetiva coluna,
eu quero que esses valores (total) sejam exibidos no form "Registo de Serviços" nos campos "Total Viaturas", "Total Bombeiros", "Total Km" e "total H. Bomba"
é possível? e como?

Podemos deixar o que queria, realmente como quer no código anterior, basta retirar os espaços dos nomes dos forms. E digo mais, quando construir outros banco não deixe espaços em nomes de objetos, pode causar esse tipo de problema.

Sobre essa outra pergunta, coloque isso nos respectivos campos:

Total Viaturas: =[Formulários]![Despacho de Viaturas]![VIAT]
Total Bombeiros: =[Formulários]![Despacho de Viaturas]![BOMB]
Total Km: =[Formulários]![Despacho de Viaturas]![KM]
total H. Bomba: =[Formulários]![Despacho de Viaturas]![Texto214]

Não querendo de alguma forma interferir, mas já interferindo.

36 mensagens neste tópico, para enviar o foco para o campo "VIAT" no formulario "Fechar Viaturas" ?

Testaram colocando o formulario "Fechar Viaturas", com janela restrita = Sim ????

Veja o simples;

Se alguém tem culpa aqui, esse sou eu!

Perdoe-me dteixa, por tê-lo feito perder tanto tempo.

Perdoe-me JPaulo pelo ocorrido, não se repetirá.

Tranquilo, não tem qualquer problema, apenas servirá para enriquecer o vosso aprendizado.

Grande JPaulo e Grande Leandro,
graças a vossa boa vontade e generosidade, leigos como eu vamos aprendendo muito, tudo o que vou fazendo no access tenho aprendido aqui, por isso muito obrigado.

JPaulo quando dizes "janela restrita = Sim", queres dizer "Modal = Sim" ?

Leandro eu já tentei essa forma de puxar os dados para outro form, mas não está a funcionar no campo aparece "#Nome?", mas eu queria era por VB porque queria que os campos armazenassem os valores na tabela.

Negativo, o Modal deve estar para se subrepor aos outros forms.

Obrigado
coloquei o modal = sim e já está funcionar como deve de ser.

podes ajudar-me na outra questão dos totais

Veja o simples;

Private Sub Form_Current()
  Me.imggoogle.Enabled = False
  Me.Texto300.Value = DCount("VIAT", "[registo de viaturas]", "[Nº OR] = '" & Me.Texto268 & "'")
  Me.Texto288.Value = DSum("BOMB", "[registo de viaturas]", "[Nº OR] = '" & Me.Texto268 & "'")
  Me.Texto280.Value = DSum("KM", "[registo de viaturas]", "[Nº OR] = '" & Me.Texto268 & "'")
  Me.T_BOMBA.Value = DSum("[H BOMBA]", "[registo de viaturas]", "[Nº OR] = '" & Me.Texto268 & "'")
End Sub

Já que está a mexer com bombeiros ( e eu fui do comando 8 anos), veja este projeto infelizmente inacabado;

http://maximoaccess.forumeiros.com/t2964-projeto-bombeiros-pt-samur-br

De facto quem sabe, Sabe
JPaulo tu és o mestre dos mestres, muito obrigado.
já tinha visto esse teu projeto dos bombeiros, também fui bombeiro 11 anos.
Este que estou a fazer vem um pouco na linha desse, mas é mais abrangente em todas as áreas de atuação dos bombeiros.

mais uma vez obrigado. alguma coisa sei que posso contar convosco

Obrigado pelo retorno o forum agradece.

JPaulo só para terminar mesmo,

esse código que tu me passaste funciona bem, mas há um problema
os dados não atualizam automaticamente quando altero no outro form, para que atualize tenho de fechar o formulário "Registo de Serviços" e voltar a entrar
tem maneira de dar volta a isso?

Utilize o Me.Requery

JPaulo desculpa mas eu sou ainda muito "nabo" no VB
podes especificar melhor

Especifique quais os passos que você dá e em que formularios, para eu reproduzir aqui.