Doorgaan naar hoofdcontent

Posts

Excel: draaitabel baseren op een benoemde "tabel"

Op het gevaar af een open deur in te trappen toch maar even over de draaitabel op basis van een benoemde "tabel". Elke keer als ik mensen vertel dat dat in Excel toch echt de beste manier is, stuit ik in de meeste gevallen op: "nooit eerder gehoord". Hoe werkt het? Stel we hebben een lijst in Excel. Ik heb hier even de gegevens van de Orderinformatie uit de database Noordenwind gebruikt. Als we hier op de gewone manier een draaitabel van maken via Invoegen => Draaitabel, zien we: We zien dat het bereik er letterlijk in staat:  Blad1!$A$1:$E$2145 . Als we de draaitabel gemaakt hebben en het bereik wordt groter, dan hebben we een probleempje. Ik zie veel mensen dit oplossen door maar te kiezen voor bijvoorbeeld:  Blad1!$A:$E . Hoppakee, we pakken de hele kolommen maar. Dit werkt in zekere zin voor nieuwe rijen, maar als er een kolom bij komt, moeten we toch het bereik gaan uitbreiden. Hoe werkt het nu als we er eerst een "tabel" van maken?...

Access: VBA script voor overzicht van tabellen en kolommen van een database naar Excel bestand

Op de SQL Server kun je met een vrij simpele SQL query een overzicht maken van tabellen, kolommen en informatie als datatype etc. SELECT T . table_name , column_name , data_type , T . TABLE_TYPE , character_maximum_length , ordinal_position , is_nullable FROM INFORMATION_SCHEMA . TABLES T INNER JOIN INFORMATION_SCHEMA . COLUMNS C ON T . TABLE_NAME = C . TABLE_NAME WHERE T . TABLE_TYPE = 'BASE TABLE'  OR T.TABLE_TYPE='VIEW' ORDER BY T . table_name , ordinal_position , column_name De uitkomst kun je dan bijvoorbeeld kopiëren naar een Excel bestand waar je dan simpel selecties kunt doen. In Access bestaat zoiets niet. Wil je daar een overzicht hebben van tabellen en kolommen dan kun je een rapport uitdraaien. Dat levert evenwel geen mooie lijst op. Dan komt VBA in beeld. Na enig speurwerk op internet en de nodige aanpassingen en toevoegingen door mij kom ik tot het volgende script: Sub ListTablesADOX()     Dim Conn As New ADODB.Connection ...

Friesland: bijzondere grafzerk uit Harlingen

In de stad Harlingen is onlangs een bijzondere grafzerk tevoorschijn gekomen. De zerk bevond zich in de tuin van Zeepziederstraat 6. Deze steen zal oorspronkelijk wel in de Harlinger Westerkerk hebben gelegen. Deze kerk is in 1898 gesloopt. Helemaal duidelijk is het nog niet. Archivaris Jeanine Otten schrijft: In 1834 noteerde Freerk Dirks Fontein alle grafschriften in de Westerkerk, maar het grafschrift van Hamen Synes Nauta zat daar wonderlijk genoeg niet bij. Ik heb in de begraafboeken van Harlingen ook geen vermelding gevonden. Dat is wel een raadsel. Het is een bijzonder zware grafzerk met een dikte van 23 cm. Verder is de zerk breed 1,42 meter. en hoog 2,03 meter. Gelet op de niet leesbare vage letters in het middenveld is het een hergebruikte zerk. De Vereniging Oud Harlingen zoekt nu naar een plek in de stad om de zerk daar in het zicht te herplaatsen. Melle Koopmans en Meindert Tangerman van de Grêfskriftekommisje hebben de tekst grotendeels weten te ontcijferen: A...

Excel: beveiling op basis van Windows loginnaam met VBA

