EdW@rD
30 de Julio del 2003

Saludos,tengo un problemita con el siguiente codigo,lo que quiero es que me traiga de una base de datos todos los usuarios que se le a entregado un documento tres meses atras, al corrrerlo me da el siguiente error (No value given for one or more required parameters), agradeceria cualquier ayuda.


Private Sub Command1_Click()
D1.rsCommand2.Close
Dim Newdate As Variant
Dim sql1 As String
Newdate = DateAdd("m", -3, Date)
sql1 = "SELECT * from pedidos WHERE fecha= Newdate"
D1.rsCommand2.Source = sql1
D1.rsCommand2.Open
D1.rsCommand2.DataMember = "command2"
End Sub

Juan
30 de Julio del 2003

No estoy seguro pero creo que la 6ª linea deberia ser así:
sql1 = "SELECT * from pedidos WHERE fecha=#" & format(Newdate,"dd/mm/aaaa") & "#"

EdW@rD
30 de Julio del 2003

Hey gracias mi hermano me funciono :)