[Resolvido]Regra de Validação Global para vários formulários

Se um banco de dados possui vários formulários, como posso fazer um código para regra
de validação para campos em vários formulários?
Por exemplo, todo mês tenho que fazer formulário por formulário, ir no campo data e na regra de validação colocar
que aceite lançamentos entre datas    >=#01/07/2018# E <=#31/07/2018#  
Ainda se possível, se digitar fora destas datas, não aceite o lançamento e tenha uma mensagem avisando
que está fora das datas estabelecidas.
Desde já agradeço a ajuda de todos!

Olá Carlos,

Essa regra é sempre em função do mês corrente (sistema)?
A partir de 01 de agosto vai ser:

>=#01/08/2018# E <=#31/08/2018

Ou pode variar ?

Abraço

Obrigado pelo retorno ahteixeira!
Poderá ser do mês corrente do sistema, mas eu gostaria de não precisar todo mês atualizar as regras nos campos de vários formulários ou tabelas!
Abraço

Olá Carlos Cruz,

Veja se é o pretendido, código utilizado:

Código:


Private Sub cmdValidar_Click()
    'ahteixeira 2018 para maximoaccess
    'requer função SetFieldValidation
    
    If IsDate(Me.txtDataInicial) And IsDate(Me.txtDataFinal) Then
        Dim strDatas As String
        strDatas = ">=#" & CDate(Me.txtDataInicial) & "# AND <=#" & CDate(Me.txtDataFinal) & "#"
        Call SetFieldValidation("tbl_Recibos", "DataRecibo", strDatas, "A data permitida deve ser de " & Me.txtDataInicial & " até " & Me.txtDataFinal)
    Else
        MsgBox "Deve definir duas datas.", vbInformation, ""
    End If
End Sub

Function SetFieldValidation(strTblName As String, strFldName As String, strValidRule As String, strValidText As String) As Integer
'    'ahteixeira 2018 para maximoaccess
    
    Dim dbs As Database, tdf As TableDef, fld As Field

    Set dbs = CurrentDb
    Set tdf = dbs.TableDefs(strTblName)
    Set fld = tdf.Fields(strFldName)
    
    fld.ValidationRule = strValidRule
    fld.ValidationText = strValidText
    
    Set fld = Nothing
    Set tdf = Nothing
    Set dbs = Nothing
    
    MsgBox "Datas definidas como regra de validação.", vbInformation, ""
End Function

Abraço

Olá ahteixeira.
Encontrei um problema ! Está enviando para tabela tbl_Recibos no campo DataRecibo na regra de validação formato:
data inicial mm/dd/aaaa e para data final dd/mm/aaaa.
Já coloquei formato dd.mm.aaaa nas tabelas, nos formulários e não resolve.
No código e função que voce criou eu não localizei onde alterar este detalhe.
Gostaria que em todos os campos fique dd.mm.aaaa.

Demais funcionamentos do código está perfeito, atende exatamente o que preciso.

Desde já agradeço se puder corrigir este detalhe, muito obrigado!

Abraço
Carlos

Olá Carlos Cruz,

Obrigado pelo retorno, fico feliz pela solução ser o que pretende!

Quanto à questão acho que está relacionado com a passagem da data.
O MSAccess em certos casos é muito "patriota", devemos passar a data à "Americana", veja tópico abaixo outro caso:
https://www.maximoaccess.com/t23702-resolvidoformato-de-data-troca-dia-por-mes

Onde tem:

Código:

strDatas = ">=#" & CDate(Me.txtDataInicial) & "# AND <=#" & CDate(Me.txtDataFinal) & "#"

altere por:

Código:

strDatas = ">=#" & Format(CDate(Me.txtDataInicial), "mm/dd/yyyy") & "# AND <=#" & Format(CDate(Me.txtDataFinal), "mm/dd/yyyy") & "#"

Abraço

Amigo ahteixeira !
Muito, mas muito obrigado mesmo, funcionou perfeitamente.
Também agradeço sua rapidez nas respostas, com clareza e objetividade. Parabéns pelos conhecimentos e experiências que você tem e por repassar para outras pessoas, nos ensinando com muita dedicação e paciência!
Também agradeço a todos do fórum Máximo Access, por nos dar este meio de comunicação mundial, de excelente qualidade e facilidade!
Coloco-me a disposição de todos naquilo que tiver ao meu alcance e poder ajudá-los !

Um grande abraço a todos !

Olá Carlos Cruz,

Obrigado pelo retorno, são palavras bastante gratificantes!
A razão do fórum MaximoAccess é a inter-ajuda e partilha do conhecimento.

Abraço

Amigo ahteixeira, continuando com meus estudos, outras necessidades apareceram, tentei solucionar, mas não consegui ! Se puder novamente me ajudar, desde já agradeço !


Nas linhas If IsDate + strDatas + Call  estão digitadas para campos formato datas, o que muda na função para utilizar campos com formato número ?  Nova tab com campo numérico a ser utilizada    "tbl2_Pedidos",     "NrRecibo

Código:

strDatas = ">=#" & Format(CDate(Me.txtDataInicial), "mm/dd/yyyy") & "# AND <=#" & Format(CDate(Me.txtDataFinal), "mm/dd/yyyy") & "#"

Call SetFieldValidation("tbl_Recibos", "DataRecibo", strDatas, "A data permitida deve ser de " & Me.txtDataInicial & " até " & Me.txtDataFinal)

Muito Obrigado.
Abraço
Carlos

Olá Carlos Cruz,

