EXIBICAO DE MENSAGENS
OLà PESSOAL ESTOU COM UM PROBLEMA AKI E NAUM CONSIGO VER A SOLUÇÃO, VOU TENTAR SER MAIS DIRETO POSSIVEL, SEGUINTE, ..
EU PRECISO CRIAR UM PROGRAMA QUE EXECUTE A CADA DIA QUE PASSE UMA NOVA MENSAGEM, POR EXEMPLO:
DIA 01/04/11 O PROGRAMA DEVE ME MOSTRAR UMA MENSAGEM, CERTO?, NO DIA 02/04/11 O PROGRAMA DEVE ME MOSTRAR UMA OUTRA MENSAGEM ENTENDEM???? TUDO AUTOMATICO, SEM TER QUE DIGITAR NADA, APENAS ABRIR O PROGRAMA E ELE MOSTRAR AS TAIS MENSAGENS. O PROBLEMA é QUE EU NÃO SEI COMO FAZER PARA MEU PROGRAMA ENXERGAR O CALENDARIO, NAUM SEI COMO FAZER ESTE é O PROBLEMA, EU PRECISAVA DE UM EXEMPLO , SE ALGUEM PUDER ME AJUDAR,
AGRADEÇO.
ABRASSS A TODOS.
LEO.DOMBROSKY@GLOBO.COM
EU PRECISO CRIAR UM PROGRAMA QUE EXECUTE A CADA DIA QUE PASSE UMA NOVA MENSAGEM, POR EXEMPLO:
DIA 01/04/11 O PROGRAMA DEVE ME MOSTRAR UMA MENSAGEM, CERTO?, NO DIA 02/04/11 O PROGRAMA DEVE ME MOSTRAR UMA OUTRA MENSAGEM ENTENDEM???? TUDO AUTOMATICO, SEM TER QUE DIGITAR NADA, APENAS ABRIR O PROGRAMA E ELE MOSTRAR AS TAIS MENSAGENS. O PROBLEMA é QUE EU NÃO SEI COMO FAZER PARA MEU PROGRAMA ENXERGAR O CALENDARIO, NAUM SEI COMO FAZER ESTE é O PROBLEMA, EU PRECISAVA DE UM EXEMPLO , SE ALGUEM PUDER ME AJUDAR,
AGRADEÇO.
ABRASSS A TODOS.
LEO.DOMBROSKY@GLOBO.COM
Em que momento você irá cadastrar as mensagens?
VÊ SE O CÓDIGO ABAIXO AJUDA:
Private Sub Command1_Click()
Dim intDia As Integer
Dim intMes As Integer
Dim strData As String
[ô]
intDia = Day(Date)
intMes = Month(Date)
strData = Format(Date, [Ô]dd/mm/yyyy[Ô])
[ô]
MsgBox [Ô]DIA: [Ô] & intDia & vbCr & _
[Ô]MES: [Ô] & intMes & vbCr & _
[Ô]DATA: [Ô] & strData
End Sub
Private Sub Command1_Click()
Dim intDia As Integer
Dim intMes As Integer
Dim strData As String
[ô]
intDia = Day(Date)
intMes = Month(Date)
strData = Format(Date, [Ô]dd/mm/yyyy[Ô])
[ô]
MsgBox [Ô]DIA: [Ô] & intDia & vbCr & _
[Ô]MES: [Ô] & intMes & vbCr & _
[Ô]DATA: [Ô] & strData
End Sub
SImples.
Primeiro crie uma tabela de mensagens, por ex, com os campos: ID, DESCRICAO, DATA_AVISO.
No Load do seu form principal, faça um SELECT na tabela de mensagens cadastradas buscando mensagens que devem aparecer no dia atual:
Dim RsMsg As New ADODB.Recordset
RsMsg.Open [Ô]SELECT * FROM MENSAGENS WHERE DATA_AVISO = [ô][Ô] & Format$(Date, [Ô]dd/mm/yyyy[Ô]) & [Ô][ô][Ô], Conexao, adOpenKeySet, AdLockReadOnly
While Not RsMsg.EOF
MsgBox [Ô]Mensagem: [Ô] & vbCrlf & RsMsg!DESCRICAO, vbInformation, [Ô]Mensagem[Ô]
RsMsg.MoveNext
Wend
RsMsg.Close: Set RsMsg = Nothing
Primeiro crie uma tabela de mensagens, por ex, com os campos: ID, DESCRICAO, DATA_AVISO.
No Load do seu form principal, faça um SELECT na tabela de mensagens cadastradas buscando mensagens que devem aparecer no dia atual:
Dim RsMsg As New ADODB.Recordset
RsMsg.Open [Ô]SELECT * FROM MENSAGENS WHERE DATA_AVISO = [ô][Ô] & Format$(Date, [Ô]dd/mm/yyyy[Ô]) & [Ô][ô][Ô], Conexao, adOpenKeySet, AdLockReadOnly
While Not RsMsg.EOF
MsgBox [Ô]Mensagem: [Ô] & vbCrlf & RsMsg!DESCRICAO, vbInformation, [Ô]Mensagem[Ô]
RsMsg.MoveNext
Wend
RsMsg.Close: Set RsMsg = Nothing
Tópico encerrado , respostas não são mais permitidas