PESSOAL, ESTOU ANEXANDO ESSE ARQUIVO COM BD ACESS ZERADO.
ESTÁ DANDO ERRO, NÃO ENTRA O FORMULARIO.
QUEM PUDER ME AJUDAR.
AGRADEÇO
ATENÇÃO NOVOS USUÁRIOS
Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.
Esqueceu sua senha?
Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.
Esqueceu sua senha?
Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
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: 1432
- 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
Reinaldo




