Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 106 ocorrências
- Sex Jan 13, 2023 9:36 am
- Fórum: Excel + Access
- Tópico: Formato Textbox Copia e cola
- Respostas: 5
- Exibições: 3866
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...
- Ter Dez 13, 2022 2:48 pm
- Fórum: Excel + Access
- Tópico: Formato Textbox Copia e cola
- Respostas: 5
- Exibições: 3866
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 ...
- Seg Dez 12, 2022 1:42 pm
- Fórum: Excel + Access
- Tópico: Formato Textbox Copia e cola
- Respostas: 5
- Exibições: 3866
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
Deu certo, mas ele não retorna com os pontos. Exemplo: F-10.831.946-0
- Qui Dez 08, 2022 2:10 pm
- Fórum: Excel + Access
- Tópico: Formato Textbox Copia e cola
- Respostas: 5
- Exibições: 3866
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...
- Sex Jul 15, 2022 11:36 am
- Fórum: Excel + Access
- Tópico: Contar registros com msgbox
- Respostas: 3
- Exibições: 4283
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...
- Qua Jul 13, 2022 4:05 pm
- Fórum: Excel + Access
- Tópico: Contar registros com msgbox
- Respostas: 3
- Exibições: 4283
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...
- Qua Jul 13, 2022 2:02 pm
- Fórum: Excel + Access
- Tópico: Contar registros com msgbox
- Respostas: 3
- Exibições: 4283
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...
- Ter Jul 12, 2022 4:28 pm
- Fórum: Excel + Access
- Tópico: Aviso ao Abrir Tela
- Respostas: 3
- Exibições: 3822
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...
- Seg Jul 11, 2022 1:05 pm
- Fórum: Excel + Access
- Tópico: Aviso ao Abrir Tela
- Respostas: 3
- Exibições: 3822
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...
Segue modelo....
Deus abençoe amigos...
- Qui Jul 07, 2022 10:34 am
- Fórum: Excel + Access
- Tópico: Aviso ao Abrir Tela
- Respostas: 3
- Exibições: 3822
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...