> Tous les forums > Forum Autres langages
 pb de fonction avec controle de date
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
celia
  Posté le 27/05/2004 @ 16:13 
Aller en bas de la page 
Petit astucien
bonjour je ve créer une fonction qui prend un champ dans une table et qui controle si la date du jour + 15 jours est la même si c le cas il insère une ligne dans la table T_Alertes puis qui ensuite ouvrira le formulaire frmlistealertes je suis bloqué je travaille sous access 97 pouvez vous m'aider voici le code Option Compare Database Option Explicit Function inseral() Dim rs_codes As Recordset Dim db As Database Dim l_sql As String Dim mess As String Dim dbs As Database, qdf As QueryDef, chsql As String Dim frmlistealertes As Form_frmListeAlertes Dim frmlistepap As Form_frmListepapier Set dbs = CurrentDb Set db = CurrentDb l_sql = "select dateref from T_CodesPapier" Set rs_codes = db.OpenRecordset(l_sql) mess = "Il reste 15 jours avant la date de référence de commande du papier" If (Day(Date + 15) = rs_codes!DateRef) Then l_sql = "insert into T_Alertes (datAlerte, Message) values ('" & CStr(Date) & "',""" & mess & """ " & rs_codes!codepapier & ")" DoCmd.RunSQL l_sql DoCmd.OpenForm "frmlistealertes" End If End Function
Publicité
jpf91
 Posté le 27/05/2004 à 16:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien
Doublon avec [nonnon] https://forum.pcastuces.com/sujet.asp?SUJET_ID=78971 Merci de se conformer à la [url="https://forum.pcastuces.com/sujet.asp?SUJET_ID=3187"]Charte d'utilisation du forum[/url]
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
56,42 €Switch D-Link Gigabit 8 ports avec 4 ports PoE à 56,42 €
Valable jusqu'au 01 Mars

Amazon fait une promotion sur le switch D-Link Gigabit DGS-1008P 8 ports 10/100/1000 qui passe à 56,42 € livré gratuitement. On le trouve habituellement à plus de 73 €. 4 ports PoE permettent de connecter et d’alimenter directement des périphériques comme des caméras IP, des téléphones IP et des points d’accès Wifi.


> Voir l'offre
159 €Aspirateur Rowenta Silence Force à 159 €
Valable jusqu'au 27 Février

Amazon fait une promotion sur l'aspirateur Rowenta Silence Force avec sac qui passe à 159 € livré gratuitement, alors qu'on le trouve ailleurs à partir de 200 €. Il fournit des résultats de nettoyage optimaux sur tous types de sols (tapis, moquettes, sols durs) grâce à 3 niveaux de filtration qui capturent 99.998% de la poussière aspirée. Capacité de 4,5 L.


> Voir l'offre
171,99 €Ecran 24 pouces Iiyama G2470HSU-B1 (FullHD, IPS, 1 ms, 165 Hz) à 171,99 €
Valable jusqu'au 28 Février

Cdiscount fait une promotion sur l'écran 24 pouces Iiyama G2470HSU-B1 qui passe à 171,99 € alors qu'on le trouve ailleurs à partir de 200 €. Cet écran à bord fin possède une dalle IPS FullHD (1920x1080px), offre un temps de réponse de 1 ms, une vitesse de rafraichissement de 165 Hz. Il est compatible FreeSync. Il possède 2 ports HDMI et un port DP.


> Voir l'offre

Sujets relatifs
Fonction Indirect avec VBA
Renommer un rep avec la date du jour
probléme de date avec vb
Ameliorer le Main "Java" avec les fonctions & procédures
VBA excel transformer date à chiffre
Comment exclure 0 dans une fonction
concatenation avec Arduino
Contrôle script sql
commande créer la fonction effacer image en VB10
URGENT ! Fin de développement d'application C++ avec MFC
Plus de sujets relatifs à pb de fonction avec controle de date
 > Tous les forums > Forum Autres langages