Hallo. Ik ben al uren aan het stoeien met TempVars. Ik heb deze gebruikt om een emailadres (sSender) van de ene subroutine van een eerste formulier naar de andere subroutine in een tweede formulier te transporteren. Het heeft goed gewerkt maar ineens niet meer. Op een gegeven moment merkte ik dat de variabele "geladen" bleef met een oude waarde en heb toen TempVars Remove gebruikt. Daarna is het niet meer goed gegaan, althans voor de email TempVars. De andere gebruikte TempVars Add en Remove voor een datum en een bestandsnaam in dezelfde subroutines werken goed. Ik heb de TempVars Remove buiten werking gesteld en toch blijft het probleem zich voordoen waarbij in de tweede routine de variabele sSender steeds "leeg" is. Een idee wat de oorzaak zou kunnen zijn?
Eerste formulier:
Tweede formulier:
Eerste formulier:
Code:
Private Sub Knop316_Click() 'Knop email Met bijlagen verzenden
Dim TempSender As TempVars
'TempVars.Remove TempSender 'Reset Emailadres
sSender = DLookup("m_Email", "Monteurs", "[m_Monteur ID] =" & [sMonteur]) 'Bepaal emailadres
MsgBox sSender 'Resultaat emailadres
TempVars.Add "TempSender", sSender
End Sub 'Geef emailadres monteur door aan form sub Bijlagentoevoegen
Tweede formulier:
Code:
Private Sub Knop60_Click() 'Knop Verzenden, Wo + Bijlagen toevoegen
Dim TempSender As TempVars 'Als test toegevoegd
sSender = TempVars!TempSender 'Haal emailadres op
MsgBox sSender 'Resultaat "Leeg"
Call Transmit_email(sSender) 'Mail verzenden
'TempVars.Remove TempSender 'Reset Emailadres
End Sub