Auteur Topic: Bestand voor genealogie (gelezen 43547 keer)

Genealoog100 · « **Gepost op:** 14 april 2024, 15:01:10 »

Hallo iedereen,

Misschien even voorstellen als nieuwste member.
Ik ben dus Marcel, gelukkig gepensioneerd ( en geloof me maar er van aan het genieten!!!

) met als hobby ( of wat dacht je dan anders) genealogie.

Nu ben ik begonnen met een bestand te maken in excel waarin ik kort alle data zou willen inbrengen van personen die gevonden zijn en die thuis horen in de stamboom. Programma dat ik daarvoor gebruik is Aldfaer. ( aanrader ).

Nu voor ik hier verder tijd en energie ga in steken, had ik al even willen vragen of jullie hier een mening over hebben en of dit voor verbetering ( ben ik van overtuigd van wel $:-\$ ) en zoja welke dan.

Nu kan ik hier een uiteenzetting gaan geven maar denk niet dat dit nut zal hebben.

toch dit.

Ik heb nu voor iedere soort bestand een userform gemaakt.
Ook heb ik voor iedere bestand een sheet aangemaakt.
de inhoud van de userform zouden moeten worden weggeschreven in de juiste cel.
Er is al een deel voorzien van een code die ik van tsoeptsoep (YouTube)heb gehaald.

Heb geen jota verstand van programmeren, maar wat ik bijleer is altijd mooi meegenomen. ( vandaar tsoeptsoep)
even nog voor de duidelijkheid....

BSGOVL staat voor
BS = Burgerlijke Stand
G = Geboorte
OVL = Oost-Vlaanderen
WVL = West-Vlaanderen
PKGOVL staat voor
PK = Parochiale Klapper
G = Geboorte
OVL = ...
WV = ...

BSHOVL
BS = ...
H = Huwelijk
OVL...

PKHOVL
PK = Parochiale ....
H = Huwelijk
OVL = ...

BSOOVL
BS = ...
O = Overlijden
enz... zoals hierboven

Alvast mijn oprechte dank en excuses mocht het wat chaotisch samengesteld zijn ( maar ja zo is het ook in mijn koppie(chaotisch))

Mvg

Marcel

SoftAid · « **Reactie #1 Gepost op:** 14 april 2024, 16:06:43 »

Hallo genealoog100,

Welkom op Oplossing.be

Je hebt je knoppen naar het "hoofdmenu" nog niet toegewezen aan de betreffende macro (frmHoofdmenu) maar dat is een kleinigheid.

Een macro om de data weg te schrijven van de userform naar de juiste cellen is in principe niet zo moeilijk. Een zaak eerst: je moet de laatste lege rij in je werkblad weten te vinden. Dat doe je door een code te gebruiken die in het werkblad het rijnummer van de eerste lege rij ophaalt:

Code: [Selecteer]

rij = Sheets("BS_G_OVL").Cells(Cells.Rows.Count, "B").End(xlUp).row + 1Deze code zoekt de eerste lege rij (van boven naar beneden) in kolom "B" en wijst deze rij toe aan een variabele rij (rij zonder haakjes, het is geen tekst)

Daarna schrijf je in je macro, als je deze "Save" activeert, dat de waarde in de cellen (rij, 2), (rij, 3), (rij, 4) enzovoorts gelijk zijn aan de juiste invoervelden van je userform.

Code: [Selecteer]

Sub Save()     ' op voorwaarde dat je de macro (die verbonden is aan de knop "Save" 
                              ' in de code module van de userform zet.
Dim rij as Range

rij = Sheets("BS_G_OVL").Cells(Cells.Rows.Count, "B").End(xlUp).row + 1
Sheets("BS_G_OVL").Cells(rij, 2).Value = Me. TxtBox.Value

End Sub

Je zal dus een macro in de userform code-module moeten zetten die de waarden van de txtboxen afgaat en deze naar het werkblad schrijft.

Als je hulp wenst, laat maar horen.
Mogelijk vindt je het fijner om zelf de weg te zoeken.
We helpen graag.

Groeten,

SoftAid

Genealoog100 · « **Reactie #2 Gepost op:** 14 april 2024, 17:42:53 »

Beste SoftAid

Dank voor de verwelkoming

Inderdaad is de bedoeling om toch zelf te leren met behulp van jullie wijsheden en tsoeptsoep en de almighty Google

Maar 't spel zit al op de wagen zie

