App Entwicklung für Mobile, Web, Desktop

VBA: SQL statement to remove Primary Key from Microsoft Access table

History: In microsoft access a primary key is an index with name PRIMARYKEY (one word) How to remove:

 

SQL extend a Recordset / VBA DAO etc.

Sometimes you will get a problem if you want to add a data entry to a recordset, it can be done without the need of inserting the data entry to the table. It is a little bit tricky but with a union statement you can do following: your normal statement looks like:

  and

weiterlesen

Microsoft Access Operation muss eine aktualisierbare Abfrage verwenden

Problem:   Die Aggregatsfunktionen (z.B. Min, Max usw.) einer in dieser Aktualisierungsabfrage eingebundenen Auswahlabfrage verhindern das ausführen.   Lösung:   Nachbauen der benötigten Funktion in VBA. Hier mit dem Beispiel Min.   Code:   Public Function eMin(strField As String, strTblOrQry As String) As Double   eMin = DMin(strField, strTblOrQry)   End Function   Verwendung:  

weiterlesen

Compile Error in Hidden Module oder Object libary invalid; Killbits

  Am Beispiel des Date and Time Pickers (Kalendersteuerelement bekannt aus Access). Dieses recht populäre Steuerelement hat in der Sammlung des MSCOMCT2.OCX Active X Steuerelemente (ausgeliefert als Visual Basic Runtime Extended Files) in bestimmten Versionen ein Problem:     Problem:   Die problemhaften Versionen dieses Steuerelement beinhalteten eine schwere Sicherheitslücke und wurde deshalb von Microsoft

weiterlesen

Microsoft Office Performance

  Mit der Zeit oder nach der Installation von neuen Programmen merkt man, dass ein Office Produkt langsamer geworden ist.  Es kann auch sein das ein Office Produkt sich merkwürdig verhält, z.B. bei Word nach jedem getippten Buchstaben eine Sanduhr folgt.   Woran liegt das?   Wie in meinem Blog bereits behandelt gibt es Addin, Common Addins,  VBA

weiterlesen

VBA Laufzeitfehler 91 oder 1004

Fehlermeldungen:   Objektvariable oder With-Blockvariable nicht festgelegt Objekt nicht gefunden   Behebungsvariante:   Sub Beispiel() Dim objBeispiel As Object Set objBeispiel = Nothing If objBeispiel Is Nothing Then MsgBox („“) End Sub