Vídeo recomendado
https://youtu.be/diWPPPhW-9E

ALGUEM PODE ME AJUDAR

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
levisaraiva
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Sex Nov 16, 2012 8:27 pm

ALGUEM PODE ME AJUDAR

Mensagem 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
Editado pela última vez por levisaraiva em Qui Jan 03, 2019 12:17 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: ALGUEM PODE ME AJUDAR

Mensagem 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


Responder