De code in het rood herkent hij niet.
enig raad of advies.

Code: [Selecteer]


'CommandButton "SAVE"

Private Sub cmbSave_Click()
    Dim sh As Worksheet
        Set sh = ThisWorkbook.Sheets("BS_G_OVL")
            Dim rij As Long
                rij = Sheets("Worksheet").Range("B" & Rows.Count).End(xlUp).Row  'Deze code herkent hij niet.
  
  '---------------- Toewijzen van data aan de juiste cellen  -------------------------
     With sh
                Cells(rij + 1, "B").Value = Me.TxtVolgnr.Value
                Cells(rij + 1, "C").Value = Me.txtRegister.Value
                Cells(rij + 1, "D").Value = Me.txtWelke.Value
                Cells(rij + 1, "E").Value = Me.txtProvincie.Value
                Cells(rij + 1, "F").Value = Me.txtSex.Value
                Cells(rij + 1, "G").Value = Me.txtNaam.Value
                Cells(rij + 1, "H").Value = Me.txtVoornaam.Value
                Cells(rij + 1, "I").Value = Me.txtVader.Value
                Cells(rij + 1, "J").Value = Me.txtVNVader.Value
                Cells(rij + 1, "K").Value = Me.txtMoeder.Value
                Cells(rij + 1, "L").Value = Me.txtVNMoeder.Value
                Cells(rij + 1, "M").Value = Me.txtGD.Value
                Cells(rij + 1, "N").Value = Me.txtPostcode.Value
                Cells(rij + 1, "O").Value = Me.txtPlaats.Value
                Cells(rij + 1, "P").Value = Me.cbTypeDoc.Value
                Cells(rij + 1, "R").Value = Me.txtbron.Value
                Cells(rij + 1, "S").Value = Me.cbOAkte.Value
                Cells(rij + 1, "T").Value = Me.cbHAkte.Value
    End With
    
  '--------- Hier worden de cellen leeggemaakt na saven van de data------------
                
            Me.TxtVolgnr.Value = ""
            Me.txtRegister.Value = ""
            Me.txtWelke.Value = ""
            Me.txtProvincie.Value = ""
            Me.txtSex.Value = ""
            Me.txtNaam.Value = ""
            Me.txtVoornaam.Value = ""
            Me.txtVader.Value = ""
            Me.txtVNVader.Value = ""
            Me.txtMoeder.Value = ""
            Me.txtVNMoeder.Value = ""
            Me.txtGD.Value = ""
            Me.txtPostcode.Value = ""
            Me.txtPlaats.Value = ""
            Me.cbTypeDoc.Value = ""
            Me.txtbron.Value = ""
            Me.cbOAkte.Value = ""
            Me.cbHAkte.Value = ""


End Sub

Alvast bedankt

Groeten
Marcel

Della Jordan · « **Reactie #3 Gepost op:** 14 april 2024, 18:11:14 »

Dit vind ik een leuk projectje

Ik ben de volgende twee dagen vrij (weekend werk,pff)
Ik ga morgen wat verder kijken.
Deze code kan al iets korter.

Code: [Selecteer]

    
            Me.TxtVolgnr.Value = ""
            Me.txtRegister.Value = ""
            Me.txtWelke.Value = ""
            Me.txtProvincie.Value = ""
            Me.txtSex.Value = ""
            Me.txtNaam.Value = ""
            Me.txtVoornaam.Value = ""
            Me.txtVader.Value = ""
            Me.txtVNVader.Value = ""
            Me.txtMoeder.Value = ""
            Me.txtVNMoeder.Value = ""
            Me.txtGD.Value = ""
            Me.txtPostcode.Value = ""
            Me.txtPlaats.Value = ""
            Me.cbTypeDoc.Value = ""
            Me.txtbron.Value = ""
            Me.cbOAkte.Value = ""
            Me.cbHAkte.Value = ""

Kan je veranderen door:

Code: [Selecteer]

For Each Ctrl In Controls
        If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "ComboBox" Then Ctrl.Value = ""
Next Ctrl

Ik heb ook Aldfaer eens bekeken, wordt niet meer ondersteund en is zeker geen aanrader.
Maar ik bewonder het voorbeeld en de energie dat je er al ingestoken hebt.

Della Jordan · « **Reactie #4 Gepost op:** 14 april 2024, 18:19:14 »

