Antonio Augusto Crovador

Deu certo amigo, muito obrigado pela força.. Deus abençoe você....

Eu uso vários cep para digitar ou colar, este código funciona somente para 83.703-035

Boa tarde Amigos, Tenho uma dúvida neste código abaixo, eu copio o cep do site sem máscara, porém tem um site que usamos da recita que vem neste formato quando copio: 83.703-035 Como faço para também retirar o ponto e trazer para o formato correto... Já tentei alguns códigos utilizando o mesmo citado abaixo... Private Sub Textbox_CEP_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Limita a Qde de caracteres TextBox_CEP.MaxLength = 9 'para permitir que apenas números sejam digitados If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 End If End Sub Private Sub Textbox_CEP_Change() 'Formato : CEP Dim textLength As Integer: textLength = Len(TextBox_CEP.Text) If textLength = 8 Then TextBox_CEP.Text = Format(TextBox_CEP.Text, "00000-000") SendKeys "{End}", True End If End Sub Abraço amigos..

Boa Tarde Amigos, Estou tentando editar os dados mas ele sobrepõe e não apaga para retornar com os registros atuais. Aguardo ajuda Deus abençoe... Não estou conseguindo editar os dados conforme o código abaixo, ele edita os dados da textbox mas da listview ele só sobrepõe.... Private Sub cmd_salvar_Click() On Error GoTo tratativas Dim Conexao As Database Dim Gravar As Recordset Dim msg As String Dim codigo As Integer Dim i, j As Integer Set Conexao = OpenDatabase(ActiveWorkbook.Path & "\DatabaseEstoque.mdb") Set Gravar = Conexao.OpenRecordset("TB_CIDADES") If lb_funcao_ativa.Caption = "FUNÇÃO ATIVA: INSERINDO NOVO REGISTRO....." Then If TXT_CIDADE.Text <> "" And TXT_UF.Text <> "" Then Gravar.AddNew Gravar!cidade = TXT_CIDADE.Text Gravar!UF = TXT_UF.Text codigo = Gravar!Código Gravar.Update Set Gravar = Conexao.OpenRecordset("tb_saidas_itens") 'Loop as lignes For i = 1 To ListView1.ListItems.Count 'Loop as colunas For j = 1 To 1 Gravar.AddNew Gravar!id_seq = txt_seq.Text / 1 Gravar!cod_produto = ListView1.ListItems(i).ListSubItems(1).Text Gravar!qtd = ListView1.ListItems(i).ListSubItems(3).Text / 1 Gravar!vl_unitario = ListView1.ListItems(i).ListSubItems(4).Text / 1 Gravar!vl_total = ListView1.ListItems(i).ListSubItems(5).Text / 1 Gravar.Update Next j Next i MsgBox "REGISTRO SALVO COM SUCESSO!", 0 + vbInformation, "SALVO COM SUCESSO" 'Call ATUALIZAR Call Limpar Call bloquear cmd_editar.Locked = True '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Else msg = "CAMPOS OBRIGATÓRIOS NÃO PREECHIDOS!" & vbNewLine MsgBox msg, 0 + vbInformation, "CAMPOS OBRIGATÓRIOS" Exit Sub End If Else Gravar.Index = "PrimaryKey" Gravar.Seek "=", ListView1.SelectedItem / 1 Gravar.Edit 'Campos não Obrigatórios Gravar!cidade = TXT_CIDADE.Text Gravar!UF = TXT_UF.Text Gravar.Update Set Gravar = Conexao.OpenRecordset("tb_saidas_itens") 'Loop as lignes For i = 1 To ListView1.ListItems.Count 'Loop as colunas For j = 1 To 1 Gravar.AddNew Gravar!id_seq = txt_seq.Text / 1 Gravar!cod_produto = ListView1.ListItems(i).ListSubItems(1).Text Gravar!qtd = ListView1.ListItems(i).ListSubItems(3).Text / 1 Gravar!vl_unitario = ListView1.ListItems(i).ListSubItems(4).Text / 1 Gravar!vl_total = ListView1.ListItems(i).ListSubItems(5).Text / 1 Gravar.Update Next j Next i codigo = ListView1.SelectedItem / 1 MsgBox "REGISTRO ALTERADO COM SUCESSO!", 0 + vbInformation, "SALVO COM SUCESSO" 'Call ATUALIZAR Call Limpar Call bloquear cmd_editar.Locked = True End If tratativas: Select Case Err.Number Case 3022 MsgBox "JÁ CADASTRADO!", 0 + vbCritical, "INCLUSÃO CANCELADA" Case 53 Case 13 MsgBox "FORMATO INVÁLIDO, TENTE NOVAMENTE!", 0 + vbCritical, "SOMENTE VALOR NUMÉRICO" End Select End Sub

Desculpa amigo

https://1drv.ms/u/s!Avv4HvxdG0y5gYhoaxdaNDfWuS-wFg?e=LnR79f Segue Amigo...

Olá amigos, estou precisando de uma ajuda com relação a este código. Private Sub CommandButton3_Click() txt_cod_produto.Text = "" combo_descricao.Text = "" Call Pesquisar1 'Filtrar por uma coluna retirando o registro do listview Dim Tmp As Integer, i As Integer On Error Resume Next Tmp = ListView1.ListItems.Count 'Troque para o nome de seu formulario For i = 1 To Tmp With ListView1 If i > Tmp Then GoTo saida If .ListItems(i).SubItems(5) > .ListItems(i).SubItems(6) Then 'Supondo que o valor a ser filtrado seja a coluna 6 ListView1.ListItems.Remove i i = i - 1 Tmp = Tmp - 1 End If End With Next saida: Call SOMA_LISTA Me.label_registro = dataini & " " & datafim & " " & Me.ListView1.ListItems.Count & " Registro(s)" End Sub Tenho uma coluna no listview estoque mínimo e outra estoque atual, gostaria de filtrar assim: quando meu estoque atual estiver menor que o mínimo filtrar somente valores que estão abaixo do mínimo. pode ajudar-me amigos?

Boa tarde Amigos, tenho um projeto de orçamento porém não estou conseguindo uma forma para puxar os orçamentos salvo e poder editar e também excluir, preciso da ajuda de vocês. só não consegui colocar anexo para vocês... Obrigado e fiquem com Deus...