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]DCount com 2 criterios

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3868
    Registrado : 06/11/2009

    [Resolvido]DCount com 2 criterios Empty [Resolvido]DCount com 2 criterios

    Mensagem  Assis em 27/1/2016, 15:27

    Boa tarde amigos

    Onde está o erro neste DCount
    A linha vermelha dá erro .... o campo TipoDoc da tabela é texto

    a Linha azul funciona mas não tem o critério tipoDoc = Me.txttipo1

    Private Sub TxtTipo1_AfterUpdate()
    Dim X As Integer
    X = DCount("[IDmes]", "Mes", "[txtData] =#" & Format(Me.TxtData, "dd/mm/yyyy") & "#") And [tipodoc] = " & Me![txtTipo1] & "
    If X = 1 Then
    MsgBox "Já Tem Aberto uma " & Me.txtTipo1 & " nesta Data de " & Format(TxtData, "dd/mm/yyyy") & "." & Chr(13) & "Abra Esse Documento No Menu Principal " & Chr(13) & "Movimentação " & Chr(13) & "Alterar Registo", vbInformation, "Produção"

    Me.txtTipo = Null
    Me.txtTipo1 = Null
    DoCmd.Close acForm, "frmPedidos"
    End If
    End Sub

    Assim funciona mas não tem o critério tipoDoc = Me.txttipo1
    X = DCount("[IDmes]", "Mes", "[txtData] =#" & Format(Me.TxtData, "dd/mm/yyyy") & "#")


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6164
    Registrado : 15/03/2013

    [Resolvido]DCount com 2 criterios Empty Re: [Resolvido]DCount com 2 criterios

    Mensagem  ahteixeira em 27/1/2016, 16:53

    Olá Assis, teste assim:
    Código:
    X = DCount("[IDmes]", "Mes", "[txtData] =#" & Format(Me.TxtData, "dd/mm/yyyy") & "# And [tipodoc] = " & Me![txtTipo1])

    se Me![txtTipo1] for texto, assim:
    Código:
    X = DCount("[IDmes]", "Mes", "[txtData] =#" & Format(Me.TxtData, "dd/mm/yyyy") & "# And [tipodoc] = '" & Me![txtTipo1] & "'")

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3868
    Registrado : 06/11/2009

    [Resolvido]DCount com 2 criterios Empty Re: [Resolvido]DCount com 2 criterios

    Mensagem  Assis em 27/1/2016, 19:39

    Obrigado Amigo

    Perfeito


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6164
    Registrado : 15/03/2013

    [Resolvido]DCount com 2 criterios Empty Re: [Resolvido]DCount com 2 criterios

    Mensagem  ahteixeira em 28/1/2016, 08:24

    Olá Assis, obrigado pelo retorno.
    Abraço

    Conteúdo patrocinado

    [Resolvido]DCount com 2 criterios Empty Re: [Resolvido]DCount com 2 criterios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 02:04