Waarde uit module overnemen

[Cyrex01]

Is het mogelijk om uit de functie van een module een waarde overnemen?

Voorbeeld

Module:

Public Function getPeriode()
'Declaraties
Dim db As Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim year As String
Dim periode As String
Dim count As Integer

'Database actief maken
Set db = CurrentDb()
'Query voor ophalen van de data
strSQL = "SELECT jaar, periode FROM openPeriode"
'Openen van de recordset
Set rst = db.OpenRecordset(strSQL)
'Tellen van de records die opgehaald zijn
count = rst.RecordCount
'Groter dan 0, data ophalen
If count > 0 Then
'Data storen in de variabele
year = rst.Fields(0)
periode = rst.Fields(1)
End If
End Function

Private Sub Form_Load()
---- Hier moeten de var year en periode gebruikt worden ----
End Sub

Is dit te realiseren?

 

[snb]

Daarvoor zijn funkties juist.
Iets gewiede code:

Private Sub Form_Load()
  c4=[COLOR="Blue"]periode[/COLOR]
End Sub

Public Function [COLOR="blue"]Periode[/COLOR]()
  With  CurrentDb.OpenRecordset("SELECT jaar, periode FROM openPeriode")
    If .Recordcount > 0 Then [COLOR="blue"]periode[/COLOR]= .Fields(0) & "|" & .Fields(1)
  end with
End Function

 

[huijb]

Het is onnodig om je vraag twee keer te plaatsen. Je mag hier verder http://www.helpmij.nl/forum/showthread.php?p=3196531#post3196531 Bovendien moeten de code tussen codetags staan.