Página 1 de 1
ALGUEM PODE ME AJUDAR
Enviado: Sex Dez 14, 2018 4:12 pm
por levisaraiva
PESSOAL, ESTOU ANEXANDO ESSE ARQUIVO COM BD ACESS ZERADO.
ESTÁ DANDO ERRO, NÃO ENTRA O FORMULARIO.
QUEM PUDER ME AJUDAR.
AGRADEÇO
Re: ALGUEM PODE ME AJUDAR
Enviado: Sex Dez 14, 2018 5:39 pm
por Reinaldo
Creio eu que justamente por estar com o BD "zerado" e que não funciona.
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
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