MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

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

    Mensagem  toyebom em Ter 22 Dez 2015, 00:56

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    renpv
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 12/01/2015

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

    Mensagem  renpv em Ter 22 Dez 2015, 12:11

    Num entendi nada Sad

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Vários campos de um formulário para 2 campos de outro formulário

    Mensagem  toyebom em Ter 22 Dez 2015, 12:59

    é isto
    Anexos
    Nova Imagem de Mapa de Bits.bmp
    Você não tem permissão para fazer download dos arquivos anexados.
    (528 Kb) Baixado 8 vez(es)


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Vários campos de um formulário para 2 campos de outro formulário

    Mensagem  toyebom em Ter 22 Dez 2015, 22:32

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Vários campos de um formulário para 2 campos de outro formulário

    Mensagem  toyebom em Qua 23 Dez 2015, 22:34

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Vários campos de um formulário para 2 campos de outro formulário

    Mensagem  toyebom em Qui 24 Dez 2015, 18:36

    up


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 519
    Registrado : 29/08/2012

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

    Mensagem  clebergyn em Qui 24 Dez 2015, 20:57

    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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Vários campos de um formulário para 2 campos de outro formulário

    Mensagem  toyebom em Qui 24 Dez 2015, 22:09

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 519
    Registrado : 29/08/2012

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

    Mensagem  clebergyn em Sex 25 Dez 2015, 01:26

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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Vários campos de um formulário para 2 campos de outro formulário

    Mensagem  toyebom em Sex 25 Dez 2015, 04:28

    Obrigado funciona cheers


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

      Data/hora atual: Ter 06 Dez 2016, 05:42