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

Pesquisa resultou em 106 ocorrências

por CROVADOR
Ter Jan 19, 2021 9:55 pm
Fórum: Excel + Access
Tópico: Não Permitir Gravar Cpf duplicado
Respostas: 14
Exibições: 8895

Re: Não Permitir Gravar Cpf duplicado

Boa noite amigos, eu tentei este código também mas não tive exito... Estou na luta vamos lá... erro em tempo de execução 424 objeto é obrigatório Private Sub txt_cnpj_cpf_afterupdate() 'On Error Resume Next Dados.Open "SELECT * FROM tbOrç_Detalhe1", cnpj_cpf, 3, 3 Do Until Dados.EOF If Dad...
por CROVADOR
Ter Jan 19, 2021 1:03 pm
Fórum: Excel + Access
Tópico: Não Permitir Gravar Cpf duplicado
Respostas: 14
Exibições: 8895

Re: Não Permitir Gravar Cpf duplicado

Olá amigo, primeiramente obrigado pela atenção, eu sou um pouco leigo será que poderia me auxiliar e descrever essa parte que faltou? tentei esse aqui mas não deu certo... vou anexar para vc ver, está em cadastro de clientes. Deus abençoe... Private Sub btnGravar_Click() 'verificar se o registro já ...
por CROVADOR
Ter Jan 19, 2021 12:32 pm
Fórum: Excel + Access
Tópico: Não Permitir Gravar Cpf duplicado
Respostas: 14
Exibições: 8895

Re: Não Permitir Gravar Cpf duplicado

Amigos tentei usar este código para evitar cadastrar mesmo cpf, mas não tive exito... Socorro!!!! kkkk Private Sub btnGravar_Click() 'verificar se o registro já existe na tabela cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\...
por CROVADOR
Dom Jan 17, 2021 3:07 pm
Fórum: Excel + Access
Tópico: Erro em tempo de Execução...
Respostas: 2
Exibições: 2717

Re: Erro em tempo de Execução...[Resolvido]

webmaster, muito obrigado pela dica ficou show, funcionou certinho...
Vocês sempre nos salvando, que Deus abençoe...
por CROVADOR
Sex Jan 15, 2021 9:28 am
Fórum: Excel + Access
Tópico: Erro em tempo de Execução...
Respostas: 2
Exibições: 2717

Erro em tempo de Execução...

Bom dia amigos, neste código abaixo esta dando a mensagem de erro, vou anexar uma imagem para vcs darem uma olhada...abraços Deus abençoe. Private Sub txtProduto_Change() txtProduto = UCase(txtProduto) 'On Error Resume Next SqlOrçDettres = "SELECT * FROM tbOrç_Detalhe3 WHERE Nome_Cli LIKE '%&qu...
por CROVADOR
Qui Jan 14, 2021 4:27 pm
Fórum: Excel + Access
Tópico: Não Permitir Gravar Cpf duplicado
Respostas: 14
Exibições: 8895

Re: Não Permitir Gravar Cpf duplicado

Isso mesmo Reinaldo, eu tentei fazer igual ao tópico recomendado mas não consegui, eu queria que ao gravar o cliente se já existir no banco ele exibia uma mensagem e não deixasse realizar a gravação. se poder me auxiliar para fazer este código eu ficaria grato. mais uma vez muito obrigado pela sua a...
por CROVADOR
Qui Jan 14, 2021 8:25 am
Fórum: Excel + Access
Tópico: Não Permitir Gravar Cpf duplicado
Respostas: 14
Exibições: 8895

Re: Não Permitir Gravar Cpf duplicado

Bom dia amigo, não consegui fazer, vou mandar aqui o anexo, se poder dar uma olha sem te atrapalhar ficaria grato, e mais uma vez obrigado pela sua atenção....
está em cadastro de clientes...
por CROVADOR
Qua Jan 13, 2021 2:20 pm
Fórum: Excel + Access
Tópico: Não Permitir Gravar Cpf duplicado
Respostas: 14
Exibições: 8895

Re: Não Permitir Gravar Cpf duplicado

Fiz o procedimento mas não deu certo, ele apresenta erro!

erro em tempo de execução 2147217887 (80040e21)
as alterações solicitadas para a tabela não foram satisfatórias já que criaram valores duplicados....
por CROVADOR
Seg Jan 11, 2021 3:28 pm
Fórum: Excel + Access
Tópico: Não Permitir Gravar Cpf duplicado
Respostas: 14
Exibições: 8895

Não Permitir Gravar Cpf duplicado

Olá amigos, eu novamente pedindo socorro, kkk ... tenho o seguinte código abaixo e não que que grave o mesmo cpf que já existe no banco de dados. Alguma idéia pessoal? Private Sub btnGravar_Click() If Me.txtNome = Empty Then MsgBox "Digite O Nome Do Cliente.", vbExclamation, "Atenção&...
por CROVADOR
Seg Jan 11, 2021 7:19 am
Fórum: Excel + Access
Tópico: Dados duplicados Combobox
Respostas: 3
Exibições: 2550

Re: Dados duplicados Combobox [Resolvido]

Obrigado mais uma vez amigos, deu certo assim: Private Sub UserForm_INITIALIZE() Dim Dados As ADODB.Recordset Dim ComandoSQL As String Set Dados = New ADODB.Recordset ComandoSQL = "SELECT * FROM tbOrç_Detalhe2" & vbCrLf ComandoSQL = ComandoSQL & "Order by Nome_Cli" Comand...