gabrieldb

Brigado Kuroi era isso mesmo que eu procurava... abraço!

Bom Dia pessoal eu estou desenvolvendo um sistema, e gostaria de saber se tem como eu mudar o visual do meu sistema que tá com o visual padrão do VB, com telas mais atuais como por exemplo as cores e alguns botões do windows xp. Tem algum tipo de DLL pra isso alguém sabe se isso é possível ? Valeu!

Coloca dois botões um próximo e um anterior assim você tem a movimentção de todos os dados.

Cara eu passei pelo mesmo problema, dá uma olhada nesse tópico. http://scriptbrasil.com.br/forum/index.php?showtopic=140479

Consegui resolver valeu Kuroi.

Deu certinho com o CNPJ Kuroi mais ainda tenho dificuldade com o CPF.

eu mudei só no lostfocus onde tava maskedbox eu substitui por textbox, como eu faço esse replace ?

Boa tarde pessoal eu aqui mais uma vez, meu problema é o seguinte peguei na internet uma função que valida CPF/CNPJ porém no código ela estava com maskedbox eu mudei para text porque não gosto da masked, mais agora dá sempre como CPF/CNPJ inválido alguém pode dar uma olhada no meu código e ver o que está errado ? Coloquei em um módulo a função. Function calculacpf(CPF As String) As Boolean On Error GoTo Err_CPF Dim I As Integer 'utilizada nos FOR... NEXT Dim strcampo As String 'armazena do CPF que será utilizada para o cálculo Dim strCaracter As String 'armazena os digitos do CPF da direita para a esquerda Dim intNumero As Integer 'armazena o digito separado para cálculo (uma a um) Dim intMais As Integer 'armazena o digito específico multiplicado pela sua base Dim lngSoma As Long 'armazena a soma dos digitos multiplicados pela sua base(intmais) Dim dblDivisao As Double 'armazena a divisão dos digitos*base por 11 Dim lngInteiro As Long 'armazena inteiro da divisão Dim intResto As Integer 'armazena o resto Dim intDig1 As Integer 'armazena o 1º digito verificador Dim intDig2 As Integer 'armazena o 2º digito verificador Dim strConf As String 'armazena o digito verificador lngSoma = 0 intNumero = 0 intMais = 0 strcampo = Left(CPF, 9) 'Inicia cálculos do 1º dígito For I = 2 To 10 strCaracter = Right(strcampo, I - 1) intNumero = Left(strCaracter, 1) intMais = intNumero * I lngSoma = lngSoma + intMais Next I dblDivisao = lngSoma / 11 lngInteiro = Int(dblDivisao) * 11 intResto = lngSoma - lngInteiro If intResto = 0 Or intResto = 1 Then intDig1 = 0 Else intDig1 = 11 - intResto End If strcampo = strcampo & intDig1 'concatena o CPF com o primeiro digito verificador lngSoma = 0 intNumero = 0 intMais = 0 'Inicia cálculos do 2º dígito For I = 2 To 11 strCaracter = Right(strcampo, I - 1) intNumero = Left(strCaracter, 1) intMais = intNumero * I lngSoma = lngSoma + intMais Next I dblDivisao = lngSoma / 11 lngInteiro = Int(dblDivisao) * 11 intResto = lngSoma - lngInteiro If intResto = 0 Or intResto = 1 Then intDig2 = 0 Else intDig2 = 11 - intResto End If strConf = intDig1 & intDig2 'Caso o CPF esteja errado dispara a mensagem If strConf <> Right(CPF, 2) Then calculacpf = False Else calculacpf = True End If Exit Function Exit_CPF: Exit Function Err_CPF: MsgBox Error$ Resume Exit_CPF End Function Public Function CalculaCGC(Numero As String) As String Dim I As Integer Dim prod As Integer Dim mult As Integer Dim digito As Integer If Not IsNumeric(Numero) Then CalculaCGC = "" Exit Function End If mult = 2 For I = Len(Numero) To 1 Step -1 prod = prod + Val(Mid(Numero, I, 1)) * mult mult = IIf(mult = 9, 2, mult + 1) Next digito = 11 - Int(prod Mod 11) digito = IIf(digito = 10 Or digito = 11, 0, digito) CalculaCGC = Trim(Str(digito)) End Function Public Function ValidaCGC(CGC As String) As Boolean If CalculaCGC(Left(CGC, 12)) <> Mid(CGC, 13, 1) Then ValidaCGC = False Exit Function End If If CalculaCGC(Left(CGC, 13)) <> Mid(CGC, 14, 1) Then ValidaCGC = False Exit Function End If ValidaCGC = True End Function E no form pra verificar meu código tá assim. Private Sub Text1_LostFocus() If Len(Text1.Text) > 0 Then Select Case Len(Text1.Text) Case Is = 11 Text1.Text = Format$(Text1.Text, "@@@.@@@.@@@-@@") If Not calculacpf(Text1.Text) Then MsgBox "CPF com DV incorreto !!!" Text1 = "" Text1.Text = "" Text1.SetFocus End If Case Is = 14 Text1.Text = Format$(Text1.Text, "@@.@@@.@@@/@@@@-@@") If Not ValidaCGC(Text1.Text) Then MsgBox "CGC com DV incorreto !!! " Text1 = "" Text1.Text = "" Text1.SetFocus End If End Select End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) 'Se teclar enter envia um TAB If KeyAscii = 13 Then SendKeys "{TAB}" KeyAscii = 0 End If End Sub Desde já agradeço pessoal.

