Sveinbjorn El Rojo

Me parece a mi que te estás complicando sin necesidad. Me explico: dices que el informe tiene como origen de datos esa consulta. Además, en la consulta supongo que existe el campo Nota_materia. Y es el valor de ese campo el que intentas darle a...

Esto me pasó a mi en una ocasión, y tardé un montón en dar con la solución, que por otra parte, es bien curiosa. Tienes que darle el formato al revés, mm-dd-yyyy: DoCmd.RunSQL "INSERT INTO T_Estado ( Id_Carpeta,Fecha_Estado )" _ & "SELECT...

Coloca DoCmd. SetWarnings False al principio del código del botón, para desactivarlos, y si los quieres volver a activar, para que no te queden desactivados, coloca al final del código DoCmd.SetWarnings True

Prueba con este otro código: Dim rst As Recordset Dim valor As String Dim código As String Dim indice As Integer código = "6" indice = 1 Set rst = Me.RecordsetClone valor = código & local_solicitante.Value rst.FindLast "cod_solicitante like '" &...

Puedes probar con algo como esto: Dim db As Database Dim miSQL As String Dim qry As QueryDef Set db= CurrentDb miSQL = "SELECT....." 'Creas la consulta Set qry = db.CreateQueryDef("CTemp", miSQL) Abres la consulta DoCmd. OpenQuery "CTemp", acNormal,...

Supongo que el error te lo marca en la última línea, la que lleva el Requery, y eso es porque no la tienes escrita correctamente, debería ser así: Forms!MsPedidosReservas.MsPedidosReservasInsumos.Form.Requery Sólo lleva el signo de admiración después...

Prueba así: str="UPDATE ChequeoPedido SET Chequeo = True " str=str & "WHERE IdPedido=" & Forms!ControlReservasSub.IdPedido.Value Dbs. Execute str O prueba con DoCmd. RunSQL str.

Sí que puedes hacerlo, el código será prácticamente igual, aunque tendrás que adaptarlo a las especialidades de vba. Si necesitas ayuda, aquí estamos ( si buscas por la web, verás varios ejemplos de acceso con contraseña), aunque yo de ADO no...