Waarde uit module overnemen

Status
Niet open voor verdere reacties.

Cyrex01

Gebruiker
Lid geworden
14 dec 2009
Berichten
27
Is het mogelijk om uit de functie van een module een waarde overnemen?

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:
return value

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) comment or remove
============ >> ' periode = rst.Fields(1) comment or remove
====== >> GetPeriode = rst.Fields(0) & "/" & rst.Fields(1)
End If
End Function

Private Sub Form_Load()
---- Hier moeten de var year en periode gebruikt worden ----
dim returnval
===== >> returnval = split (Getperiode() , "/") ' Returnval now is een 1-dim arr with 2 elements . Returnval(0) = the year Returnval(1) = periode

End Sub

Is dit te realiseren?

Hi
a function geeft jou al een waarde. Ik heb aanpassing gemaakt in jouw module gemarkeerd met ======>>.

Bedoeling was deze: roep de function 1 keer. Hij geeft jouw year and periode en met de SPLIT in de Form-Load pak jij de losse variabelen in een arraytje terug


yours truly
CG
 
Laatst bewerkt:
bedankt voor de reactie

Beste CG

bedankt voor de reactie.
Weer wat geleerd :)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan