VBA Move Last

Version imprimable

VBA Move Last

Bonjour,

Dans une BDD qui sert à signaler des incidents IT, les utilisateurs doivent remplir un formulaire expliquant leurs problèmes. Ces renseignements sont ensuite envoyés automatiquement via email au département IT à la fermeture du formulaire. Le soucis que j'ai avec mon code VBA (ci-dessous) est que si un utilisateur (A) ouvre un incident et que entretemps un autre utilisateur (B) ouvre aussi un incident mais que ce dernier (B) referme en premier son incident (le formulaire donc...) lorsque (A) fermera lui aussi son incident l'email envoyé par (A) contiendra les informations encodées par (B). Je comprends que mon MyRS.moveLast n'est pas approprié...Si vous avez une idée...

Merci d'avance
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 Function sndrpt() Dim objOutlook As Outlook.Application Dim objEmail As Outlook.MailItem Dim strbody As String Dim strsubject As String Dim MyDB As Database Dim MyRS As Recordset Set MyDB = CurrentDb Set MyRS = MyDB.OpenRecordset("Issues") MyRS.MoveLast Set objOutlook = CreateObject("Outlook.application") Set objEmail = objOutlook.CreateItem(olMailItem) strsubject = MyRS![Subject] strbody = MyRS![Description] 'Generate email With objEmail .To = "it.department@abc.com" .CC = "" .Subject = "New issue -" & " " & strsubject .Body = strbody .Send End With End Function

Bonsoir,

Je pensais utiliser un identifiant à la place, en le passant au moment de l'appel de la fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function sndrpt(id as long)
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
Dim strbody As String
Dim strsubject As String
Dim MyDB As Database
Dim MyRS As Recordset
 
Set MyDB = CurrentDb
Set MyRS = MyDB.OpenRecordset("Issues")
 
MyRS.FindFirst "id=" & id
 
   if MyRS.NoMatch then 
      exit function
   end if
 
...
 
end function

Cdlt,

01/06/2017, 10h28
lefabe

Bonjour,

Merci pour votre réponse. Lorsque vous parler d'un ID, je dois utiliser l'identifiant unique (clé primaire) de chaque enregistrements de ma table "Issues"? Si oui que dois-je mettre après le "id=..." (MyRS.FindFirst "id=" & id)?

Bonne journée
01/06/2017, 16h21
User

Bonjour,

Mon idée serait, après remplissage des renseignements sur le formulaire, au moment de fermer le formulaire, exécuter le code :

Code:

call sndrpt(Me.Identifiant)

Où je suppose que le champ identifiant sur le formulaire se nomme "identifiant".

Cdlt,
01/06/2017, 16h36
Invité

bonjour,
personnellement je rajoute un champ PcName qui me permet de signer mes enregistrement avec la mac Adresse de la machine qui effectue la transaction! pas de risque de mélanger le mailing!
27/06/2017, 10h52
lefabe

Merci pour votre aide.

cordialement