Nog een hint, gebruik eenvoudegere namen voor je textboxen, comboboxen buttons.
Het is dan zoveel makkelijker om iets in een loop te zetten.
Zoiets als T1 of T_1 of tx1, dat maakt niets uit en maak geen onderscheid met je comboboxen.
De rest is voor morgen.

SoftAid · « **Reactie #5 Gepost op:** 14 april 2024, 18:22:17 »

Hallo Marcel,

ik heb kleine aanpassingen gemaakt in je reactie.

als je code tussen codetags plaats (wat je geweldig hebt gedaan) dan kan je daar geen andere tags (zoals Color=red) aan toevoegen. Ik noem dit enkel om je de mogelijkheden van dit forum te laten kennen....

Wat is er mis:

Je hebt sh ingesteld als variabele (als vervanger) voor ThisWorkbook.Sheets("BS_G_OVL"

Daarna gebruik je sh niet, maar je gebruikt ("Worksheet") als sheets in je vergelijking. Dus zou je moeten schrijven:

Code: [Selecteer]

rij = sh.Range.Cells(Cells.Rows.Count, "B").End(xlUp).Row + 1 ------------------------------------------------------------------------------------------------------
Bij het gebruik van "With ....." dien je op elke volgende regel die gebruik maakt van die sh een punt te zetten vóór de volgende instructie:

Code: [Selecteer]

With sh
  .Cells......
  .Cells......
  .cells......
End with

-----------------------------------------------------------------------------------------------------
Een ander code en tijdbesparend iets zou zijn om je Werkblad(en) en je Userform perfect op elkaar af te stemmen.
Zo heb je nu een Werkblad Kolom "Sex", maar geen Userform inputbox of textbox "sex" (moet dat niet "Sexe" zijn?)

Als je de namen van je txtboxen aanpast in functie van de kolommen in je werkblad, dan kan je via For-next loops alles aanpassen met 1 of twee lijntjes code.

Maar, het gaat goed

SoftAid

Della Jordan · « **Reactie #6 Gepost op:** 14 april 2024, 19:11:49 »

"Sex", dat is een gevaarlijk woordje, ik heb een vriendin in de USA en op haar rijbewijs staat er bij sex F en haar zoontje van acht vroeg, ben je nu zo slecht in sex, een F

Genealoog100 · « **Reactie #7 Gepost op:** 14 april 2024, 22:32:54 »

OK Goedenavond iedereen.

First: Della Jordan - Bedankt voor het meedenken $_/-\o_$

Second :

#3 Della Heb de korte procedure geprobeerd maar krijg hier foutmelding op.
#4 Della Zijn allemaal aangepast. Was precies bezigheidstherapie

#5 SoftAid aangepast maar blijf dezelfde foutmelding krijgen.

#6 Della LOL ( ze krijgt hopelijk herexamen

)

Groeten
Marcel

Genealoog100 · « **Reactie #8 Gepost op:** 15 april 2024, 08:15:29 »

Goedemorgen iedereen,

Alvorens hiermee verder te gaan een vraagje....

Klopt het dat er eigenlijk maar 2 formulieren nodig zijn om deze volledig te doen draaien?
Namelijk 1 formulier voor geboorte en overlijden ( aangezien dit toch dezelfde gegevens zijn die ingevuld worden) en 1 voor de huwelijken.

Alles zou dan blijkbaar kunnen opgeslaan worden in de juiste sheet adhv de data in de boxen "Register" & box "Welke" & box "Register"
bvb
(1)
box "register" Burg. Stand
Box "welke" Geboorte
Box "Provincie" West-Vl.

OF
(2)
box "register" Paroch. Klapper
Box "welke" Geboorte
Box "Provincie" West-Vl.

de data zou dan weggeschreven worden naar de worksheet
(1)
BS_G_WVL
(2)
PK_G_WVL

Mocht dit zo zijn dan zou dit toch een pak programeerwerk besparen denk ik dan toch maar.

Graag je mening op deze vraag.

Alvast bedankt voor het meedenken.

groeten
Marcel

SoftAid · « **Reactie #9 Gepost op:** 15 april 2024, 10:16:01 »

Citaat van: Genealoog100 op 15 april 2024, 08:15:29

Klopt het dat er eigenlijk maar 2 formulieren nodig zijn om deze volledig te doen draaien?

Hallo Marcel,

ook een goede morgen (10:14h, veel te vroeg

)

Mogelijk kan je met 2 formulieren verder, maar dat wil ik eerst even bekijken in je bijlage.

