janikvonrotz

# Title: 

# File name: 
# Description: 
# Tags: 
# Project: 

# Author: Janik von Rotz
# Author Contact: http://janikvonrotz.ch

janikvonrotz

Default / TYPO3 / Linux Config / Powershell / 

# comment

PHP

// comment

CSS / JavaScript

janikvonrotz

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

Private Sub btAuswerten_Click()

'Folgende Auswertungen sind möglich:

'Datenblatt Anlage
'Auswertung Wasserzinsen
'Auswertung Kontrollrapport
'GIS-Erdsonden
'GIS-Grundwasser
'GIS-Erdregister & Erdpfähle

janikvonrotz

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

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

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

    'Ö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

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

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