Momenteel ben ik bezig een Excel applicatie te beveiligen op basis van de Windows inlognamen. Aan de hand van de inlognaam worden rechten toegekend. Aan de hand van deze rechten zijn bepaald menuknoppen wel of niet zichtbaar. Hoe gaat zoiets in zijn werk? Bij het openen van de werkmap wordt gekeken naar de Windows loginnaam met Environ("UserName") . Op een blad met de naam Inlognamen wordt gekeken welke rechten erbij horen. Op basis van deze rechten worden bepaald ActiveX opdrachtknoppen op een blad met de naam Menu wel of niet zichtbaar gemaakt. De VBA code ziet er globaal zo uit: Private Sub Workbook_Open()     strInlognaam = Environ("UserName")     Sheets("inlognamen").Activate     For Each rngCel In ActiveSheet.UsedRange.Columns(1).Cells         If rngCel.Value = strInlognaam Then             strRechten = rngCel.Offset(0, 1).Value             Exit For ...

Friesland: onbekende grafzerken uit Haskerdijken

Op 12 februari 2016 hebben twee leden van de Grêfskriftkommisje een bezoek gebracht aan de kerk in Haskerdijken. Erg afgelegen en door de mist ook bijna niet te vinden. Uiteindelijk toch gelukt en met resultaat: zes onbekende grafzerken. Grafzerk 1 De Latijnse tekst van de sterk beschadigde steen laat zich wat moeilijk ontcijferen. ... iuly ... saa... ... obiit ... Iohannes Owney sen... ...tes hujus pagi Het gaat hier om predikant Johannes Overney , afkomstig uit Warendorp. Hij stond hier als dominee van 1605 tot aan zijn dood in vermoedelijk 1629. Grafzerk 2 Anno 1650 den 13 iuni [is in den] heere christelick onslapen de eerwaerdige ende seer godsalgen Rodolph Yoannnis Tenninck yn syn leeve getrouwe bedienaer de[s] h eevangelums in die [ger]eformeerde gemente tot Haskerdicken in leit alhier begraven out 31 yaren Roelof Johannes Tenninck stond hier als dominee van 1646 tot 1650. Grafzerk 3 ... Soo cloeckne vrije deucht gunst minnelijcke seden  Een har...

Friesland: inscripties, nu PDF per plaats te downloaden

Voor een brede beschikbaarheid van de memorabilia uit Friesland uit de periode 1280-1811 heb ik de mogelijkheid gecreëerd om per plaats een PDF te kunnen downloaden. Het gaat in totaal om 350 bestanden die allemaal via de link  downloaden PDF per plaats  voor iedereen toegankelijk zijn. Zo kan bijvoorbeeld elke kerk (bijvoorbeeld voor tsjerkepaad ) of elk museum een overzicht ophalen en desgewenst afdrukken.

Friesland: oude grafzerken uit de kerk van St Annaparochie tevoorschijn

Nadat in de afgelopen jaren de kerken van buurplaatsen OL Vrouwenparochie en St Jacobsparochie onder handen zijn genomen, is het nu de beurt aan de Van Harenskerk uit St Annaparochie. Voor OL Vrouwenparochie zie  http://hesseldewalle.blogspot.nl/2014/10/friesland-de-zeventiende-eeuwse-kerk.html Afgelopen tijd is al een deel van de vloer verwijderd. Op elf januari van 2016 een eerste bezoek gebracht aan de kerk. We hebben er zeven onbekende grafzerken aangetroffen. Uit: Grafschriften en andere genealogische en heraldieke merkwaardigheden in en om de kerken tussen Flie en Lauwers. Deel II Het Bildt Het gaat om de grafzerken die op de kaart aan westkant met de letters A en B zijn aangegeven. Het was dus wel bekend dat ze er lagen, maar niet bekend wat er op stond. Wel, het volgende: Grafzerk 1 Tekst: Anno 1616 de 26 junij sterf d eerbare Haesije Iacobs dr d huijsfrou van Aerjen Leenderts out 29 iaer en leit hier begrauen met 2 kindere A L Zij is de doc...