Is het mogelijk om uit de functie van een module een waarde overnemen?
Is dit te realiseren?
Code:
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
Code:
Private Sub Form_Load()
---- Hier moeten de var year en periode gebruikt worden ----
End Sub
Is dit te realiseren?
Laatst bewerkt door een moderator: