Bom Dia Amigos!!!

A duvida é a seguinte criei um tabela chamada parametros usando algumas funções do banco e personalisando para cada cliente e nisso criei uma funcao para fazer essas rotinas é mais ou menos isso:

Function Para()

Dim db As DAO.Database
Dim tabe As DAO.Recordset

Set db = CurrentDb()
Set tabe = db.OpenRecordset("Parametros", dbOpenDynaset)

Do While Not tabe.EOF

tabe.MoveFirst

If tabe("Funcoes") = "Avisos de Duplicatas Vencidas" And tabe("Parametro") = "Ativado" Then
Call Vencidas
ElseIf tabe("Funcoes") = "Avisos de Vendas no Varejo" And tabe("Parametro") = "Ativado" Then

ElseIf tabe("Funcoes") = "Bloquear Tempo de Uso" And tabe("Parametro") = "Ativado" Then

Call Expirar
Call VerificaTempodeUso

Else

Exit Function

DoCmd.OpenForm "FrmLogon"

End If

Loop

End Function

só que não acontece nada onde estou errando alguem pode me ajudar e o quero que funcao rode nos campos da tabela e execute essas funcoes

1) Desloque tabe.MoveFirst para fora do loop

...
tabe.MoveFirst
Do While Not tabe.EOF
...

2) Acrescente acima do loop >> tabe.moveNext

...
tabe.MoveNext
loop


Sucesso
...

Oi Amigo Avelino eu usei o código e não esta acontecendo nada para me expressar melhor o exemplo:

Function Para()

Dim db As DAO.Database
Dim tabe As DAO.Recordset

Set db = CurrentDb()
Set tabe = db.OpenRecordset("Parametros")

tabe.MoveFirst

Do While Not tabe.EOF


'If tabe("Funcoes") = "Avisos de Duplicatas Vencidas" And tabe("Parametro") = "Ativado" Then
'Call Vencidas
'ElseIf tabe("Funcoes") = "Avisos de Vendas no Varejo" And tabe("Parametro") = "Ativado" Then

If tabe("Funcoes") = "Bloquear Tempo de Uso" And tabe("Parametro") = "Ativado" Then

Call Expirar
Call VerificaTempodeUso

Else

Exit Function


End If

tabe.MoveNext
Loop

End Function

por exemplo a funcao call expirar serve para criar uma data para estabelecer o tempo de uso e nesse caso ela insere a data na tabela só que não está fazendo isso vc saberia me responder o que pode ser?

Verifique a funçaõ expirar

Meu amigo rogerio o problema não está na funcao expirar porque se eu colocar ela sozinha ela funciona sem problemas.

quote:

If tabe("Funcoes") = "Bloquear Tempo de Uso" And tabe("Parametro") = "Ativado" Then

Como voce esta usando string, verifque se o que esta salvo na tabela correspode exatamente com a string que voce esta comparando (atenção ao espaços em branco).

Oi Rogerio realmente era os espaços que não estava fazendo o codigo funcionar eu modifiquei e deu certo muito obrigado qualquer coisa que precisar meu email no messenger atno@hotmail.com

Sortes pra vc amigo!!