Encontrar valores en rango de tabla access

Seria bastante bueno y útil, poder revisar el código, el que tengas avanzado para poder solo añadir cosas.. y también observar que metodología estas siguiendo para tu programación.

ok podrías por favor proporcionarme un correo donde te pueda mandar el proyecto

Gracias por responder.

Saludos

Mmmm..

Estimado, podría proporcionarte un correo pero, poder descargarlo y revisarlo, me seria posible solo en la noche.. por temas laborales, no puedo hacerlo antes, ademas aquí en mi trabajo no tengo las herramientas adecuadas. ([email protected]).

Por otro lado podrías compartir (publicar) el evento/función en que tienes el código donde tienes la dificultad, sin olvidar mencionar, la conexión que usas (tu variable de coneccion) y el tipo de tecnología que usas, en mi caso uso Adodb.

mi conexión la hago de la siguiente manera

Option Explicit
Dim rsb As Recordset
Dim cn As Connection
Dim pathBD As String

Private Sub Form_Load()
pathBD = App.Path & "\datos.mdb"
'Nueva conexión ado
Set cn = New Connection
' propiedades
With cn
.CursorLocation = adUseClient
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
"Source= " & pathBD & ";Persist Security " & _
"Info=False"
.Open ' abre la conexión
End With
End Sub

Para buscar mi primer dato, utilizo un botón con el siguiente código, aquí es no se como decirle para que busque el dato entre la columna llamada Inferior y Columna Superior de access

Private Sub Command1_Click()
Dim rsb As New ADODB.Recordset
Set rsb =New Recordset
rsb.Open "SELECT * FROM tarifa where Inferior = '" & Text1.Text &"'", cn
Text2 =IIf(IsNull(rsb(0)), 0, rsb(0))

rsb.Close
End Sub

Gracias por contestar

Saludos

Re-utilizando tu código de consulta.

Y haciendo algo a la volada (ya es hora del almuerzo por acá) y mas intuitivo que por descarte en el vb6.

Private Sub Command1_Click()
Dim rsb As New ADODB.Recordset
Dim dValor as double
dValor = Val(Trim(Text1.Text))
Set rsb =New Recordset
rsb.Open "SELECT inferior,importe,[por ciento] as xciento FROM tarifa where " & dValor & " between inferior and superior", con
Text2.text = CStr(IIf(IsNull(rsb. Fields("inferior")), 0, rsb. Fields("inferior")))
Text3.text = CStr(IIf(IsNull(rsb. Fields("importe")), 0, rsb. Fields("importe")))
Text4.text = CStr(IIf(IsNull(rsb. Fields("xciento")), 0, rsb. Fields("xciento")))
Rsb. Close
End Sub

'Podrías probar esto, y a ver que tal va,

Saludos (regreso en unas horas! XD!