MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    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
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    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 : 602
    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
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    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 : 602
    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
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    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: Dom 25 Jun 2017, 09:43