Mordomo

Bom dia,Tenho um optionButton1 e OptionButton2 e gostaria de validar o CPF e CNPJ para o mesmo maskedBox (mskCPF).A validação do optionButton1 que é CPF, eu já consegui, que é este:Private Sub mskcpf_Change()If Len(mskCPF.Text) > 0 Then Select Case Len(mskCPF.Text) Case Is = 11 CPF = Mid(CPF, 1, 3) & "." & Mid(CPF, 4, 3) & "." & Mid(CPF, 7, 3) & "-" & Right(CPF, 2) If Not calculacpf(mskCPF.Text) Then MsgBox "CPF Incorreto!", vbCritical, "Aviso" mskCPF = "" mskCPF.Text = "" mskCPF.SetFocus End If Case Is = 14 End Select End IfEnd SubAgora preciso colocar o código de validação do CNPJ para o optionButton2 neste mesmo mskCPF, dentro do "Private Sub mskcpf_Change()".Enfim, ao clicar no optionButton1, vai validar o CPF e ao clicar no optionButton2, vai validar o CNPJ.Conto com a ajuda de vocês.

Bom dia, Tenho um sistema em VB6, que está dando erro ao tentar abrí-lo pelo VB. O erro se dá no banco de dados. Aparece a seguinte mensagem na imagem anexa. Quando clico no debug, aparece o local do erro: Public Function CONECTA(ByVal Valor As Boolean) If Valor = True Then Set CNN = New ADODB.Connection BANCODEDADOS = ReadINIString("BANCODEDADOS", "CAMINHO", App.Path & "\Config.ini") IDENTIDADE = ReadINIString("BANCODEDADOS", "IDENTIDADE", App.Path & "\Config.ini") CONEXAO = "Provider=SIBPROvider.2; SIB:Character Set =WIN1252; Data Source=" & BANCODEDADOS & ";User ID=" & "SYSDBA" & ";Password=" & IDENTIDADE & "" CNN.Open CONEXAO CNN.CursorLocation = adUseClient Else CNN.Close Set CNN = Nothing End If End Function Desde já informo que sou aprendiz no VB, portanto, não sei como corrigi-lo. Conto com a ajuda e compreensão de todos. Abraços.

Boa noite,Tenho uma tela de cadastro de contribuintes, e nela tem OptionButton1 (pessoa física) e OptionButton2 (pessoa jurídica). Quando abro o frmCadCli, dá o foco no txtCpf e txt Cnpj. Preciso de uma função que ao clicar no txtCpf ou txtCnpj, apareça uma mensagem obrigando a pessoa a selecionar primeiramente uma das opções (OptionButton1 ou 2), pois só selecionando que funcionará a função de verificar CPF/CNPJ. Enfim, não aceitar digitar cpf ou cnpj sem selecionar uma das opções.Por enquanto se não selecionar nenhum dos OptionButton e colocar qualquer cpf ou cnpj errado, o sistema aceita e cadastra.Também preciso de uma função que ao clicar no txtSalvar, dá uma mensagem obrigando a preencher todos os campos, caso ficar algum sem ser preenchido. Só salvará se preencher todos. (txtNome, txtEnd, txtBairro, txtCep e assim por diante)Aguardo retorno de vocês,

Boa tarde, Tenho uma tela de cadastro de clientes, e nela tem os botões, Incluir, Confirmar, Limpar, Alterar e Excluir. Acontece que quando clico no botão Alterar, para fazer alguma alteração no cadastro do cliente, ele está duplicando. Enfim, ao invés de apenas atualizar a alteração, está cadastrando de novo. Exemplo: Clico no botão Alterar, e os textbox ficam liberados para alterações. Depois que faço alguma alteração, clico no botão Confirmar, para atualizar os dados. O código do botão Alterar é este: Private Sub cmdAlterar_Click() txtRaz.BackColor = &H80000005 txtFan.BackColor = &H80000005 txtEnd.BackColor = &H80000005 txtNum.BackColor = &H80000005 txtBai.BackColor = &H80000005 txtCid.BackColor = &H80000005 cmbEst.BackColor = &H80000005 txtCep.BackColor = &H80000005 txtCnpj.BackColor = &H80000005 txtIe.BackColor = &H80000005 txtTel.BackColor = &H80000005 txtObs.BackColor = &H80000005 txtRaz.Enabled = True txtFan.Enabled = True txtEnd.Enabled = True txtNum.Enabled = True txtBai.Enabled = True txtCid.Enabled = True cmbEst.Enabled = True txtCep.Enabled = True txtCnpj.Enabled = True txtIe.Enabled = True txtTel.Enabled = True txtObs.Enabled = True cmdConfirmar.Enabled = True txtRaz.SetFocus End Sub O código do botão Confirmar é este: Private Sub cmdConfirmar_Click() If txtRaz.Text <> "" Then RS.AddNew RS!cod = txtCod.Text RS!datcad = Date RS!raz = txtRaz.Text RS!fan = txtFan.Text RS!End = txtEnd.Text RS!num = txtNum.Text RS!bai = txtBai.Text RS!cid = txtCid.Text RS!est = cmbEst.Text RS!cep = txtCep.Text RS!CNPJ = txtCnpj.Text RS!Ie = txtIe.Text RS!tel = txtTel.Text RS!obs = txtObs.Text RS.Update RS_CONF.FindFirst "cod_cli=" & RS_CONF!cod_cli RS_CONF.Edit RS_CONF!cod_cli = txtCod.Text RS_CONF.Update cmdLimpar_Click Else MsgBox "Preencha os campos para o cadastro!", vbInformation + vbOKOnly, "FF Express" txtRaz.SetFocus End If End Sub Aguardo ajuda de vocês.

Bom dia, Tenho um pequeno sistema desenvolvido em access 2003. Troquei de PC e hoje uso Windows 7 64 bits. Agora não consigo abrir o sistema, pois dá erro no editor VBA. A mensagem de erro aparece nesta linha: Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _ Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long A mensagem de erro é essa: Erro de compilação: O código desse projeto deve ser atualizado para uso em sistemas de 64 bits. Analise e atualize as instruções Declare e, em seguida, marque-as com o atributo PtrSafe. Aguardo ajuda de vocês!

Bom dia,Estou tendo dificuldades de achar o erro ao clicar no botão imprimir no VB6.Aparece a seguinte mensagem de erro: Rum-time error '20728': FAparece neste código:Private Sub Command2_Click()cr1.DataFiles(0) = App.Path & "\boleto2001.mdb" cr1.WindowState = 2 cr1.WindowControlBox = True cr1.ReportFileName = App.Path & "\boleto2016.rpt" cr1.Destination = 0 cr1.Action = 1End SubSou leigo no assunto, e preciso da ajuda de vocês.Desde já agradeço.