Telefonino.net network
 
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. NEI PREFERITI .:: | RSS Forum | RSS News | NEWS web | NEWS software |
| PUBBLICITA' | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | CERCA nel FORUM » |

Torna indietro   WinTricks Forum > Software > Office suite

Notices

Rispondi
 
Strumenti discussione
Vecchio 31-05-2008, 11.58.50   #1
crispo5
Newbie
 
Registrato: 31-05-2008
Messaggi: 1
crispo5 promette bene
Problema Access

Buongiorno a tutti mi sono appane registrato ed ho un problema di questo tipo:
ho una maschera all'interno della quale devo inserire una data (data prossimo contattoTextBox) e deve essere obbligatoriamente inserita, deve essere da oggi in poi fino ad un massimo di 3 mesi da oggi dunque oggi è il 31 maggio non deve essere oltre il 31 agosto.
questo controllo lo devo inserire sul tasto chiudi da me generato nella mashera come posso fare?
Grazie
crispo5 non è collegato   Rispondi citando
Vecchio 03-06-2008, 12.16.56   #2
miciomao
Hero Member
 
L'avatar di miciomao
 
Registrato: 14-01-2005
Loc.: Rome, Italy
Messaggi: 1.132
miciomao promette bene
supponiamo che il campo della data si chiami CampoData
e quello di chiusura maschera Comando0

sull'evento click del Comando0 inserirai

Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Dim Confronto As Date
If Len(Nz(Trim(Me.CampoData))) < 1 Then
MsgBox "ATTENZIONE: Il campo data è vuoto, correggere l'errore!"
Exit Sub
End If
If Not (IsDate(Me.CampoData)) Then
MsgBox "ATTENZIONE: La data inserita non è una data valida, correggere l'errore!"
End If
Confronto = DateAdd("m", 3, Date)
If Me.CampoData > Confronto Then
MsgBox "ATTENZIONE: La data inserita ha un lasso di tempo superiore ai 3 mesi, correggere la data!"
End If
If Me.CampoData < Date Then
MsgBox "ATTENZIONE: La data inserita è antecedente alla data odierna, correggere la data!"
End If
DoCmd Quit

Exit_Comando0_Click:
Exit Sub


Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click

End Sub
___________________________________

♫ m u s i c ♪ i s ♫ t h e ♪ a n s w e r ♫
"Il più piccolo dei piccoli felini è già lui stesso un vero capolavoro". (Leonardo da Vinci)
Namasté!
miciomao non è collegato   Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is ON
Gli smilies sono ON
[IMG] è ON
Il codice HTML è OFF

Vai al forum

Discussioni simili
Discussione Autore discussione Forum Risposte Ultimo messaggio
problema con access 2003 procione Office suite 3 25-03-2008 10.50.44
Problema con i segnali acustici shadowDK Windows 7/Vista/XP/ 2003 3 21-03-2008 11.01.01
Problema microsoft access deniro Office suite 10 26-08-2004 16.45.13
Problema ACCESS 97 Sauzer Office suite 1 24-08-2004 11.23.16
F1 per avvio di windows filll Hardware e Overclock 22 23-06-2004 17.15.36

Orario GMT +2. Ora sono le: 20.57.27.


E' vietata la riproduzione, anche solo in parte, di contenuti e grafica.
Copyright © 1999-2017 Edizioni Master S.p.A. p.iva: 02105820787 • Tutti i diritti sono riservati
L'editore NON si assume nessuna responsabilità dei contenuti pubblicati sul forum in quanto redatti direttamente dagli utenti.
Questi ultimi sono responsabili dei contenuti da loro riportati nelle discussioni del forum
Powered by vBulletin - 2010 Copyright © Jelsoft Enterprises Limited.