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

Pesquisa resultou em 106 ocorrências

por CROVADOR
Sex Jan 13, 2023 9:36 am
Fórum: Excel + Access
Tópico: Formato Textbox Copia e cola
Respostas: 5
Exibições: 1667

Re: Formato Textbox Copia e cola [Resolvido]

Dim TEXTLENGTH As Integer TXT_SELO1 = VBA.Replace(TXT_SELO1, ".", "") TEXTLENGTH = Len(TXT_SELO1.Text) If TEXTLENGTH = 10 Then TXT_SELO1.Text = "F-" & VBA.Left(TXT_SELO1.Text, 2) & "." & Mid(TXT_SELO1.Text, 3, 3) & "." & Mid(TXT_S...
por CROVADOR
Ter Dez 13, 2022 2:48 pm
Fórum: Excel + Access
Tópico: Formato Textbox Copia e cola
Respostas: 5
Exibições: 1667

Re: Formato Textbox Copia e cola

Segue modelo que ele preenche conforme é digitado ou colado. Abraços... Private Sub TXT_SELO1_Change() TXT_SELO1 = VBA.Replace(TXT_SELO1, ".", "") Dim TEXTLENGTH As Integer: TEXTLENGTH = Len(TXT_SELO1.Text) If TEXTLENGTH = 10 Then ' Se o Comprimento do texto for = 10 ele retorna ...
por CROVADOR
Seg Dez 12, 2022 1:42 pm
Fórum: Excel + Access
Tópico: Formato Textbox Copia e cola
Respostas: 5
Exibições: 1667

Re: Formato Textbox Copia e cola

Boa tarde Reinaldo, primeiramente obrigado pelo retorno.
Deu certo, mas ele não retorna com os pontos. Exemplo: F-10.831.946-0
por CROVADOR
Qui Dez 08, 2022 2:10 pm
Fórum: Excel + Access
Tópico: Formato Textbox Copia e cola
Respostas: 5
Exibições: 1667

Formato Textbox Copia e cola

Boa tarde Amigos, estou tentando formatar uma textbox conforme código abaixo mas ele não funciona, pois preciso que sempre comece com uma letra "F". Se alguém poder ajudar-me ficaria grato... Deus abençoe. Private Sub TXT_SELO1_Change() TXT_SELO1 = VBA.Replace(TXT_SELO1, ".", &qu...
por CROVADOR
Sex Jul 15, 2022 11:36 am
Fórum: Excel + Access
Tópico: Contar registros com msgbox
Respostas: 3
Exibições: 1862

Re: Contar registros com msgbox [Resolvido]

' Listagem de Orçamentos ' Esse código já retorna um único valor, correspondente a contagem das OS's. SqlOrçDetum = "SELECT COUNT(*) FROM tbOrç_Detalhe1 Where Observaçoes = 'PENDENTE'" Set rsOrçDetum = New ADODB.Recordset rsOrçDetum.Open SqlOrçDetum, cn, adOpenKeyset, adLockOptimistic 'Dim...
por CROVADOR
Qua Jul 13, 2022 4:05 pm
Fórum: Excel + Access
Tópico: Contar registros com msgbox
Respostas: 3
Exibições: 1862

Re: Contar registros com msgbox

Funcionou, mas ele não trás a quantidade de pendentes que existe no banco de dados. Segue código que ajustei. ' Listagem de Orçamentos ' Esse código já retorna um único valor, correspondente a contagem das OS's. SqlOrçDetum = "SELECT COUNT(*) FROM tbOrç_Detalhe1 Where Observaçoes = 'PENDENTE'&q...
por CROVADOR
Qua Jul 13, 2022 2:02 pm
Fórum: Excel + Access
Tópico: Contar registros com msgbox
Respostas: 3
Exibições: 1862

Contar registros com msgbox

Resolvi com este código, porém queria que ele contasse quantos pendentes existem. Exemplo: "Existem 38 O.S Pendentes" Dim vbResp As VbMsgBoxResult SqlOrçDetum = "SELECT * FROM tbOrç_Detalhe1" 'Listagem de Orçamentos Set rsOrçDetum = New ADODB.Recordset rsOrçDetum.Open SqlOrçDetum...
por CROVADOR
Ter Jul 12, 2022 4:28 pm
Fórum: Excel + Access
Tópico: Aviso ao Abrir Tela
Respostas: 3
Exibições: 1701

Re: Aviso ao Abrir Tela [Resolvido]

Resolvi com este código, porém queria que ele contasse quantos pendentes existem. Exemplo: "Existem 38 O.S Pendentes" Dim vbResp As VbMsgBoxResult SqlOrçDetum = "SELECT * FROM tbOrç_Detalhe1" 'Listagem de Orçamentos Set rsOrçDetum = New ADODB.Recordset rsOrçDetum.Open SqlOrçDetum...
por CROVADOR
Seg Jul 11, 2022 1:05 pm
Fórum: Excel + Access
Tópico: Aviso ao Abrir Tela
Respostas: 3
Exibições: 1701

Re: Aviso ao Abrir Tela

Ao Abrir a tela Cadastro de Clientes terá que vir a seguinte mensagem. "Existe Cliente Pendente, Favor Verificar" .
Segue modelo....
Deus abençoe amigos...
por CROVADOR
Qui Jul 07, 2022 10:34 am
Fórum: Excel + Access
Tópico: Aviso ao Abrir Tela
Respostas: 3
Exibições: 1701

Aviso ao Abrir Tela

Bom dia amigos, tenho uma tela de cadastro que ao digitar os dados ela me diz se já existe, mas gostaria que ele me avisasse quando eu abrir a tela, ou seja, sem ter que digitar. Alguém poderia me ajudar? Segue código abaixo. Private Sub txt_cnpj_cpf_AfterUpdate() On Error Resume Next Dim ComandoSQL...