Recherche:

Je ne vois pas ce qui bloque... :x
J'ai fait un test avec un sous-formulaire, le caption qui change et un bouton qui me donne l'action à faire en fonction du texte du bouton... et ça fonctionne....

Sur quelle ligne apparaît l'erreur ?

Bonjour et bienvenue.

La version d'access que tu utilises ne gère plus la sécurité utilisateurs. Comme tu le dis, il te reste à tracer qui fait quoi.
Etant novice, il va falloir te retrousser les...

Désolé, j'ai survolé un peu trop la fin de ton explication... :oops:
Le problème est là à priori :

Dim StrNumfact As Variant
Si tu as fait ta déclaration dans le module du formulaire, lorsque...

Alors il faut agir sur le formulaire pour stocker le nouvel enregistrement dans la table :
A placer avant les affectations de variables du numéro de facture:

Me.Requery

L'instruction
...

Bonjour,

Essaie avec cette syntaxe :

DoCmd.OpenReport "e_facta5", acViewReport, , "[numfact]='" & StrNumfact & "'"

Si le champ numfact est de type numérique :

DoCmd.OpenReport "e_facta5",...

Bonjour,

Je ne vais pas forcément t'être d'une grande aide... mais ça me fait penser (un peu) à un agenda. Essaie de voir les ressources disponibles sur le site (cours avec planning en mot clé....

Bonjour,

Pour accéder à un sous formulaire, il faut nommer son formulaire parent et il te manque un 'Form':

If Forms![NomFormulaireParent]![sous_formulaire].Form.nom_du_bouton.Caption =...

Bonjour,

Quelque chose comme ça (en VBA):

"WHERE (((maTable.MonChamp)=" & Forms.NomFormulairePrincipal.NomSousFormulaire.Form.NomChamp & "));")

La solution de micniv fonctionne au poil...
Par contre la gestion d'erreur il faudrait intercepter le cas où il n'y en a pas et les autres :

Select Case err
Case 0
Case Else...

Tout est là :)

C'est une manière de faire. Sinon tu mets

Debug.print "Valeur lst_Chien : " & Me.lst_Chiens
Et tu regardes ce qu'il s'affiche dans la fenêtre de débogage.

Pour en revenir au problème, essaie...

Bonjour,

Je te donne un peu de lecture sur les recordset.

Et à mon avis le problème vient de là :

Me.Recordset.FindFirst Me.lst_Chiens.Recordset.Fields(0).Name & "=" & Me.lst_Chiens...

Au-delà des questions que l'on se pose sur la cohérence de ce que doit faire ton code, je ne vois pas ce qui ferait que le code s'exécute sur ton PC, le mien et pas sur celui de la personne sensée...

Bonjour,

Voici une piste à étudier et une autre.

Edit :
Je n'ai pas bien lu ton problème... :oops:

Essaie d'utiliser ce code pour déjà tester et voir ce que cela te retourne :

Bonjour et bienvenue !

Il n'y a visiblement par d'erreur dans le code même si cela amène des questions... Pourquoi écrire "=plage" dans les cellules, faire une copie qui n'est pas collée par la...

Bonjour,

Je ne pense pas que cela soit gérable dans la table.
Cela devra plutôt se faire via le formulaire, au moment de la sélection du container, il faudra compter le nombre d'enregistrements...

Bonjour,
J'ai relu 3-4 fois pour comprendre.
Tes formules fonctionnent très bien.

Par contre, concernant la date de début, il me semble que c'est juste la deuxième colonne (date début) et non...

Bonjour,

Après une petite recherche sur le net, c'est visiblement possible, mais là, rien de gratuit. L'envoi de SMS sera payant. Il existe des API à utiliser.

Bonjour,

Donc il te faut 3 formules :
- une pour récupérer la date de début (la plus simple), une fonction recherche suffit
- une pour récupérer la date de fin, là ça se corse un peu : il y a...

Bonjour,

Inspire toi de ce tutoriel envoi via CDO. Attention, visiblement cela ne fonctionne pas avec toutes les versions d'Access.

Edit : si tu as outlook : publipostage avec outlook

;)

J'ai réfléchi au problème... Cela fait tellement longtemps que je n'ai plus fait régulièrement du VBA que j'ai oublié certaines choses...

En fait le problème vient du fait qu'il faut créer une...

Bonjour,

Je ne voudrais pas faire d'erreur dans mon interprétation, mais il me semble que l'instance d'Excel se ferme avant que tu puisses ouvrir le fichier.

Par contre, si tu places le code à...

Salut,

En fait, la fonction va chercher la valeur 9 exposant 9 soit 387420489. Sauf que cette valeur ne va pas exister. Donc la fonction va chercher la valeur la plus élevée se trouvant dans la...

Bonjour,

Pour compléter la réponse de rjamin, il faut modifier ta fonction :


sub TotalDepenses(num as Integer) As TypeARetourner
' CODE
TotalDepenses = Resultat
end sub