[Resolvido]Busca entre numeros

Tenho já meu projeto rodando a pleno vapor, mas agora, surgiu um caso que não sei nem por onde começar.
trabalho com blocos de comandas numerados, preciso que ao digitar noformulário o numero de uma destas comandas, o access busque na tabela a linha ao qual este numero é pertencente, exemplo:

comanda 255

linha 01 - 001 a 100 - Compras - João - joao@empresa.com.br
linha 02 - 101 a 200 - Ambulatório - Pedro - pedro@empresa.com.br
linha 03 - 201 a 300 - Jurídico - Ana - ana@empresa.com.br

e preencha os campos com as informações da linha.

Agradeço quem puder ajudar.


Fabio Pradella

Boa noite,
Trata-se de tabela Access?

Bom dia Alexandre,


sim, vou alimentar esta tabela access e preciso fazer esta busca e não sei nem por onde começar o código.



Obrigado pela atenção e aguardando a sua ajuda.



Fabio

Ola;

Qualquer cousa assim, no evento depois de atualizar no seu campo onde vai digitar esse tal de 255;

Código:

Private Sub SeuCampo_AfterUpdate()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
   
    If Me!SeuCampo.Value > 0 Then
        strSQL = "SELECT * FROM SuaTabela WHERE CampoComanda = " & Me!SeuCampo.Value
   
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL)
        If Not rs.BOF Then
            Me.SeuCampo1 = rs("Campo1 na Tabela")
            Me.SeuCampo2 = rs("Campo2 na Tabela")
            Me.SeuCampo3 = rs("Campo3 na Tabela")
            Me.SeuCampo4 = rs("Campo4 na Tabela")
        End If
        rs.Close
        Set rs = Nothing
        db.Close
        Set db = Nothing
    End If
End Sub

JPaulo,


Veja que o numero digitado no formulário quase nunca estará explicito na tabela, estará sempre oculto, entre dois números...


numero 55

estará entre 0 e 100 no campo NumeroComanda da tabela

estou anexando um resumo, nem sei se isto é possível, se não for, aceito qualquer outra ideia possível.


Obrigado desde já pela atenção.


Fabio

e o código que você me mandou também apareceu um erro que não consegui entender...está no anexo


Obrigado

Qual anexo ?

achei que tinha mandado,


segue...

É simples, ou mais ou menos simples;...

http://dl.dropboxusercontent.com/u/771097/TesteComandas_OLD.rar

Código:

Private Sub txtComanda_AfterUpdate()
 Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
   
    If Me!txtComanda.Value > 0 Then
        strSQL = "SELECT * FROM TabelaNumeroComanda " _
        & " WHERE  " & Me!txtComanda.Value & " Between Val(left(NumeroComanda,3)) AND Val(right(NumeroComanda,3))"
   
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL)
        If Not rs.BOF Then
            Me.txtResultado = rs("CCRelacionado")
        End If
        rs.Close
        Set rs = Nothing
        db.Close
        Set db = Nothing
    End If
End Sub

Perfeito,


muito obrigado pela ajuda mais uma vez Paulo.


Fabio Pradella

Obrigado pelo retorno o forum agradece.

Boa tarde,

JPaulo,

não consigo fazer rodar o código no projeto completo, só no exemplo que você mandou, da sempre erro nesta linha...


Private Sub NºComanda_AfterUpdate()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
   
   If Me!NºComanda.Value > 0 Then
       strSQL = "SELECT * FROM TabelaNumeroComanda " _
       & " WHERE  " & Me!NºComanda.Value & " Between Val(left(NumeroComanda,3)) AND Val(right(NumeroComanda,3))"
   
       Set db = CurrentDb
       Set rs = db.OpenRecordset(strSQL)
       If Not rs.BOF Then
           Me.TxtCliente = rs("CCRelacionado")
       End If
       rs.Close
       Set rs = Nothing
       db.Close
       Set db = Nothing
   End If
End Sub

Li todo um outro poste que a pessoa tinha o mesmo problema e você ajudou, só que no meu caso, todos os campos já são texto, nenhum em números...

Obrigado

Bom dia,

Ainda continuo como meu problema, o que acontece é que com os clientes que já estavam cadastrados na tabela quando implantei o código, ocorre perfeitamente, mas se cadastro algum cliente novo ele da erro.


Preciso da ajuda dos senhores,


Obrigado


Fabio

Boa tarde,
Faça o tratamento de erro e ajuste ao erro que ocorre

Ola, teste por favor;

Código:

Private Sub NºComanda_AfterUpdate()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
 
DoCmd.RunCommand acCmdSaveRecord

  If Me![NºComanda].value > 0 Then
      strSQL = "SELECT * FROM TabelaNumeroComanda " _
      & " WHERE  " & Me![NºComanda].value & " Between Val(left(NumeroComanda,3)) AND Val(right(NumeroComanda,3))"
 
      Set db = CurrentDb
      Set rs = db.OpenRecordset(strSQL)
      If Not rs.BOF Then
          Me.TxtCliente = rs("CCRelacionado")
      End If
      rs.Close
      Set rs = Nothing
      db.Close
      Set db = Nothing
  End If
End Sub

Boa tarde Paulo,

não deu não, continua dando o mesmo erro, posso anexar aqui um exemplo resumido do projeto, vou prepara lo,
obrigado por enquanto.

Fabio

Bom dia JPaulo,

primeiro tentei tratar o erro como sugeriu o Alexandre mas não tive sucesso até por que não tenho conhecimento para isso, em seguida resolvi recriar a Tabela do 0, estou cadastrando um por um novamente dos clientes e até o momento esta dando tudo certo, esta funcionando perfeitamente o primeiro código que você me mandou.

Gostaria muito de te agradecer mais uma vez pelo seu tempo e paciência e também pedir desculpas pelo pouco conhecimento até mesmo para identificar erros.

Att.


Fabio

Valew, precisando de novo dê um grito.