Hola otra vez
, ahora estoy intentando hacer una búsqueda de registros pero me marca un error, utilizo el metodo Find pero me sale el mensaje de "Argumentos no válidos ó fuera de rango", tengo dos comparaciones, si le kito una si funciona
, espero alguien pueda ayudarme.
Código PHP:
Private Sub cmdBuscar_Click() ***********************
buscado = InputBox("Por favor, teclee el el número de proyecto :")
proy = buscado
buscado = InputBox("Por favor, teclee el año :")
año = buscado
buscado = "[No_proy]=" & proy & "AND [Año]=" & año //Dos condiciones
cmdPrimero_Click
DataEnvironment1.Recordsets("Proyectos").Find (buscado) //Error
If Not DataEnvironment1.rsproyectos.EOF Then
MsgBox ("Se encontro el proyecto")
Else
MsgBox ("El proyecto no existe")
End If
cmdPrimero_Click
End Sub
Y otro problema k tengo es k cuando estoy en un registro como sería la instrucción para editarlo, pork tengo la siguiente pero no funciona.
Código PHP:
Private Sub cmdEditar_Click() ****************
DataEnvironment1.rsproyectos.EditMode
Call PreparaInterfase
End Sub
Saludos
