GilbertoB

tentei usar a logica mas não consegui fazer :blush: os que eu consegui fazer sempre que deleto um cadastro ele repete os numeros tem como me passar o MSN Matheus ? e vlw pela ajuda agora só falta isso pra termina o projeto ^_^

já add mano

Eu coloquei tudo certo por conhecidencia minha tabela chama Cadastro e o campo Codigo coloquei o diretorio corretamente o erro na verdade não esta nessa linha quando cliko em debug ele seleciona essa linha imagino que o problema seja nela, eu colkei pra abri o banco de dados pelo general que nem você fez e coloquei AFB ai deu o seguinte erro ' Os argumentos são incorretos, estão fora do intervalo aceitavel ou estão em conflito. ' nessa linha Rs.Open SQL, Con, adOpenKeyset, adLockReadOnly ela fica selecionada deve ser nela o erro mas nem sei como consertar :blush:

Eu fiz tudo certo mas quando vou realizar a pesquisa da o seguinte erro " O mecanismo de banco de dados Microsoft jet não encontrou a tabela de entrada ou consulta 'Clientes'. Certifique-se de que ela existe e de que seu nome está digitado corretamente." eu use essa linha e preenchi com os dados do banco de dados aki Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Teste\Banco.mdb;Persist Security Info=False" mas parece que ele não encontrou o banco de dados

Entendi sim até tentei faze aki mas fica que nem você falou quando exclui o cadastro 1 ai fica 2 cadastro 3 por isso falei de fazer alguma coisa pra saber qual foi o ultimo numero que foi salvo ou o maior numero para dar sequencia já que não pode ter 2 cadastro com mesmo codigo

beleza vlw entendi obrigado pelas respostas estou quardando tudo aki :D

Vlw pela ajuda ta bem esplicado entendi tudo perfeitamente :D só tem um problema é que eu nunca abri uma conexão com base de dados Public Function AFB() Set Con = New ADODB.Connection Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BData.mdb;Persist Security Info=False" nessa ultima linha o que significa o primeiro Data ? e BData eu coloquei meu banco de dados do acces ta certo ?

Bom é uma tabela de cadastros então os cadastros não serão permanentes, eu quero poder excluir qualquer cadastro e continuar a contagem normalmente como se o cadastro nunca tivesse sido excluido.

OK vlw pela ajuda

Eu não consegui usa porque não sei usar esse AFB se podesse me explicar essa parte melhor ficaria grato é a unica parte que não sei porque nunca usei SQL estive evintado usar até agora mas parece que não tem jeito, me desculpe se estou dando trabalho é que estou começando a programar agora e o curso que fiz era muito ruim, por isso peço um poco de paciencia :) e obrigodo ao Matheus e a você pelo bem vindo ao forum :D

EU já tava usando Currency mas dei um jeito e agora ta funcionando do jeito que eu queria da uma olhada de como fico resultado = A+B label1.caption = format(resultado,"R$#.#0; $#.#0") era exatamente o que eu queria com esse codigo quando passar o valor para a Label fica como real e se o valor for vazio ou zero fica R$0,00 Vlw pela ajuda :D

Vlw mano não deu certo aki mas eu vi como você usou o Mid ^_^

Primeiramente vlw Matheus. Sim mas ai no caso o primeiro codigo seria 1 o os codigos que forem sendo adicionados seriam todos 2, eu precisava de algo para verificar qual é o ultimo numero do campo codigo da tabela e também de algo pra verificar se tem algum codigo salvo na tabela ou seja verificar todos codigos, se não encontrar nenhum então seguiria um caminho ou colocaria 1, caso encontre teria que me retornar o ultimo numero ou seja o numero mais alto.

vlw dinovo Matheus, entendi o que é mid, amanhã vou tentar fazer a pesquisa ^_^

Continua com 3 casas decimais mas entendi a logica vou ver se consigo depois posto ai vlw a ajuda :)

Mais um problema ^^ tenho um frm de cadastro e cada cadastro recebe um codigo começando do 1 e seguindo a sequencia o problema é que o campo tem que preencher atomatico ou seja quando eu abrir o frm pra fazer um novo cadastro vai te la a Label já preenchida com o codigo, já me sugeriram usa o Auto Incremente do baco de dado que é no access mas tenho 3 tabels no mesmo baco de dados ai ele conta as outras tabela também e mesmo escluindo todos registros ele não volta no 1 mas continua da onde parou aqui ta no 28 ;) , mas eu quero fazer de otro jeito, eu pensei em fazer uma pesquisa verificando se tem algum codigo registrado se não tiver nenhum então colocaria uma imputbox perguntando que numero eu gostaria de começar a contar o codigo, ai iria gravar o numero no banco de dados e nos procimos cadastro era só verificar qual o ultimo numero do campo codigo e colocar + 1, só não fiz ainda porque não sei como faz uma pesquisa que verifique qual o ultimo numero do campo codigo e nem a pesquisa que verifica se tem algum codigo salvo, sera que podem me ajudar. Se não entenderam perguntem que eu esplico melhor ^^

Vlw Matheus você ta me ajudando muito, deu tudo certo mas fica com 3 casas decimais depois da virgula :( tentei aqui mas não consegui dexar com 2 casas decimais.

Vlw pela resposta tenho um baco de dados no access fiz a tabela e salvei os nomes no campo tabela, não sei o que é MID :blush: mas vou pesquisar, vou ver se consigo seguir a logica pra fazer a pesquisa aki, depois posto pra falar se deu certo ^_^

Se for possivel gostaria de saber como coloco uma mascara de real (R$0.00) em uma Label, da pra fazer isso ou Label não tem esse recurso ? na verdade a Label vai receber um valor de uma soma e queria que esse valor fosse apresentado na Label em forma de real, se poderem me ajudar ficarei grato ^^

o problema é o seguinte eu tenho um form de pesquisa que tem uma textbox onde digita o nome a ser procurado um commandbutton para acionar a pesquisa e uma listbox onde aparece o resultado até ai tudo bem, o problema é que quero digitar apenas o primeiro nome na textbox e aprensentar todos nomes que comecem com aqueles caracteres, por exemplo, eu digito Carlos na textbox e clico no commandbutton de pesquisa e apresenta todos Carlos na listbox, Carlos Gonzaga, Carlos Ferraz e por ai vai, sea que podem me ajudar ? Estou começando no ramo de programação então se poderem deixar bem esplicado eu agradeço.