Jump to content
Fórum Script Brasil

tito13

Membros
  • Content Count

    32
  • Joined

  • Last visited

Community Reputation

0 Neutro

About tito13

Perfil

  • Gender
    Male
  • Location
    Rio Grande do Sul
  1. 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+
  2. 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.
  3. buscaria o numero da Ordem de Serviço em uma tabela access com todos os dados nela, tipo data, produto, obs.....
  4. beleza Gabriel Testei sem o & e me retorna erro solicitando end da linha
  5. 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
  6. GabrielDB em cheio. resolveu o problema. Obrigado t+ Kuroi poderia colocar como resolvido??
  7. beleza GabrielDB o erro sinaliza nessa linha rsSelecao.Open "select * from clientes where Numero_OS = " & CboNumOS & "", Conex, adOpenDynamic, adLockOptimistic
  8. 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 Numer
  9. Cara é isso!! eu não tava me expressando correto. vou testar e retorno Valeu t+
  10. Que o fom 2 tenha alguns dados do form 1
  11. 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.
  12. 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.
  13. 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
  14. 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
  15. 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
×
×
  • Create New...