Doorgaan naar hoofdcontent

Posts

Posts uit 2017 weergeven

Friesland: veel onbekende grafzerken uit de kerk van Lollum

Inleiding Woensdag 15 november 2017 hebben Melle Koopmans en ik de kerk van Lollum bezocht. Deze kerk wordt gerestaureerd en er zijn na het verwijderen van de houten vloer een flink aantal grafzerken tevoorschijn gekomen.
De kerk van Lollum is uit de dertiende eeuw heeft een halfrond koor. In de negentiende eeuw werd de kerk gepleisterd en voorzien van een bakstenen boogfries. In 1883 kreeg de kerk een nieuwe westgevel en een half ingebouwde toren met houten opbouw en ingesnoerde spits. De luidklok (1550) is gegoten door Geert van Wou II. De preekstoel (1718) is gemaakt door Cornelis Cornelisz en het orgel uit 1914 is gebouwd door Bakker & Timmenga.


Bronnenonderzoek Uit de bekende bronnen voor grafschriften was ons maar één grafzerk bekend: die van predikant Faber.

1771 den 28 july is overleden de wel eerw: heer Sibrandus Faber getrouw leeraar in de gemeente J:C: te Lollum oud 71 jaren min 2 dagen nadat den h: dienst aldaar 31 jaren en 10 maanden volijverig had waargenomen en is h…

Excel: Histogram With Variable Class Width, Made Dynamically

In his blog Jon Peltier shows us how to create histograms with variable width columns in Excel: peltier. Nice examples but not very dynamic. In my example, you do the same, but dynamically and in a pretty easy way. The main trick is done by using the Frequency function.

The first example is based on this table:

Ages IntervalNumberClass WidthFrequency per class width1036144314,380321230107,16015913545,55029004072,5257622038,1101421014,256285125,6

In the next example I simply removed some rows from the table:
Ages IntervalNumberClass WidthFrequency per class width1036144314,38032127045,96052535595,5101421014,256285125,6
And immediately I get a different histogram.

You can download the example ExcelHistogramOngelijkeKlassen.xlsx through:

https://drive.google.com/drive/u/0/folders/0B7HgkOwFZtdZVmhRQUZFM28yc1U

Access: gevanceerd zoekscherm dat direct in meerdere kolommen zoekt en kan sorteren

In de praktijk maak ik geregeld applicaties in Access die als front end dienen voor een database als de SQL Server.

Bij het maken van deze applicatie ben ik continu op zoek naar mogelijkheden om deze front ends te verbeteren.
Zoekscherm In het volgende scherm wordt in alle kolommen tegelijk gezocht. Met elk ingetypt teken in het bovenstaande zoekvak verandert het resultaat eronder direct mee. Het voorbeeld is gemaakt op basis van de database Noordenwind.


Hoe steekt dit technisch in elkaar? Bij het zoekvak wordt bij de gebeurtenis Bij wijzigen een VBA-functie gebeurtenisprocedure aangeroepen.


Deze gebeurtenisprocedure ziet er als volgt uit:

Private Sub txtZoeken_Change()
    Dim strSQL As String
    strSQL = " SELECT Klantnummer, Bedrijf, Contactpersoon, Functie, Plaats, Land "
    strSQL = strSQL & " FROM tblKlanten "

    If Me.txtZoeken.Text <> "" Then
        strSQL = strSQL & " WHERE Klantnummer like '*" & Me.txtZoeken.Text &a…

Excel: labels bij de reeksen in plaats van een legenda

In 2009 al kwam Jon Peltier met ideeën over het plaatsen van labels bij reeksen in plaats van een legenda. Zie artikel. Mynda Tracey heeft dit verder uitgewerkt. Haar methode is evenwel tamelijk omslachtig.

Vanaf versie 2013 zijn er andere mogelijkheden in Excel. In het geval van labels kun je nu ook de optie kiezen Waarde uit cellen.











In plaats van een bereik kun je dan ook een naam gebruiken die naar een bereik verwijst. Kijk naar het onderstaande voorbeeld.


Ik heb hiervoor de volgende data gebruikt:

YearSeries ASeries BSeries C20011001201502002150240300200330036045020043504806002005500600750200655072090020077008401050200875096012002009900108013502010950120015002011110013201650201211501440180020131300156019502014135016802100201515001800225020161550192024002017170020402550
Vervolgens heb ik in een blad genaamd legendattheend drie namen gemaakt:

ReeksA:
=VERSCHUIVING(legendattheend!$E$2;0;0;AANTALARG(legendattheend!$B:$B)-2;1);legendattheend!$B$1

ReeksB:
=VERSCHUIVING(legendattheend!$E$2;…

SQL: Selective joining in the FROM clause

While making  a SQL query I found out that selective joining would be the best solution, but I was not sure about using a CASE WHEN in the FROM clause.

Two simple examples of the tables I used:

tblTermen with some Dutch terms

termMaat 01Maat 02Maat 03Matrijs
and
tblTermenVertaald with Dutch and English alternatives
nederlandsengelsMaatMeasureMatrixDie Of course, in the first three cases I only wanted to link the first part of the column form the first table. In the last case all of the field could be used. On the internet I found some indications the CASEWHEN could be used in the FROM clause.
It took a little experimenting but finally I cam up with this:
SELECT term, nederlands, engels   FROM tblTermen INNER JOIN  tblTermenVertaald ON      CASE WHEN CHARINDEX(' ',term)>0 THEN LEFT(term, CHARINDEX(' ',tblTermen.term)-1)     ELSE  tblTermen.term      END     = tblTermenVertaald.nederlands 
and it worked!
termnederlandsengelsMaat 01maatmeasureMaat 02maatmeasureMaat 03maatmeasureM…

Friesland: Kano Elfstedentocht 2017

Het elfstedenregister Iedereen die een elfstedentocht zoals met de kano heeft volbracht, kan zich aanmelden bij mijn elfstedenregister.
De kano-elfstedentocht groep Iedereen die meegedaan heeft aan of geïnteresseerd is in de tocht kan zich aansluiten bij de groep. Verslagen vorige tochten2011 2014 De voorbereiding De voorbereiding voor deze elfstedentocht begint voor mij niet goed. Vorig jaar heb ik problemen met mijn elleboog gekregen inclusief een slijmbeursontsteking. In november 2016 ben ik daaraan geopereerd. Op zich is dat gelukt, maar ik merk nog steeds problemen met de pees: een tenniselleboog. Volgens de medici moet zoiets op den duur vanzelf weer over gaan al kan het even duren.
Verder heb ik last van chronische sinusitis waardoor ik te weinig zuurstof krijg en sneller vermoeid raak. De kwaal verergert in de loop van het jaar. De skeelerelfstedentocht moet ik daardoor afzeggen. De kano-elfstedentocht wil ik wel doorzetten. Uiteindelijk wordt er een datum voor een operatie ge…