Visual Basic

[tachin83]

TENGO UN PROGRAMA QUE TIENE UNA BASE DE DATOS ACESSS

PERO EN LA BUSQUEDA NO ME FUNCIONA BIEN NO ME BUSCA MES Y FECHA

EL CODIGO ES ESTE

Private Sub Command1_Click()


If Opt1.Value Then
nreg = Text8.Text
sbuscar = "MES Y AÑO= " & " '" & nreg & "'"
End If

If Opt2.Value Then
sbuscar = "A= " & " '" & Text8.Text & "'"
End If
Adodc1.Recordset.Find sbuscar
End Sub


POR FAVOR LE DEJO MI CORREO PARA QUE QUENES ME QUIEREN AYUDAR LE MANDO EL PROGRAMA Y LE DIGO LAS OTRAS COASAS QUE NO ME SALEN


CHAUU FELIZ NAVIDAD

[kakarot]

Si tus vbles año y mes las has definido como integer prueba pasandoles un casting es decir:
val(nger), y sino prueba con una sentencia sql tipo: suponiedo q MES Y AÑO sean dos campos de unta tabla tuya
sql=" select MES, AÑO from NOMBRE_TABLA where nombre_campo=expresion"

[ssev13]

Cuando se pasa un valor de fecha a veces tienes problemas con la configuración regional. A veces te cambia el orden del mes y el día o cosas así, puedes verificar eso. También puedes probar usando # para indicar la fecha. Algo como

sbuscar = "MES Y AÑO= " & " #" & nreg & "#"

en access los filtros con fechas se declaran así.