Não sei se compreendi bem a questão.
Mas se quer adicionar a mesma regra de validação para o campo DataPedido da tabela tbl2_Pedidos, adicione mais um "call", ficando assim:

Código:

        strDatas = ">=#" & Format(CDate(Me.txtDataInicial), "mm/dd/yyyy") & "# AND <=#" & Format(CDate(Me.txtDataFinal), "mm/dd/yyyy") & "#"

    Call SetFieldValidation("tbl_Recibos", "DataRecibo", strDatas, "A data permitida deve ser de " & Me.txtDataInicial & " até " & Me.txtDataFinal)
    Call SetFieldValidation("tbl2_Pedidos", "DataPedido", strDatas, "A data permitida deve ser de " & Me.txtDataInicial & " até " & Me.txtDataFinal)

Se não for isso, informe melhor.
Abraço

Na sua função está funcionando perfeitamente para campos com formato datas dd/mm/aaaa.
Gostaria de ter a mesma função, porém para campos da tabela com formato numero!
Por isso criei outra tabela com campo formato número "tbl2_Pedidos", "NrRecibo

Se não entendeu, me perdoe. Me informe, tentarei explicar melhor com exemplo mais prático.

Muito obrigado, abraço
Carlos

Olá,

Agora entendi, estou no celular mas vou descrever.

Ajuste no form para numero inicial e numero final
Crie no código a strNumero
Na strNumero será sem o cardinal, format e conversão
Depois mais um call.. Resperivo campo, tabela e a condição strNumero

Abraço

Olá amigo Teixeira, desculpe incomodá-lo novamente.
Já ajustei nos for e tab os campos envolvidos no código para formato número.
Coloquei os códigos, mas estou fazendo algo errado e não sei exatamente onde.
Anexei o banco de dados, se você puder verificar os códigos e me ajudar, desde já agradeço.

Obrigado
Carlos

Obrigado Alexandre Fim. Irei verificar seu exemplo.
ahteixeira já me ajudou fazendo um código para limitar dd/mm/aaaa que era exatamente o que eu precisava.
Agora preciso alterar o código para limitar número, praticamente é o mesmo código, muito parecido, que eu não consegui alterá-lo.
Acredito que ahteixeira me ajudará novamente dando retorno para mim sobre como alterar o código.
Eu também darei retorno para voce sobre o código que voce postou.
Desde já agradeço
Abraço
Carlos

ahteixeira, tentei usar suas dicas: abaixo:
Ajuste no form para numero inicial e numero final
Crie no código a strNumero
Na strNumero será sem o cardinal, format e conversão
Depois mais um call.. Resperivo campo, tabela e a condição strNumero

Mas tenho dificuldades com o código, está o b.d. na postagem da mensagem 13, falta somente ajustar o código.

Obrigado

Olá a todos,

Alexandre Fim, parabéns, outra forma de obter o mesmo resultado, como diz o nosso grande JPaulo "existe muitas maneiras de fazer Nestun".

Carlos Cruz, mostrei o caminho das pedras, seria aplicar a mesma técnica, veja como ficou:

Código:

Private Sub cmdValidar_Click()
    'ahteixeira 2018 para maximoaccess
    'requer função SetFieldValidation
    
    If IsDate(Me.txtDataInicial) And IsDate(Me.txtDataFinal) Then
        Dim strDatas As String
        strDatas = ">=#" & Format(CDate(Me.txtDataInicial), "mm/dd/yyyy") & "# AND <=#" & Format(CDate(Me.txtDataFinal), "mm/dd/yyyy") & "#"
        Call SetFieldValidation("tbl_Recibos", "DataRecibo", strDatas, "A data permitida deve ser de " & Me.txtDataInicial & " até " & Me.txtDataFinal)
    Else
        MsgBox "Deve definir duas datas.", vbInformation, ""
    End If
End Sub

Private Sub cmdValidarNr_Click()
    If IsNumeric(Me.txtNrInicial) And IsNumeric(Me.txtNrFinal) Then
        Dim strRegra As String
        strRegra = ">=" & Me.txtNrInicial & " AND <=" & Me.txtNrFinal
        Call SetFieldValidation("tbl_Recibos", "NrRecibo", strRegra, "Só permite números de " & Me.txtNrInicial & " até " & Me.txtNrFinal)
    Else
        MsgBox "Deve definir dois números.", vbInformation, ""
    End If

End Sub

Function SetFieldValidation(strTblName As String, strFldName As String, strValidRule As String, strValidText As String) As Integer
'    'ahteixeira 2018 para maximoaccess
    
    Dim dbs As Database, tdf As TableDef, fld As Field

    Set dbs = CurrentDb
    Set tdf = dbs.TableDefs(strTblName)
    Set fld = tdf.Fields(strFldName)
    
    fld.ValidationRule = strValidRule
    fld.ValidationText = strValidText
    
    Set fld = Nothing
    Set tdf = Nothing
    Set dbs = Nothing
    
    MsgBox "Operação concluída!", vbInformation, ""
End Function


Abraço a todos

Olá Alexandre,

Obrigado pelas palavras, mas este fórum é uma grande "família" de inter ajuda e partilha de conhecimento!

Ficamos aguardar o retorno do colega Carlos Cruz.

Amigos Ahteixeira & Alexandre Fim, vocês superaram, foram além do que eu precisava, dedicaram tempo, respeito e muita paciência.
Obrigado ao fórum e a vocês por trocar conhecimentos e experiências !
Coloco-me a disposição de todos no que eu puder ajudar !

Abraço a todos !
Carlos Cruz