PESSOAL, ESTOU ANEXANDO ESSE ARQUIVO COM BD ACESS ZERADO.
ESTÁ DANDO ERRO, NÃO ENTRA O FORMULARIO.
QUEM PUDER ME AJUDAR.
AGRADEÇO
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
ALGUEM PODE ME AJUDAR
-
- Acabou de chegar
- Mensagens: 6
- Registrado em: Sex Nov 16, 2012 8:27 pm
ALGUEM PODE ME AJUDAR
Editado pela última vez por levisaraiva em Qui Jan 03, 2019 12:17 pm, em um total de 1 vez.
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: ALGUEM PODE ME AJUDAR
Creio eu que justamente por estar com o BD "zerado" e que não funciona.
experimente alterar a rotina que carrega registros conforma abaixo
Obs.: Não escreva tudo em letras maiúsculas, isso aparenta estar gritando; o que pega mal. Seu titulo tambem não está de acordocom as normas dos foruns, o que dificulta a pesquisa e utilização de pessoas com problemas similares
experimente alterar a rotina que carrega registros conforma abaixo
Código: Selecionar todos
Sub CarregaRegistros()
If banco.RecordCount > 0 Then
With banco
If Not IsNull(.Fields(0)) Then
Me.txtCodigoFornecedor.Value = .Fields(0)
Me.txtNomeEmpresa.Value = .Fields(1)
Me.txtNomeContato.Value = .Fields(2)
Me.txtCargoContato.Value = .Fields(3)
Me.txtEndereco.Value = .Fields(4)
Me.txtCidade.Value = .Fields(5)
Me.txtRegiao.Value = .Fields(6)
Me.txtCEP.Value = .Fields(7)
Me.txtPais.Value = .Fields(8)
Me.txtTelefone.Value = .Fields(9)
Me.txtFax.Value = .Fields(10)
Me.txtHomePage.Value = .Fields(11)
End If
End With
End If
lblIndice.Caption = Indice
lblTotal.Caption = banco.RecordCount
End Sub