[Resolvido]Vários campos de um formulário para 2 campos de outro formulário

como posso aplicar um código de vários campos de um formulário para dois de outro tipo isto:

Código:

If Not Me.CaixaCombinação61 Or Me.CaixaCombinação67 Or Me.CaixaCombinação69 Or Me.CaixaCombinação71 = "Carta de Condução" Or "Documento Único" Or "Livrete" Or "Titulo de Registo de Propriedade" Or "Auto de apreensão/Guia de substituição de documentos"  Then
Forms![Oficio Envio IMTT]!Verificação736] = True
Forms![Oficio Envio IMTT]![valores furtados] = (CaixaCombinação61 & " " & Texto64 & "," & CaixaCombinação67 & " " & Texto68 & "," & CaixaCombinação69 & " " &  Texto70 & "," & CaixaCombinação71 & " " & Texto72)
End If

O código todo que tenho é:

Código:

Private Sub OficioRegistado_AfterUpdate()
Dim sql As String
Dim LResponse As Integer
If Me.OficioRegistado <> "" Then
LResponse = MsgBox("Emissão de Oficio" _
    & Chr(13) & Chr(13) & "Emitir oficio: " & UCase(OficioRegistado) & " agora?" _
    & Chr(13) & Chr(13) & "Obs: Você será redirecionado para o respetivo oficio." _
    & Chr(13) & Chr(13) & "Obs: Se já emitiu prima NÃO." _
                              , vbYesNo, "Oficio Remessa")
                              If LResponse = vbYes Then
                              Me.Texto31 = Date
             DoCmd.OpenForm "Oficio Envio IMTT", acNormal, , , acFormAdd
             Forms![Oficio Envio IMTT]!Texto612 = (OficioRegistado)
             Forms![Oficio Envio IMTT]!Rótulo624 = (n21)
             Forms![Oficio Envio IMTT]!Texto741 = (Texto741)
             Forms![Oficio Envio IMTT]![Caixa de combinação700] = (Texto23)
             'carta
             If Me.CaixaCombinação61 = "Carta de Condução" Then
             Forms![Oficio Envio IMTT]![Verificação698] = True
             End If
             If Me.CaixaCombinação67 = "Carta de Condução" Then
             Forms![Oficio Envio IMTT]![Verificação698] = True
             End If
             If Me.CaixaCombinação69 = "Carta de Condução" Then
             Forms![Oficio Envio IMTT]![Verificação698] = True
             End If
             If Me.CaixaCombinação71 = "Carta de Condução" Then
             Forms![Oficio Envio IMTT]![Verificação698] = True
             End If
             'documento unico
             If Me.CaixaCombinação61 = "Documento Único" Then
             Forms![Oficio Envio IMTT]![Verificação712] = True
             Forms![Oficio Envio IMTT]![Texto715] = (Texto64)
             Forms![Oficio Envio IMTT]![Caixa de combinação717] = (Ctl4)
             End If
             If Me.CaixaCombinação67 = "Documento Único" Then
             Forms![Oficio Envio IMTT]![Verificação712] = True
             Forms![Oficio Envio IMTT]![Texto715] = (Texto68)
             Forms![Oficio Envio IMTT]![Caixa de combinação717] = (Ctl4)
             End If
             If Me.CaixaCombinação69 = "Documento Único" Then
             Forms![Oficio Envio IMTT]![Verificação712] = True
             Forms![Oficio Envio IMTT]![Texto715] = (Texto70)
             Forms![Oficio Envio IMTT]![Caixa de combinação717] = (Ctl4)
             End If
             If Me.CaixaCombinação71 = "Documento Único" Then
             Forms![Oficio Envio IMTT]![Verificação712] = True
             Forms![Oficio Envio IMTT]![Texto715] = (Texto72)
             Forms![Oficio Envio IMTT]![Caixa de combinação717] = (Ctl4)
             End If
             'livrete
             If Me.CaixaCombinação61 = "Livrete" Then
             Forms![Oficio Envio IMTT]![Verificação718] = True
             Forms![Oficio Envio IMTT]![Caixa de combinação721] = (Ctl4)
             End If
             If Me.CaixaCombinação67 = "Livrete" Then
             Forms![Oficio Envio IMTT]![Verificação718] = True
             Forms![Oficio Envio IMTT]![Caixa de combinação721] = (Ctl4)
             End If
             If Me.CaixaCombinação69 = "Livrete" Then
             Forms![Oficio Envio IMTT]![Verificação718] = True
             Forms![Oficio Envio IMTT]![Caixa de combinação721] = (Ctl4)
             End If
             If Me.CaixaCombinação71 = "Livrete" Then
             Forms![Oficio Envio IMTT]![Verificação718] = True
             Forms![Oficio Envio IMTT]![Caixa de combinação721] = (Ctl4)
             End If
             'registo propriedade
             If Me.CaixaCombinação61 = "Titulo de Registo de Propriedade" Then
             Forms![Oficio Envio IMTT]![Verificação722] = True
             Forms![Oficio Envio IMTT]![Caixa de combinação725] = (Ctl4)
             End If
             If Me.CaixaCombinação67 = "Titulo de Registo de Propriedade" Then
             Forms![Oficio Envio IMTT]![Verificação722] = True
             Forms![Oficio Envio IMTT]![Caixa de combinação725] = (Ctl4)
             End If
             If Me.CaixaCombinação69 = "Titulo de Registo de Propriedade" Then
             Forms![Oficio Envio IMTT]![Verificação722] = True
             Forms![Oficio Envio IMTT]![Caixa de combinação725] = (Ctl4)
             End If
             If Me.CaixaCombinação71 = "Titulo de Registo de Propriedade" Then
             Forms![Oficio Envio IMTT]![Verificação722] = True
             Forms![Oficio Envio IMTT]![Caixa de combinação725] = (Ctl4)
             End If
             'Auto de apreensão/Guia de substituição de documentos
             If Me.CaixaCombinação61 = "Auto de apreensão/Guia de substituição de documentos" Then
             Forms![Oficio Envio IMTT]![Verificação762] = True
             Forms![Oficio Envio IMTT]![CaixaCombinação765] = (Texto64)
             End If
             If Me.CaixaCombinação67 = "Auto de apreensão/Guia de substituição de documentos" Then
             Forms![Oficio Envio IMTT]![Verificação762] = True
             Forms![Oficio Envio IMTT]![CaixaCombinação765] = (Texto68)
             End If
             If Me.CaixaCombinação69 = "Auto de apreensão/Guia de substituição de documentos" Then
             Forms![Oficio Envio IMTT]![Verificação762] = True
             Forms![Oficio Envio IMTT]![CaixaCombinação765] = (Texto70)
             End If
             If Me.CaixaCombinação71 = "Auto de apreensão/Guia de substituição de documentos" Then
             Forms![Oficio Envio IMTT]![Verificação762] = True
             Forms![Oficio Envio IMTT]![CaixaCombinação765] = (Texto72)
             End If
        Else
                Me.Texto31.SetFocus