Ik (of iemand anders) laat straks zeker iets weten (als mijn oogjes open zijn...

Groeten,

SoftAid

Genealoog100 · « **Reactie #10 Gepost op:** 15 april 2024, 10:34:42 »

Goedenacht SoftAid

Ik maak er werk van deze middag en dan post ik het tweede gedachtegoed.

En dan u oogjes dicht en snaveltje toe .... slaapzacht

hahahahahaha

Groeten
Marcel

SoftAid · « **Reactie #11 Gepost op:** 15 april 2024, 11:09:03 »

Citaat van: Genealoog100 op 14 april 2024, 22:32:54

#5 SoftAid aangepast maar blijf dezelfde foutmelding krijgen.

Sorry, foutje in de typeaanduiding van de variabele: "Dim rij As Range" moet zijn "Dim rij as Long"
Deze code achter het werkblad doet wat het moet doen.

Code: [Selecteer]

Private Sub Saveformulier()
Dim rij As Long
     rij = Sheets("BS_G_OVL").Cells(Cells.Rows.Count, 2).End(xlUp).Row + 1
                           FrmBSGOVL.txtRegister = ("tien") 'tijdelijk, om het formulier niet te moeten gebruiken
     Sheets("BS_G_OVL").Cells(rij, 2).Value = FrmBSGOVL.txtRegister.Value
End Sub

Straks meer... eerst je bijgewerkt voorbeeldbestand doornemen (na de koffie)

SoftAid

Genealoog100 · « **Reactie #12 Gepost op:** 15 april 2024, 12:45:10 »

Dag,

Vooreerst, dank voor het meedenken.
Laat me toe even dit te zeggen...

Zoals in de eerste topic gemeld is de kennis miniem en haal ik veel informatie van "YouTube" ( zeg maar tsoeptsoep) en ergens kan je wel gelijk hebben met je bemerkingen maar ik denk dat ook verkeerde informatie mooi is om uit te leren.

De raad van Della is opgevolgd en zal in het nieuw bestandje zo ingevuld worden T1,T2, T3, enz... Form1, Form2,...

En waarom 2 formulieren...
form 1 kan gebruikt worden bij de akten geboorten en overlijden terwijl er bij de akte huwelijken een pak meer info is. ( schoonfamilie, enz...)

Nu als je denkt dat alles kan met 1 Form graag je kennis hoor... maakt het alleen maar aangenamer in gebruik toe.

Dus, we stomen verder naar de juiste oplossing die tot iedereens tevredenheid kan schikken

Groeten
Marcel

Genealoog100 · « **Reactie #13 Gepost op:** 15 april 2024, 13:35:45 »

Beste allen,

Zo bij deze is dit dan ook achter de rug en kunnen nu de neuzen allemaal in dezelfde richting staan

Hierbij dan het bestandje dat is aangepast naar 2 formulieren.
Heb er nog geen codes in weggeschreven, gewoon als deze oplossing niet geschikt is dan is dit een hoop moeite voor piet snot geweest.

De bedoeling zou nu zijn dat wanneer in T2, T3, T4 gegevens komen dat deze dan ook worden weggeschreven naar de juiste sheet
Om weer een vb te geven
T1 "BS" T2 "H" T3 "OVL"
Dan zou deze gegevens moeten worden weggeschreven in sheet BSHOVL
enz voor alle mogelijkheden
( zo zijn er 9 sheets)

Graag jullie opbouwende reacties zodat ik hier mijn stress kan op botvieren

Groeten
Marcel

SoftAid · « **Reactie #14 Gepost op:** 15 april 2024, 13:57:32 »

Hallo Marcel,
een volgende stap zou zijn om je data van het formulier weg te schrijven naar het werkblad.

Met (ongeveer) deze for-Next code zou je met weinig veel kunnen bereiken.

Code: [Selecteer]

Private Sub cmbSave_Click()
   Dim sh As Worksheet
       Set sh = ThisWorkbook.Sheets("BS_H_OVL")
           Dim rij As Long, x As Long
                rij = sh.Cells(Cells.Rows.Count, 2).End(xlUp).Row + 1
        For x = 1 To 20
          sh.Cells(rij + 1, x + 1).Value = Me.T & x      'Toewijzen van data aan de juiste cellen via For-Next loop
        Next
 Workbook.Save
 End Sub

Spijtig genoeg krijg ik een foutmelding op het stukje code: Me.T & x
en ik zie de fout niet dadelijk.

Ik zoek verder.

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics