tito13

resolvido fiz pequenas correções código ficou assim Private Sub LocalizarRegistro() Dim ProcuraCodigo As String ProcuraCodigo = InputBox("Digite o Codigo a ser Consultado") rsSelecao.Find "Numero_OS = " & ProcuraCodigo If rsSelecao.EOF = True Then MsgBox "Registro não Encontrado", vbExclamation rsSelecao.MovePrevious End If Mostrar TxtNumOS.SetFocus End Sub e ficou 10 Valeu t+

Bom dia Gabriel , valeu pela dica, mas para esse caso eu preciso usar o método find ou seek o metodo find no outro form funcionou numa boa e agora nesse outro form deu na trave, me retornando esse erro que não consigo resolver. se alguém puder me dar outra opiniao, agradeço.

buscaria o numero da Ordem de Serviço em uma tabela access com todos os dados nela, tipo data, produto, obs.....

beleza Gabriel Testei sem o & e me retorna erro solicitando end da linha

boa tarde quando uso essa sub me retorna erro dizendo"o conjunto de linhas não oferece suporte para rolagem regressiva" Private Sub LocalizarRegistro() Dim ProcuraCodigo As String Set rsSelecao = cnnCetecInfServiços.Execute("Select * From Oficina1") ProcuraCodigo = InputBox("Digite o Codigo a ser Consultado") rsSelecao.Find "Numero_OS = " & ProcuraCodigo If rsSelecao.EOF = True Then MsgBox "Registro não Encontrado", vbExclamation rsSelecao.MovePrevious End If Mostrar End Sub sinaliza na linha sublinhada já uso esse tipo de sub no form anterior e não me retona erro. procurei em site de busca mas não consegui identificar o erro, se alguém puder me ajudar agradeço

GabrielDB em cheio. resolveu o problema. Obrigado t+ Kuroi poderia colocar como resolvido??

beleza GabrielDB o erro sinaliza nessa linha rsSelecao.Open "select * from clientes where Numero_OS = " & CboNumOS & "", Conex, adOpenDynamic, adLockOptimistic

bom dia retornando ao assunto fiz assim no load do form rsSelecao.Open "Select * From Clientes", cnnCetecInfServiços, 1, 2 Do Until rsSelecao.EOF If Not IsNull(rsSelecao!Numero_OS) Then CboNumOS.AddItem rsSelecao!Numero_OS rsSelecao.MoveNext Loop Saida: Set rsSelecao = Nothing End Sub funciona beleza, me retorna na combo todos os clientes cadastrados na tabela clientes agora eu quero que cliicando num destes clientes retornados na combo, os dados deles vao para dois textbox fiz assim Private Sub CboNumOS_Click() rsSelecao.Open "select * from clientes where Numero_OS = " & CboNumOS & "", Conex, adOpenDynamic, adLockOptimistic If Not rsSelecao.EOF Then TxtNomeCliente.Text = rsSelecao!Nome TxtProduto.Text = rsSelecao!Produto Else MsgBox ("Não há clientes cadastrados!"), vbExclamation End If rsSelecao.Close End Sub está me retornando erro 3001 os argumentos são incorretos....... onde estou errando??? Usei dicas de GabrielDB

Cara é isso!! eu não tava me expressando correto. vou testar e retorno Valeu t+

Que o fom 2 tenha alguns dados do form 1

pode estar aberto num terminal a recepcionista vai estar cadastro um cliente, noutro terminal um func vai estar acessando o form dois que pode ser do mesmo cliente e no terminal tres outro funcionario vai estar acessando o form 3 e utilizando tambem o mesmo cliente ou outro conforme a nacessidade. são tres setores de uma empresa que acessam o mesmo programa no mesmo tempo no mesmo cliente ou não.

Boa tarde o que eu quero é que quando eu abro os forms 2,3,4... eles tragam alguns dados, tipo codigo, nome cliente, do form 1. com a sub que coloquei ai acima ele ta me retornando o proximo codigo do cliente que vou adicionar no form 1 não sei se fui claro agora?? em resumo quero que todos os forms conversem.

não na verdade ele levou para o form 2 o proximo numero que seria incluido no form 1 mas pelo menos nqo deu erro Vou estudando Minha ideia seria que quando eu abrisse por exemplo o cliente 5 em todos os forms , nos tres itens, deveria estar os dados do cliente 5 Ou que nos foms posteriores ao 1 eu digitasse o codigo do cliente e me retornasse os dados dele aceito ideias

erro 3705 operaçao não permetida quando o objeto esta aberto agora fiz a seguinte alteração Private Sub Form_Load() TxtNumOS.Text = FrmRecepcao.TxtNumOS.Text TxtNomeCliente.Text = FrmRecepcao.TxtNomeCliente.Text TxtProduto.Text = FrmRecepcao.TxtProduto.Text End Sub inclui o NumOS e o nr passou para o form 2 Vou conferir o que mudei e tentar identificar meu erro

