Hallo,
Een paar jaar geleden had ik in dit verband een vraag.
Dankzij alle hulp heb ik een ID-reader kunnen aansluiten en werkt dat perfect.
Ik heb nu een nieuw systeem en heb weer alle nodige software geinstalleerd
Binnen VBA heb ik een verwijzing naar EID_Wrapper maar als ik de code loop dan krijg ik de foutmelding:
"Activex-onderdeel kan geen object maken"
Hoe los ik dit op?
Een paar jaar geleden had ik in dit verband een vraag.
Dankzij alle hulp heb ik een ID-reader kunnen aansluiten en werkt dat perfect.
Ik heb nu een nieuw systeem en heb weer alle nodige software geinstalleerd
Binnen VBA heb ik een verwijzing naar EID_Wrapper maar als ik de code loop dan krijg ik de foutmelding:
"Activex-onderdeel kan geen object maken"
Hoe los ik dit op?
Code:
'knop die de data van een ID kaart in een msgbox laat zien
Dim wrapper As New EID_Wrapper.wrapper
Dim data As EID_Wrapper.CardData
Dim F As Form
Set data = wrapper.GetCardData()
' Toon de EID Kaart Data in een messagebox
If Not data.FirstCard Is Nothing Then
Me.fiche_NAAM = UCase((data.FirstCard.Surname) & " " & (Split(data.FirstCard.FirstNames, " ")(0)))
Me.fiche_STRAAT = (data.FirstCard.StreetAndNumber)
Me.fiche_COMBO4 = (data.FirstCard.Municipality)
Me.fiche_RRN = (data.FirstCard.NationalNumber)
Me.fiche_lidnummer = (data.FirstCard.NationalNumber)
Me.fiche_Combo1 = (data.FirstCard.Gender)
Me.fiche_GEBOORTE = (data.FirstCard.BirthDate)
End If