gabrieldb

Meu código tá assim: Private Sub cboPosto_Change() Call conexao Conex.CursorLocation = adUseClient rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic cboPosto = rs("nome") End Sub Mais não abre os registros.

Boa dia pessoal estou com um problema que parece ser fácil mais não é, eu tenho um BD com diversos clientes aqui da empresa. Eu queria o seguinte quando a pessoa escolhesse o Posto(cliente) preenchesse os outros campos em vermelho conforme na imagem abaixo com os dados dos respectivos clientes que escolhessem que está na tabela Clientes do meu BD. Alguém pode me ajudar a fazer isso ? Abraço!

Dá uma olhada nessa apostila aki é muito boa. http://www.apostilando.com/download.php?co...co%20de%20Dados

Pode ser como também pode não ser, eu baixei do site a versão 8.3 e não consegui instalar também, acabei baixando a versão 8.2 e deu tudo certo.

É complicado resolver isso, ainda não decidi o que fazer mais acho que vou configurar manualmente.

kkkkkkkkkkkkk Muito boa Raphael....me rachei

Se você for usar uma textbox você pode coloque esse código no evento lostfocus da text If Len(Text1.Text) = 8 Then Text1.Text = Format(Text1.Text, "00/00/0000") End If Onde tiver text1 você coloca o nome do seu textbox Você pode usar tambem maskedbox

;)

Eu acho que você deve postar essa dúvida no forum de .NET, lá eles podem te ajudar melhor sobre o VB 2008 .NET

Esse erro pode ser na conexão como seu BD poste o código ai pra gente dar uma olhada.

Mude isso : .Open "select * from fones where nome=" & intnome & "", cn, adOpenKeyset, adLockOptimistic Para isso: .Open "select * from fones where nome=" & intnome & ", cn, adOpenKeyset, adLockOptimistic" Eu acho que são as aspas...

Entendi o que você quis dizer....eu tmb tenho um relatório nesse modelo, mais ele aparece tudo junto namesma folha os dados : Mais quando muda pra outra folha aparece todo bagunçado...nunca pensei em mexer nele...vou dar uma mexida aki se conseguir resolver te falo.

Dá uma olhada nesse artigo que fala sobre Data Report, talvez ajude m alguma coisa. Data Report

kkkkkkkkkkkkkkkkkkk me rachei de rir agora... :D

Tenta usar o controle StatusBar ai por lá você configura as teclas como CAPS, NUM,SCROLL, HORA, DATA ... No meu sistema eu uso isso...

Kuroi você é o cara...depois eu pago a breja rsrs Deu certinho do jeito que queria....valeu! Abraço!

Ele fecha toda aplicação e não volta pro form atual, o que deveria acontecer.

Ai vai o código: Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim mensagem As String, botões As Integer, titulo As String Dim resposta As Integer mensagem = "Deseja salvar as alterações ?" ' Define mensagem botões = vbYesNoCancel + vbExclamation ' Define botões titulo = "Cadastro de Clientes" ' Define título resposta = MsgBox(mensagem, botões, titulo) If resposta = vbNo Then 'se a resposta foi "não" Unload Me ElseIf resposta = vbYes Then 'se a resposta foi "sim" cmdSalvar_Click Else Exit Sub 'se a resposta foi "cancelar" End If End Sub

coloquei o código que você me passou mais dá no mesmo ele sai da aplicação toda...tá dificil...

Então eu queria tipo assim que quando o usuário clicar em cancelar ele não fizesse nada e continuasse na tela tipo no Bloco de Notas e nos outros programas. Exemplo: O usuário alterou o registro "TESTE" do bd no Form ai ele eskece de salvar e clica em sair aparece as opções Sim, Não e Cancelar ai ele lembro que faltou alguma coisa no registro "TESTE" ele clica em cancelar e volta pro Form pra continuar. Entendeu ?

Boa tarde pessoal estou com um probleminha bobo.. Eu tenho uma msgbox que o cara escolher se quer Salvar: Sim, Não e Cancelar(vYesNoCancel) os botões Sim e Não funciona perfeitamente mais o cancelar ele tá funcionando como Não eu não sei como fazer pra ele ficar na página quando clicar nele ao invés de sair, ai vai o meu código: Dim mensagem As String, botões As Integer, titulo As String Dim resposta As Integer mensagem = "Mensagem" ' Define mensagem botões = vbYesNoCancel ' Define botões titulo = "Título" ' Define título resposta = MsgBox(mensagem, botões, titulo) If resposta = vbNo Then 'se a resposta foi "não" Unload Me ElseIf resposta = vbYes Then 'se a resposta foi "sim" cmdSalvar_Click Else 'Aqui eu não sei como fazer se a resposta foi "cancelar" End If

Eu passei por isso quando fui instalar a versão 8.3 no Vista, mais com a 8.2 foi tudo normal...até hj eu não consigo instalar a 8.3 nem no XP. Qual versão você tá tentando instalar ?

Tenta esses aki....o primeiro fala sobre filtro http://www.macoratti.net/vbn_foan.htm http://www.macoratti.net/vbn_dgv2.htm

Vê esse então... http://www.macoratti.net/ado_sp.htm http://www.macoratti.net/ado_sp2.htm os dois fala sobe Stored Procedure...talvez possa servir

Dá uma olhada aki e vê se ajuda... http://www.macoratti.net/vbn_bsql.htm Abraço!