ID-bakske

Status
Niet open voor verdere reacties.
Aangepaste code die werkt!!!

Code: 
Private Sub Knop21_Click()
'Uitvoerende VBA code
Dim wrapper As New EID_Wrapper.wrapper
Dim data As EID_Wrapper.CardData
    Set data = wrapper.GetCardData()
    ' Toon de EID Kaart Data in een messagebox
    If Not data.FirstCard Is Nothing Then
        MsgBox "Voornaam: " & (data.FirstCard.FirstNames) & vbCrLf & _
            "Naam: " & (data.FirstCard.Surname) & vbCrLf & _
        "Geslacht: " & (data.FirstCard.Gender) & vbCrLf & _
        "Geboortedatum: " & (data.FirstCard.BirthDate) & vbCrLf & _
        "Geboorteplaats: " & (data.FirstCard.BirthPlace) & vbCrLf & _
        "Straat en nummer: " & (data.FirstCard.StreetAndNumber) & vbCrLf & _
        "Postcode: " & (data.FirstCard.ZipCode) & vbCrLf & _
        "Woonplaats: " & (data.FirstCard.Municipality) & vbCrLf & _
        "Nationaliteit: " & (data.FirstCard.Nationality) & vbCrLf & _
        "Kaartnummer: " & (data.FirstCard.CardNumber) & vbCrLf & _
        "Chipnummer: " & (data.FirstCard.ChipNumber) & vbCrLf & _
        "Uitgifteplaats: " & (data.FirstCard.IssuingMunicipality) & vbCrLf & _
        "Beginvaliditeit: " & (data.FirstCard.ValidityBeginDate) & vbCrLf & _
        "Eindvaliditeit: " & (data.FirstCard.ValidityEndDate) & vbCrLf & _
        "Rijksregisternummer: " & (data.FirstCard.NationalNumber), vbInformation + vbOKOnly, "EID Kaart info"
    End If
End Sub:
 
Ik schreef nu:

Code: 
Dim wrapper As New EID_Wrapper.wrapper
Dim data As EID_Wrapper.CardData
Dim filename As String
Dim strFileName As String
Set data = wrapper.GetCardData()
If Not data.FirstCard Is Nothing Then
    data.FirstCard.SavePhoto (ActiveWorkbook.Path & "\" & data.FirstCard.Surname & "_" & data.FirstCard.FirstNames & "_eid.jpg")
    ImageFrame.Picture = ActiveWorkbook.Path & "\" & data.FirstCard.Surname & "_" & data.FirstCard.FirstNames & "_eid.jpg"
    TxtEidfoto = ActiveWorkbook.Path & "\" & data.FirstCard.Surname & "_" & data.FirstCard.FirstNames & "_eid.jpg"
End If

En krijg een foutcode op lijn:
data.FirstCard.SavePhoto (ActiveWorkbook.Path & "" & data.FirstCard.Surname & "_" & data.FirstCard.FirstNames & "_eid.jpg")

Object vereist...
Enig idee?
Bedankt
JP
 
OctaFish zei:
We hebben het hier over een database, niet over Excel :).
Klik om te vergroten...
Vergeten :o, viel terug in oude "gewoonte" (excel).
Code: 
CurrentProject.Path & "\Fotomap"
werkt deze code ook als de submap fotomap niet bestaat? is
Code: 
CurrentProject.Path & "\"
niet veiliger?
 
Laatst bewerkt:
Bedankt voor de formidabele hulp...
HET WERKT
Intussen heb ik de data uit de ID kaart EN de foto.
De code die alles bij mij doet werken is deze:

Code: 
Private Sub Knop21_Click()
'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
    Set data = wrapper.GetCardData()
    ' Toon de EID Kaart Data in een messagebox
    If Not data.FirstCard Is Nothing Then
        MsgBox "Voornaam: " & (data.FirstCard.FirstNames) & vbCrLf & _
            "Naam: " & (data.FirstCard.Surname) & vbCrLf & _
        "Geslacht: " & (data.FirstCard.Gender) & vbCrLf & _
        "Geboortedatum: " & (data.FirstCard.BirthDate) & vbCrLf & _
        "Geboorteplaats: " & (data.FirstCard.BirthPlace) & vbCrLf & _
        "Straat en nummer: " & (data.FirstCard.StreetAndNumber) & vbCrLf & _
        "Postcode: " & (data.FirstCard.ZipCode) & vbCrLf & _
        "Woonplaats: " & (data.FirstCard.Municipality) & vbCrLf & _
        "Nationaliteit: " & (data.FirstCard.Nationality) & vbCrLf & _
        "Kaartnummer: " & (data.FirstCard.CardNumber) & vbCrLf & _
        "Chipnummer: " & (data.FirstCard.ChipNumber) & vbCrLf & _
        "Uitgifteplaats: " & (data.FirstCard.IssuingMunicipality) & vbCrLf & _
        "Beginvaliditeit: " & (data.FirstCard.ValidityBeginDate) & vbCrLf & _
        "Eindvaliditeit: " & (data.FirstCard.ValidityEndDate) & vbCrLf & _
        "Rijksregisternummer: " & (data.FirstCard.NationalNumber), vbInformation + vbOKOnly, "EID Kaart info"
    End If
End Sub

Private Sub Knop22_Click()
'code die de foto op de ID kaart haalt en in een bestand steekt
Dim wrapper As New EID_Wrapper.wrapper
Dim data As EID_Wrapper.CardData
Dim filename As String
Dim strFileName As String
Set data = wrapper.GetCardData()
If Not data.FirstCard Is Nothing Then
    data.FirstCard.SavePhoto (CurrentProject.Path & "\Fotomap" & data.FirstCard.Surname & "_" & data.FirstCard.FirstNames & "_eid.jpg")
