Skip to content

Instantly share code, notes, and snippets.

Avatar

Janik Vonrotz janikvonrotz

View GitHub Profile
@janikvonrotz
janikvonrotz / Metadata
Last active Dec 18, 2015
Metadata #Metadata #CodingStandards #Batch #PowerShell #VisualBasic #XML #CSS #JSON #HTML
View Metadata
# Title:
# File name:
# Description:
# Tags:
# Project:
# Author: Janik von Rotz
# Author Contact: http://janikvonrotz.ch
@janikvonrotz
janikvonrotz / Comments
Created Jun 10, 2013
Comments #CodingStandards
View Comments
Default / TYPO3 / Linux Config / Powershell /
# comment
PHP
// comment
CSS / JavaScript
@janikvonrotz
janikvonrotz / License.md
Last active Dec 18, 2015
License #Metadata #CodingStandards
View License.md

License easy

This work is licensed under the Creative Commons Attribution-ShareAlike 4.0 International License. To view a copy of this license, visit http://creativecommons.org/licenses/by-sa/4.0/ or send a letter to Creative Commons, PO Box 1866, Mountain View, CA 94042, USA.

License restricted

This work is licensed under the Creative Commons Attribution-NonCommercial-NoDerivatives 4.0 International License. To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-nd/4.0/ or send a letter to Creative Commons, PO Box 1866, Mountain View, CA 94042, USA.

@janikvonrotz
janikvonrotz / Dropdown Open a Form.vbs
Created Jun 10, 2013
MSAccess: Dropdown Open a Form #VisualBasic #MSAccess
View Dropdown Open a Form.vbs
Private Sub btAuswerten_Click()
'Folgende Auswertungen sind möglich:
'Datenblatt Anlage
'Auswertung Wasserzinsen
'Auswertung Kontrollrapport
'GIS-Erdsonden
'GIS-Grundwasser
'GIS-Erdregister & Erdpfähle
@janikvonrotz
janikvonrotz / Full Text SQL Search Query.vbs
Created Jun 10, 2013
MSAccess: Full Text SQL Search Query #VisualBasic #MSAccess
View Full Text SQL Search Query.vbs
Option Compare Database
'Erstellt ein SQL Query anhand eines Suchbegriffs
'DataSearch (vSearchtabel: Zu durchsuchende Table, vSearchKey: Suchbegriff, vOrderby: Sortieren nach, vBlackList: Spalten ignorieren, vWhere: Where Condition, vFrom: From Condition
Public Sub DataSearch(vSearchtable As String, vSearchKey As String, vOrderby As String, vBlackList, vWhere As String, vFROM As String)
'SQL Source Query
Dim strSQL As String
@janikvonrotz
janikvonrotz / Login Form.vbs
Created Jun 10, 2013
MSAccess: Login Form #VisualBasic #MSAccess
View Login Form.vbs
Option Explicit
Option Compare Database
Private intLogonAttempts As Integer
Private Sub Form_Current()
'On open set focus to combo box
Me.bt_Login.SetFocus
intLogonAttempts = 0
End Sub
@janikvonrotz
janikvonrotz / MD5 Hash Function.vbs
Created Jun 10, 2013
MSAccess: MD5 Hash Function #VisualBasic #MSAccess
View MD5 Hash Function.vbs
Option Explicit
Option Base 0
' A VB6/VBA procedure for the MD5 message-digest algorithm
' as described in RFC 1321 by R. Rivest, April 1992
' First published 16 September 2005.
' Updated 2010-10-20 to fix ">" vs ">=" issue in uwAdd.
' --Thanks to Loek for this.
@janikvonrotz
janikvonrotz / Open Formular an jump to record.vbs
Created Jun 10, 2013
MSAccess: Open Formular an jump to record #VisualBasic #MSAccess
View Open Formular an jump to record.vbs
'Öffnet ein Formular und springt zu Datensatz mit einer bestimmten ID
'OpenForm(vForm: zu öffnendes Formular, vIDControl: Steuerlement mit ID, vIDColumn: Legt Spalte mit ID in Zielformular fest
Public Sub OpenForm(vForm As String, vIDControl As Control, vIDColumn As String)
If Not IsNull(vIDControl) Then
'Formular wird geöffnet
If vForm <> "frmPumpe" Then
DoCmd.OpenForm vForm, acFormDS
End If
@janikvonrotz
janikvonrotz / Rename imported tables.vbs
Created Jun 10, 2013
MSAccess: Rename imported tables #VisualBasic #MSAccess
View Rename imported tables.vbs
Public Function TabellenUmbenennen()
' Diese Funktion benennt alle Tabelle um und
' schneidet den vorgestellten Text "dbo_" ab.
Dim tdfLoop
Dim NewName As String
For Each tdfLoop In CurrentDb().TableDefs
If Left(tdfLoop.Name, 4) = "dbo_" Then
@janikvonrotz
janikvonrotz / Save custom id to registry.vbs
Created Jun 10, 2013
MSAccess: Save custom id to registry #VisualBasic #MSAccess
View Save custom id to registry.vbs
Private Sub Form_Load()
'Identifikatoren zur eindeutigen Speicherung in der Registry
Dim PumpeLoadID As Integer
Dim NameOption As String
'Erstellen des eindeutigen Schlüssels
NameOption = "tblpumpe.idPumpe" & Environ("USERNAME")
'Lädt die Einstellung
You can’t perform that action at this time.