Fica assim Marcelo insert into cliente (codi, nome, ende, fone) values ( 'TxtCod', TxtNome','TxtEnde','TxtFone' ) Qualquer coisa posta ai

Opa :D se precisar aparece ai

vbdanilo, explique melhor o que você quer, não deu pra entender nada.

Dá uma olhada nisso e vê se ajuda. http://msdn.microsoft.com/pt-br/library/064x715y(VS.80).aspx

Bom, se já rodou em máquina sem o crystal não sei porque desse erro, eu tive problema uma vez com um sistema que tinha relatório em crystal e não rodava na minha máquina porque não tinha o crystal instalado.

Você tem o crystal instalado na máquina onde quer rodar o sistema ?

Faça um select "select * from tabela"

Mais você desenvolveu o programa que faz isso em Basic ou executa pelo próprio Media Player ? Porque se for ele sozinho já faz isso.

Explique melhor sua dúvida, não ficou bem claro. abraço!

Lameira eu acho que ta dando esse erro porque você só está trazendo um item do seu banco de dados no recordset. "select top 1 nommot FROM " Quando você faz referencia ao campo "mot!modmot" dá erro. Coloque os outros itens que você vai precisar no seu select que resolve

Que bom que conseguiu resolver, Parabéns. qualquer coisa posta ai.

Qual versão do Access está usando ? Dá uma olhada nesses artigo que fala exatamente sobre esse erro que acontece principalmente quando usa o Access 2000 ou 2002,o erro não é no seu código e sim no proprio vb 6.0. Link de como resolver esse erro.

Posta todo código do form pra mim dar uma olhada.

Tenta troca isso: rsSelecao.Find "Numero_OS = " & ProcuraCodigo por isso rsSelecao.Open "Numero_OS = " & ProcuraCodigo e posta ai o que deu.

O que receberia a variavel ProcuraCodigo ?

O erro não está no & da sintaxe & ProcuraCodigo ?

Consegui resolver Kuroi,eu fiz assim Coloquei um textbox com a propriedade visible setado para false, busco os dados da tabela e este textbox vai receber o codigo do cliente(melhor que a variavel) e fiz um if se ele conter algo, ou seja, se o lenght dele for maior que zero é sinal de que estes dados já existem no banco de dados e que portanto utilizarei um update, caso contrário o insert. Ficou assim meu código no botão salvar: Call conexao If rs.State = 1 Then rs.Close rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic If Len(txtCodigo.Text) > 0 Then Conex.Execute ("update clientes Set nome = '" & txtFantasia.Text & "',estab ='" & txtEstab.Text & "',razao='" & txtRazao.Text & "',endereco='" & txtEndereco.Text & "',bairro='" & txtBairro.Text & "',cidade='" & txtCidade.Text & "',estado='" & txtEstado.Text & "',cep='" & txtCep.Text & "',cnpj='" & txtCnpj.Text & "',inscricao='" & txtInscricao.Text & "',ccm='" & txtCcm.Text & "', fone1='" & txtFone1.Text & "',fone2='" & txtFone2.Text & "', fone3='" & txtFone3.Text & "',fax='" & txtFax.Text & "',resp='" & txtResp.Text & "', cargo='" & txtCargo.Text & "', email='" & txtEmail.Text & "',site='" & txtSite.Text & "' Where codigo = " & txtCodigo.Text) Else Conex.Execute ("insert into clientes (nome,estab,razao,endereco,bairro,cidade,estado,cep,cnpj,inscricao,ccm, fone1,fone2, fone3,fax,resp, cargo, email,site)values('" & txtFantasia.Text & "','" & txtEstab.Text & "','" & txtRazao.Text & "','" & txtEndereco.Text & "','" & txtBairro.Text & "','" & txtCidade.Text & "','" & txtEstado.Text & "','" & txtCep.Text & "','" & txtCnpj.Text & "','" & txtInscricao.Text & "','" & txtCcm.Text & "','" & txtFone1.Text & "','" & txtFone2.Text & "','" & txtFone3.Text & "','" & txtFax.Text & "','" & txtResp.Text & "','" & txtCargo.Text & "','" & txtEmail.Text & "','" & txtSite.Text & "')") End If Valeu...