ALGUEM PODE ME AJUDAR

[levisaraiva]

PESSOAL, ESTOU ANEXANDO ESSE ARQUIVO COM BD ACESS ZERADO.
ESTÁ DANDO ERRO, NÃO ENTRA O FORMULARIO.
QUEM PUDER ME AJUDAR.
AGRADEÇO

[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