Conecta back end

Moderador: Avelino Sampaio

MoiDVAec
Mensagens: 1
Registrado em: 15 Set 2018, 14:11

Conecta back end

Mensagempor MoiDVAec » 15 Set 2018, 14:20

Bom dia, preciso de ajuda!
Quando tento acessar abre o erro muda, conforme esta na imagem, e o depurador aponta para esse trecho do código da barra de carregamento.

"DoCmd.OpenForm "FLogar", acNormal"

Código: Selecionar todos

Private Sub Form_Timer()
Dim vartempo As Integer
TxtTempo = 1 + vartempo + TxtTempo
Select Case TxtTempo
Case 1
P1.Visible = True
Me.TXtPercen.Value = "10%"
Case 2
P2.Visible = True
Me.TXtPercen.Value = "20%"
Case 3
P3.Visible = True
Me.TXtPercen.Value = "30%"
Case 4
P4.Visible = True
Me.TXtPercen.Value = "40%"
Case 5
P5.Visible = True
Me.TXtPercen.Value = "50%"
Case 6
P6.Visible = True
Me.TXtPercen.Value = "60%"
Case 7
P7.Visible = True
Me.TXtPercen.Value = "70%"
Case 8
P8.Visible = True
Me.TXtPercen.Value = "80%"
Case 9
P9.Visible = True
Me.TXtPercen.Value = "90%"
Case 10
P0.Visible = True
Me.TXtPercen.Value = "100%"
Case Else
Dim bd As dao.Database
 Set bd = CurrentDb()
DoCmd.OpenForm "FLogar", acNormal
DoCmd.Close

End Select
End Sub
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 364
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Conecta back end

Mensagempor Damasceno Jr. » 15 Set 2018, 20:39

Tente adicionando o trecho abaixo
Código:
DoCmd.OpenForm "FLogar", acNormal
DoCmd.Close acForm, Me.Name

Se não resolver experimente fazer uma marcação no evento ao abrir do seu formulário FLogar e ir acompanhando a execução do código com F8
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.


Voltar para “Formulários”

Quem está online

Usuários neste fórum: Google [Bot] e 2 visitantes