Bonjour,
merci pour ta réponse je vais modifier ça pour le mettre en fonction car je travaille sur un Module.
La fenêtre d'exécution m'affiche ça à la fin:
Nom du répertoire: 723 répertoire...
Type: Messages; Utilisateur: Apoulit
Bonjour,
merci pour ta réponse je vais modifier ça pour le mettre en fonction car je travaille sur un Module.
La fenêtre d'exécution m'affiche ça à la fin:
Nom du répertoire: 723 répertoire...
Bonjour,
je parcoure le forum ainsi que les tutoriels et je n'y arrive pas.
J'ai un dossier qui se trouve sur le chemin:
C:\Users\xxxxx\Desktop\ref_adhérents
xxxx étant l'utilisateur
...
Bonjour,
merci pour vos réponses j'ai résolu avec cette solution:
If DCount("*", "T_jours_feries", "[Jour_feries] = #" & Format(Me("jour_" & J), "mm/dd/yyyy") & "#") > 0 Then Me("horaire_j_" &...
Bonjour;
j'ai une condition qui est la suivante:
If DCount("*", "T_jours_feries", "[Jour_feries] = #" & Format(Me.jour_1, "mm/dd/yyyy") & "#") > 0 Then Me.horaire_j_1.BackColor = RGB(255, 96,...
du coup le debug ma permis de comprendre l'erreur bien joué, le string entre """
stSQL = "UPDATE T_occupations_postes SET [" & Forms![F_affectaction_poste_operateur]![mem_poste] & "] = """ &...
UPDATE T_occupations_postes SET [POSTE 9] = Jean-Pierre WHERE [T_occupations_postes].[Jour]= #01/14/2024#;
Pas de soucis, ne soyez pas désolé vous me venez en aide c'est super.
là j'ai erreur d'exécution 3061 ?
trop peu de paramètres. 1 attendu.
Db.Execute stSQL, dbFailOnError
Bonjour, Tee_granbois , merci ! mais cette portion de code sort en rouge ?
stSQL = "UPDATE T_occupations_postes SET [" Forms![F_affectaction_poste_operateur]![mem_poste] & "] = " &...
Bonjour,
presque tout est dit dans le titre ;D
J'ai une table avec beaucoup de postes "T_occupations_postes"
Si je fait une requête qui va me cibler la mise à jour du POSTE 9 elle sera la...
Bonsoir Robert,
non je voulais ça en fait et j'ai trouvé ma réponse
jour_id = Me.Controls("jour_" & id).Value
Merci de votre réponse passez de bonne fêtes !
Bonjour,
j'ai une liste déroulante poste_1 et un champ date jour_1
je pars du principe que 1 est l'id
If Me.ActiveControl Like "*poste*" Then
Dim id As Byte
id =...
Bonjour,
merci je vais regarder tout ça...
Bonjour,
mais recherche donne rien et je voudrais savoir si il y a possibilité de détecter si une page "https://calendar.google.com/calendar/u/1/r" est ouverte ?
Pour ouvrir google agenda j'utilise...
Bonjour,
oui tu as entièrement raison ! sauf que ce champ récupère l'information sur un champ texte existant d'une table.
Je fais les modifications pour harmoniser tout ça :)
Merci.
Re,
pour faire ce que tu fais, copie ta base sur PC2 dans sa totalité à moins que une personne modifie la base sur PC1 et une modifie la base sur PC2 en même temps.
Slt,
déjà comment tu fais pour aller sur PC2 si tu es hors connexion et "exporter" les données ? ces PC sont connectés en réseau ?
Au pire ton bouton
-supprime BD2
-Copie BD1 sur Pc2
-...
Slt,
oui ton idée est une usine à gaz !
Un base unique dorsale où les deux pc bosse dessus et c'est simple à faire !
Slt,
si j'ai un conseil à te donner voici les étapes à programmer si tu débutes:
- Travaille avec Outlook
- Créer un document Word avec ton entête et pied de pages (logos, signature ... etc.)
...
Ben oui BoB ! mais pourquoi j'ai laissé le "23:00:00" ???
ça fonctionne Merci Robert.
Bonjour, c'est pas exactement ce que je voulais faire, j'aurais voulu q'un 23:59:00 donne 01:59:00.
Merci.
Slt,
merci hyperion13 ça fonctionne ...j'ai rajouté un subtilité car à 23h00 le passage à minuit fonctionne pas !
If H_fermeture Like "23:*" Then
H_fermeture = "00:00:00"
Else
H_fermeture =...
Bonjour, Bonsoir,
j'ai un champ personnalisé (H_fermeture) qui est 04:00:00 pour 4h du matin.
Je voudrais pouvoir rajouter une heure à cette donnée pour obtenir 05:00:00.
Après je fais une...
Bonjour tee_grandbois,
oui c'est effectivement la meilleure mais quand tu maitrises plus le VBA que le Sql faut s'adapter :D
If Not IsNull(rsC.Fields("Remarque")) Then...
A l'occasion tu peux tester ça aussi
If Not IsNull(rsC.Fields("Remarque")) Then wDoc.Bookmarks("Info").Range.Text = rsC.Fields("Remarque")
Bonjour,
est ce qu'on peut en vba obtenir les informations ci dessous ?
Édition Windows 10 Professionnel
Version 22H2
Installé le 09/09/2020
Build du système d’exploitation 19045.3086...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.