boa tarde parece facil, mas não estou identificando o erro no form 2,3,4.... vao constar algumas inf do form 1 ai fiz a seguinte sub Private Sub Form_Load() TxtNomeCliente.Text = FrmRecepcao.TxtNomeCliente.Text TxtProduto.Text = FrmRecepcao.TxtProduto.Text End Sub e me retorna erro dizendo que não pode executar por estar aberto o primeiro form e sinaliza nesta sub do primeiro form Private Sub Form_Load() Dim cod As Long cnnCetecInfServiços.CursorLocation = adUseClient rsSelecao.Open "Select * From Clientes", cnnOleopl, 1, 2 'erro aqui If rsSelecao.RecordCount = 0 Then cod = "00001" Else rsSelecao.MoveLast cod = rsSelecao("Numero_OS") + 1 End If TxtNumOS.Text = cod End Sub Fechei todas as sub adicionar, excluir, alterar mas não funciona parece facil..... mas preciso de ajuda

bom dia Kuroi se quizer por como resolvido eu agradeço.

resolvido! reinstalei o vb 6 marquei data access e agora ta disponivel. obrigado

kuroi o pior é que não aparece mesmo. poderia ser algo não marcado nas references?? ou o jeito é reinstalar o vb6?

boa tarde por favor, alguém poedria me dar uma dica porque não estaria disponivel "Add Data Environment " em components, Disigners no meu projects. já tentei alterar alguns itens nas references mas estou fazendo algo errado. fico no aguardo

Kuroi muito obrigado!! usei o metodo Find e funcionou beleza. o codigo ficou assim: Private Sub LocalizarRegistro() Dim ProcuraCodigo As String Set rsSelecao = cnnOleoPl.Execute("Select * From Clientes") ProcuraCodigo = InputBox("Digite o Codigo a ser Consultado") rsSelecao.Find "Numero_OS = " & ProcuraCodigo If rsSelecao.EOF = True Then MsgBox "Registro não Encontrado", vbExclamation rsSelecao.MovePrevious End If Mostrar End Sub Valeu t+

tentei dessa forma: Private Sub LocalizarRegistro() Dim ProcuraCodigo As String With cnnComando .ActiveConnection = cnnOleopl .CommandType = adCmdText 'cria o modulo sql .CommandText = "Select * From Clientes where Numero_OS = " & TxtNumOS.Text & ";" Set rsSelecao = .Execute End With ProcuraCodigo = InputBox("Digite o Codigo a ser Consultado") rsSelecao.Seek "Numero_OS=", ProcuraCodigo If rsSelecao.EOF = True Then MsgBox "Registro não Encontrado", vbExclamation rsSelecao.MovePrevious End If Mostrar End Sub e assim: Private Sub LocalizarRegistro() Dim ProcuraCodigo As String cnnOleopl.CursorLocation = adUseClient Set rsSelecao = cnnOleopl.Execute("Select * From Clientes") ProcuraCodigo = InputBox("Digite o Codigo a ser Consultado") rsSelecao.Seek "Numero_OS=", ProcuraCodigo If rsSelecao.EOF = True Then MsgBox "Registro não Encontrado", vbExclamation rsSelecao.MovePrevious End If Mostrar End Sub e o retono e o mesmo. não desisto, espero que voce tambem não

Kuroi não deu certo com sua dica, retorna mesma resposta. Então tentei assim: Private Sub LocalizarRegistro() Dim ProcuraCodigo As String With cnnComando .ActiveConnection = cnnOleopl .CommandType = adCmdText 'cria o modulo sql .CommandText = "Select * From Clientes" .Execute End With ProcuraCodigo = InputBox("Digite o Codigo a ser Consultado") rsSelecao.Seek "Numero_Os = " & ProcuraCodigo If rsSelecao.EOF = True Then MsgBox "Registro não Encontrado", vbExclamation rsSelecao.MovePrevious End If Mostrar End Sub Mas infelizmente retornou mesma resposta Vou tentando

Gabrieldb, valeu a dica. o erro ta sinalizando na linha rsSelecao.Seek "=", ProcuraCodigo e o acesso não deve ser porque todas as outras subs estao funcionando, mas la vai: Private Sub Form_Load() Dim cod As Long rsSelecao.Open "Select * From Clientes", cnnOleopl, 1, 2 If rsSelecao.RecordCount = 0 Then cod = "00001" Else rsSelecao.MoveLast cod = rsSelecao("Numero_OS") + 1 End If TxtNumOS.Text = cod End Sub Fico no aguardo

Bom dia Esta me retornando erro 3251 ( O provedor atual não oferece suporte para a interface necessaria a funcionalidade do indice) na sub abaixo Private Sub LocalizarRegistro() Dim ProcuraCodigo As String ProcuraCodigo = InputBox("Digite o Codigo a ser Consultado") rsSelecao.Seek "=", ProcuraCodigo If rsSelecao.EOF = True Then MsgBox "Registro não Encontrado", vbExclamation rsSelecao.MovePrevious End If Mostrar End Sub alguém poderia me dizer onde estou errando?? Uso Access 2003 Ado 2.8 vb6

Pessoal, alterei a forma de acessar e deu certo. Obrigado a todos. Ficou assim With cnnComando .ActiveConnection = cnnCetecInfServiços .CommandType = adCmdText 'cria o modulo sql .CommandText = "INSERT INTO Clientes" & _ "(Nome, Telefone, Cidade, Data_Inicio_Servico, Hora_Inicio_Servico, Produto, Motivo_Chamada, Obs) Values( '" & TxtNomeCliente.Text & "', '" & TxtTel.Text & "', '" & TxtCidade.Text & "', '" & TxtDataInicioServico.Text & "', '" & TxtHoraInicioServico.Text & "', '" & TxtProduto.Text & "', '" & TxtMotivo.Text & "', '" & TxtObs.Text & "');" .Execute End With