ANIVERSARIANTES
ISSO MESMO TECLA TODO ANO O SISTEMA VAI MOSTRA A MENSAGEM DO MESMO ANIVERSARIANTE, BASEADO EM SUA LÓGICA VOCÊ PODERIA MIM AJUDA COM UM EXEMPLO.
AGRADEÇO.
AGRADEÇO.
Já estava fazendo o que o Tecla tinha postado.
Cria uma tabela AVISOS com os campos AVI_CODIGO, IDFUNCIONARIO, AVI_STATUS e AVI_ANO
E faça assim:
SQL = [Ô]SELECT F.NOME, F.DATANASC[Ô]
SQL = SQL & [Ô] FROM TBLCADFUN F, AVISOS A[Ô]
SQL = SQL & [Ô] WHERE SUBSTR(F.DATANASC, 1 5) = [ô][Ô] & Day(Now) & [Ô]/[Ô] & Month(Now) & [Ô][ô] [Ô]
SQL = SQL & [Ô] AND F.IDFUNCIONARIO = [Ô] & ID_FUNC & [Ô][Ô]
SQL = SQL & [Ô] AND F.STATUS = [ô]ATIVO[ô] [Ô]
SQL = SQL & [Ô] F.IDFUNCIONARIO = A.IDFUNCIONARIO[Ô]
SQL = SQL & [Ô] AND A.AVi_STATUS = [ô]S[ô][Ô]
SQL = SQL & [Ô] AND A.AVi_ANO = [ô][Ô] & Year(Now) & [Ô][ô][Ô]
Rs.Open SQL, Con
If Rs.RecordCount = 0 Then
DirectShow_Load_Media App.Path & [Ô]\Sons\Parabéns.wav[Ô]
DirectShow_Volume 100
DirectShow_Balance 0
DirectShow_Speed 100
DirectShow_Set_Position 0, 0, 0, 0
SQL = [Ô]INSERT INTO AVISOS(AVI_CODIGO, IDFUNCIONARIO, AVI_STATUS, AVI_ANO)[Ô]
SQL = SQL & [Ô] VALUES(COD_AVISO,[Ô] & ID_FUNC & [Ô], [ô]N[ô], [ô][Ô] & Year(Now) & [Ô][ô][Ô])
Con.Execute(SQL)
Msgbox [Ô]Parabéns [Ô] & Rs([Ô]NOME[Ô]) & [Ô]!!! Muitas felicidades!!!![Ô], vbInformation, [Ô]Aviso - Feliz Aniversário[Ô]
End IF
Vai buscar o ID, o STATUS e o ANO do funcionário na tabela de avisos, se não tiver toca a música e faz um INSERT na tabela de AVISOS
Bom, não testei, mas tenta dessa forma.
Cria uma tabela AVISOS com os campos AVI_CODIGO, IDFUNCIONARIO, AVI_STATUS e AVI_ANO
E faça assim:
SQL = [Ô]SELECT F.NOME, F.DATANASC[Ô]
SQL = SQL & [Ô] FROM TBLCADFUN F, AVISOS A[Ô]
SQL = SQL & [Ô] WHERE SUBSTR(F.DATANASC, 1 5) = [ô][Ô] & Day(Now) & [Ô]/[Ô] & Month(Now) & [Ô][ô] [Ô]
SQL = SQL & [Ô] AND F.IDFUNCIONARIO = [Ô] & ID_FUNC & [Ô][Ô]
SQL = SQL & [Ô] AND F.STATUS = [ô]ATIVO[ô] [Ô]
SQL = SQL & [Ô] F.IDFUNCIONARIO = A.IDFUNCIONARIO[Ô]
SQL = SQL & [Ô] AND A.AVi_STATUS = [ô]S[ô][Ô]
SQL = SQL & [Ô] AND A.AVi_ANO = [ô][Ô] & Year(Now) & [Ô][ô][Ô]
Rs.Open SQL, Con
If Rs.RecordCount = 0 Then
DirectShow_Load_Media App.Path & [Ô]\Sons\Parabéns.wav[Ô]
DirectShow_Volume 100
DirectShow_Balance 0
DirectShow_Speed 100
DirectShow_Set_Position 0, 0, 0, 0
SQL = [Ô]INSERT INTO AVISOS(AVI_CODIGO, IDFUNCIONARIO, AVI_STATUS, AVI_ANO)[Ô]
SQL = SQL & [Ô] VALUES(COD_AVISO,[Ô] & ID_FUNC & [Ô], [ô]N[ô], [ô][Ô] & Year(Now) & [Ô][ô][Ô])
Con.Execute(SQL)
Msgbox [Ô]Parabéns [Ô] & Rs([Ô]NOME[Ô]) & [Ô]!!! Muitas felicidades!!!![Ô], vbInformation, [Ô]Aviso - Feliz Aniversário[Ô]
End IF
Vai buscar o ID, o STATUS e o ANO do funcionário na tabela de avisos, se não tiver toca a música e faz um INSERT na tabela de AVISOS
Bom, não testei, mas tenta dessa forma.
OLÃ MSMJUDAS, TINHA COMO FAZER UM EXEMPLO PRA MIM. FICARIA GRATO
1) Grava um unico registro com a data que avisou os aniversários (em uma tabela de parametro ou talves cria um campo por usuario).
2) Quando acessar o projeto, o programa vai comparar se a data dos ultimos aniversariantes exibidos for igual a data do sistema
se for igual, não mostra os aniversariantes
se for diferente, mostra os aniversariantes e atualiza a data na tabela
2) Quando acessar o projeto, o programa vai comparar se a data dos ultimos aniversariantes exibidos for igual a data do sistema
se for igual, não mostra os aniversariantes
se for diferente, mostra os aniversariantes e atualiza a data na tabela
o exemplo que dei funciona sim, apenas troque o me capion pelo nome do programa
SaveSetting [Ô]nome_do_programa[Ô] , [Ô]Aniversariante[Ô], CStr$(Format(Date,[Ô]yyyymmdd[Ô])), [Ô]Informado[Ô]
para o getsetting a mesma alteração, e funcionará em todas máquinas em que hover o programa
SaveSetting [Ô]nome_do_programa[Ô] , [Ô]Aniversariante[Ô], CStr$(Format(Date,[Ô]yyyymmdd[Ô])), [Ô]Informado[Ô]
para o getsetting a mesma alteração, e funcionará em todas máquinas em que hover o programa
OI MARCELO-TREZE, TROQUEI MAIS CONTINUA DANDO ERRO NA MESMA LINHA CADFUN[txt-color=#0000f0] [/txt-color]
desculpe lnha cadfun?
que linha é esta, mostre mostre a linha em que aparece o erro
que linha é esta, mostre mostre a linha em que aparece o erro
CADFIN E NOME DO PROGRAMA.
Tópico encerrado , respostas não são mais permitidas