*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Recente berichten

Pagina's: 1 ... 5 6 [7] 8 9 10
61
Excel / Re: Bestand voor genealogie
« Laatste bericht door Genealoog100 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
62
Excel / Re: Bestand voor genealogie
« Laatste bericht door SoftAid 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 :)             
 
63
Excel / Re: Bestand voor genealogie
« Laatste bericht door Genealoog100 Gepost op 15 april 2024, 10:34:42 »
Goedenacht SoftAid  8) :glare:

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
64
Excel / Re: Bestand voor genealogie
« Laatste bericht door SoftAid 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  ;D)

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 :)             
65
Excel / Re: Bestand voor genealogie
« Laatste bericht door Genealoog100 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
66
Excel / Re: Bestand voor genealogie
« Laatste bericht door Genealoog100 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  :-[     :P
#5 SoftAid aangepast maar blijf dezelfde foutmelding krijgen.  :'(

#6 Della LOL ( ze krijgt hopelijk herexamen  :D :D :D)

Groeten
Marcel
67
Excel / Re: Bestand voor genealogie
« Laatste bericht door Della Jordan 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 :P :P
68
Excel / Re: Bestand voor genealogie
« Laatste bericht door SoftAid 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  :thumbsup:

 :) SoftAid :)             
69
Excel / Re: Bestand voor genealogie
« Laatste bericht door Della Jordan 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.
70
Excel / Re: Bestand voor genealogie
« Laatste bericht door Della Jordan 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.
 :thumbsup:
Pagina's: 1 ... 5 6 [7] 8 9 10


www.combell.com