End If
End If
End Sub

Queria colocar antes de

Código:

       Else
                Me.Texto31.SetFocus
End If
End If
End Sub

Num entendi nada

é isto

UP

tentando explicar de outra forma

If Me.CaixaCombinação61 <> "Carta de Condução" Or "Documento Único" Or "Livrete" Or "Titulo de Registo de Propriedade" Or "Auto de apreensão/Guia de substituição de documentos" Then
Forms![Oficio Envio IMTT]![Verificação736] = True
Forms![Oficio Envio IMTT]![valores furtados] = (CaixaCombinação61) & " " & (Texto64) & ", "
End If

up

para cada "OR" ou "AND" voce tem que mencionar o campo requerido mais o OR e a condição

veja:
If Me.CaixaCombinação61 <> "Carta de Condução" OR Me.CaixaCombinação61 <> "Documento Único" OR Me.CaixaCombinação61 <> "Livrete"
OR Me.CaixaCombinação61 <> "Titulo de Registo de Propriedade" OR Me.CaixaCombinação61 <> "Auto de apreensão/Guia de substituição de documentos" then
Forms![Oficio Envio IMTT]![Verificação736] = True
Forms![Oficio Envio IMTT]![valores furtados] = (CaixaCombinação61) & " " & (Texto64) & ", "
End If

Funciona mas tem um problema se a [CaixaCombinação61] tiver um desses critérios "Carta de Condução" "Documento Único" "Livrete" "Titulo de Registo de Propriedade" "Auto de apreensão/Guia de substituição de documentos" continua a preencher os campos [Verificação736] e [valores furtados].

O que queria era se na [CaixaCombinação61] tivesse um dos textos do código não preenchesse os campos [Verificação736] e [valores furtados] mas se tivesse outro por exemplo "certificado de seguro" então sim preenchia os campos [Verificação736] e [valores furtados].

Tentei

Else
End If

e

Else
Resume next
End If

mas não resultou

troque o "OR" pelo "AND" que vai dar certo então

Obrigado funciona