End If
 
End Sub

Nu nog integreren in mijn programma en ook eens zien of ik data van (bvb een mutualiteitskaart) ook kan inlezen

Alvast HEEL erg bedankt aan iedereen voor de hulp
JP
:thumb::thumb::thumb:
 
Jammer,
Maar er is nog een probleem met de lijn:
Forms![weergave patiënt]!GEBOORTE = (data.FirstCard.BirthDate)
Misschien klopt de syntax niet volledig omdat het over een datum gaat, maar als dat zo is weet ik niet precies hoe het op te lossen
Bedankt voor de hulp
JP
 
Ik zou dit:
Code: 
Forms![weergave patiënt]!GEBOORTE = (data.FirstCard.BirthDate)
in ieder geval nooit zo hebben gedaan, maar zo:
Code: 
Me.GEBOORTE = (data.FirstCard.BirthDate)
Daarnaast loop je wellicht tegen een conversieprobleem aan, maar dat is lastig te beoordelen omdat je niet aangeeft wat het probleem is :).
 
Ik krijg geen foutmelding... het boeltje blijft gewoon hangen.
Op de form set ik data in het formaat dd/mm/yy
en ik heb het gevoel dat op de ID kaart iets staat als 5 dec 2016
Dus zou wel de conversie zijn... hoe lost je dat op aub
Bedankt
JP
 
JEPEDEWE zei:
en ik heb het gevoel dat op de ID kaart iets staat als 5 dec 2016
Klik om te vergroten...
Niet echt een wetenschappelijke benadering :D.
Begin eens met een onderbrekingspunt in te stellen op de regel
Code: 
     Me.GEBOORTE = (data.FirstCard.BirthDate)
en lees dan met de muis de waarde uit die je op data.FirstCard.BirthDate ziet. Desnoods even met een inputbox afvangen:
Code: 
     Dim t As String
     t = InputBox("","",data.FirstCard.BirthDate)
     Me.GEBOORTE = (data.FirstCard.BirthDate)
En bericht dan de uitkomst hiervan. Dan weten we meer.
 
Werkende voorbeeld databases

Aangezien mijn ruw, snel uitgevoerde sloopwerk wat fouten bevatte heb ik een paar nieuwe databases gemaakt (in 2002-2003 en 2016 formaat) met ditmaal proper formulier, paar tabellen, werkende messagebox, fotoscanning, rapport, etc...
die ik allebei uitvoerig heb getest. Gelieve het "EID Wrapper.xlsb" bestand (256Kb) in bijlage te downloaden en te hernoemen naar "EID Wrapper.rar" en dan alles via bv winrar uit te pakken naar een zelfgekozen directory. De EID Wrapper files zitten er ook bij samen met verdere instructies.
Veel suc6 en graag uw opmerkingen, aanvullingen, etc... Benieuwd of het in Nederland ook werkt of wat de bestandsnamen moeten zijn.
 

Bijlagen

Jean-Paul, een mutualiteitskaart (of SIS kaart) uitlezen zal niet werken; de bestandsnamen zijn anders en bij mijn weten nooit publiek vrijgegeven.
De geboortedatum halen we best gewoon uit het rijsksregisternr en niet uit de datum vanop de EID kaart zelf aangezien bij de oude EID die in cijfers weergegeven was en de nieuwe inderdaad de maand in letters bevat geeft dat problemen in Access (ik heb beide functies in de voorbeeld database gestopt ter info)
 
Laatst bewerkt:
Johan,
Bedankt voor de reactie.
Je opgestuurde bestanden moet ik nog eens bekijken.
Intussen lukt alles perfect in mijn kine-programma (het datumgedoe moet ik nog bekijken)... jammer van die SIS-kaart... zou een erg handige uitbreiding zijn.
Ik keek intussen eens op internet of daar iest terug te vinden is ivm de velden op een sis-kaart maar vind niets terug wat bruikbaar is
MVG
JP
 
Jean-Paul, in die voorbeelddatabase zit de code om uit het rijksregisternr de geboortedatum te halen
Code: 
strConvertedBirthDate = CDate(Mid$(strNationalNumber, 5, 2) & "/" & Mid$(strNationalNumber, 3, 2) & "/" & Left$(strNationalNumber, 2))
En dan uw veld laten vullen via
Code: 
Forms![weergave patiënt]!GEBOORTE = strConvertedBirthDate
'of 
Me.GEBOORTE = strConvertedBirthDate
De sis-kaart codes werden verstrekt aan firma's die de lezers voor bv apotheek en zo meer leveren, denk niet dat daar iets over op 't net te vinden is dat wel werkt. Denk dat de Wrapper zelf trouwens moet aangepast worden daarvoor. In november 2015 heb ik met Jesper via Github een aantal mails gestuurd om de laatste versie werkende te krijgen, misschien kan hij iets doen voor de Sis kaart maar ik vind het verspilde moeite. De Sis kaart wordt nml al een tijdje niet meer verstrekt aan nieuwe mensen en sinds 2014 wordt alles gewoon via het rijksregisternr van het EID door de apotheek via het MyCarenet opgehaald. De kinesisten gaan trouwens in de toekomst ook zoiets digitaals krijgen?
Hieronder een printscreen van het formulier na inscannen van het EID van mijn jongste :love:
 

Bijlagen

  • Knipsel11.JPG
    Knipsel11.JPG
    91,1 KB · Weergaven: 56
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan