La acción o comando "Pegar" no está disponible ahora

Dudas sobre código
Antoniob
Nivel 1
Mensajes: 8
Registrado: Dom Nov 01, 2020 5:10 pm

La acción o comando "Pegar" no está disponible ahora

Mensajepor Antoniob » Dom Nov 01, 2020 5:44 pm

BUenas tardes

Me ha dado error un código que hasta ahora funcionaba correctamente. Con este código se repetía los datos registrados en una secuencia de días. para mi calendario.

Private Sub cmdVeces_Click()
On Error GoTo sol_err

'Declaramos las variables

Dim i As Byte
Dim nVeces As Byte
Dim fechTmp As Date
Dim FechFin As Date
Dim nombre As String
Dim tipo As String
Dim Responsable As String
Dim horario, estado, resp As String
Dim vFechE, VFechF As Date 'Fecha entrega





Application.Echo False

For i = 1 To nVeces
fechTmp = fechTmp + 1


DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
DoCmd.RunCommand acCmdSaveRecord
'le escribimos
Me.FechCita = fechTmp
Next i

Application.Echo True

DoCmd.RunCommand acCmdRecordsGoToLast

Me pueden ayudar?

Gracias

Volver a “Código VBA”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados