Access - Omitir copiar datos entre controles

Hola a todos.

Con el código de abajo, copio el contenido de dos campos de texto que tengo en un formulario llamado Salidas a otro llamado Rutas haciendo clic en un botón que tengo en el primero. Para esto, utilizo un módulo general con Campo_Copia, Campo_Copia1. Funciona todo de maravilla. Lo que quiero ahora, es introducir alguna línea de código que al ir del Formulario Salidas al Formulario Rutas y detectar que el campo de destino Me.conductor1, Me.conductor2 tienen datos, no se cumpla la funcion de compiar, es decir, no copiar los datos de Campo_Copia, Campo_Copia1; a Me.conductor1, Me.condcutor2.

Espero que me haya explicado bien.

Muchas gracias a todos. Saludos Blas.


Private Sub Comando24_Click()
On Error GoTo Err_Comando24_Click

Dim stDocName As String
Dim stLinkCriteria As String

Campo_Copia = Me.conductor1
Campo_Copia1 = Me.conductor2

stDocName = "FormularioRutas"

stLinkCriteria = "[conductordni]=" & "'" & Me![conductordni] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Forms![FormularioRutas]![conductor1] = Campo_Copia
Forms![FormularioRutas]![conductor2] = Campo_Copia1

Exit_Comando24_Click:
Exit Sub

Err_Comando24_Click:
MsgBox Err.Description
Resume Exit_Comando24_Click
End Sub

if isnull(Forms![FormularioRutas]![conductor1]) then
Forms![FormularioRutas]![conductor1] = Campo_Copia
endif
if isnull (Forms![FormularioRutas]![conductor2] ) then
Forms![FormularioRutas]![conductor2] = Campo_Copia1
endif

Hola 2PL.

Antes de nada agradecer tu ayuda, pero de momento no me funciona. Mira si introduzco bien los If dentro del código. Yo creo que algo hago mal. Saludos Blas.

Private Sub Comando24_Click()
On Error GoTo Err_Comando24_Click

Dim stDocName As String
Dim stLinkCriteria As String

Campo_Copia = Me.conductor1
Campo_Copia1 = Me.conductor2

stDocName = "FormularioRutas"

stLinkCriteria = "[conductordni]=" & "'" & Me![conductordni] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Forms![FormularioRutas]![conductor1] = Campo_Copia
Forms![FormularioRutas]![conductor2] = Campo_Copia1

if isnull(Forms![FormularioRutas]![conductor1]) then
Forms![FormularioRutas]![conductor1] = Campo_Copia
endif

if isnull (Forms![FormularioRutas]![conductor2] ) then
Forms![FormularioRutas]![conductor2] = Campo_Copia1
endif

Exit_Comando24_Click:
Exit Sub

Err_Comando24_Click:
MsgBox Err.Description
Resume Exit_Comando24_Click
End Sub

Hola 2PL.

Rectifico. He tenido un error al escribir el código en la primera nota.
Corrijo los campos donde se copia, conductor3, conductor4. Perdón te he confundido. Sigo probando

Private Sub Comando24_Click()
On Error GoTo Err_Comando24_Click

Dim stDocName As String
Dim stLinkCriteria As String

Campo_Copia = Me.conductor1
Campo_Copia1 = Me.conductor2

stDocName = "FormularioRutas"

stLinkCriteria = "[conductordni]=" & "'" & Me![conductordni] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Forms![FormularioRutas]![conductor3] = Campo_Copia
Forms![FormularioRutas]![conductor4] = Campo_Copia1

Exit_Comando24_Click:
Exit Sub

Err_Comando24_Click:
MsgBox Err.Description
Resume Exit_Comando24_Click
End Sub

Hola otra vez 2PL.

Solucionado.

He cambiado en el primer If el nombre de conductor1, por conductor3 y
en el segundo If el nombre conductor2 por conductor4.

Todo solucionado, ya funciona. Muchas gracias 2PL.