Probleme beim Einloggen

Tippfarm: MS Office Problemlösungen

Gefundene Lösungen teilen, Fragen stellen - oder nur mitlesen. Titel der Beiträge bitte mit "FRAGE:" oder "TIPP:" beginnen. Viel Vergnügen!

Herbert Fidesser TIPP: RFT-Textfeld in Tabelle per VBA erzeugen
Dieser Tipp wird wohl selten benötigt, aber ich habe die Lösung stundenlang gesucht.
Mit dieser Funktion kann man ein RTF-Feld (das Access in HTML umwandelt) in jeder beliebigen Datenbank erzeugen:
Sub NeuesRTFFeld()
Dim DB As Database, Tbl As TableDef, Fld As Field
Dim x As Boolean
x = SetFieldTextFormat("Pfad&Name der Datenbank", "Tabellenname", Feldname)
End Sub
Public Function SetFieldTextFormat(DBName, TblName, FldName) As Boolean
Dim DB As Database, Tbl As TableDef, Fld As Field, Prp As Property
Set DB = OpenDatabase(DBName)
Set Tbl = DB.TableDefs(TblName)
Set Fld = Tbl.Fields(FldName)
On Error Resume Next
Fld.Properties.Delete "TextFormat"
On Error GoTo 0
Set Prp = Fld.CreateProperty("TextFormat", dbByte, acTextFormatHTMLRichText)
Fld.Properties.Append Prp
End Function
Herbert Fidesser TIPP: Menüband ausblenden
Um das Menüband kompett auszublenden, verwenden Sie - am besten in der Load-Prozedur des Startformulars - folgende Codezeile:
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Einblenden:
DoCmd.ShowToolbar "Ribbon", acToolbarYes
Es gibt aber auch Datenbanken, wo das nicht funktioniert, wenn das Formular automatisch beim Programmstart startet. Den Grund dafür suche ich seit Wochen.
Jan Mönnich
Das hat geholfen:
'File/Options/Current Database/Ribbon and Toolbar options' und 'Allow Built-in Toolbars' ankreuzen
Bin stolz, habe nur drei Tage gebraucht und keine Wochen ;-)
Herbert Fidesser TIPP: Beliebige Datei mit ihrer Anwendung öffnen
Private Declare Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub pdf_Oeffnen()
Call ShellExecute(0&, "Open", "Pfad\Datei.Erweiterung", "", "", 1)
End Sub
Herbert Fidesser TIPP: Tabelle - Index erstellen (Primärschlüssel, zusammengesetze Schlüssel)
Dim idx As Index
Dim DB as Database
Dim tdf As TableDef
Dim fld As Field
set DB = Currentdb
set tdf = db.CreateTableDef("Tabellenname")
'Primärschlüssel
With tdf
Set idx = .CreateIndex("Primary Key")
Set fld = idx.CreateField("ID-Feldname")
idx.Primary = True
idx.Required = True
idx.Fields.Append fld
.Indexes.Append idx
'zusammengestzter Schlüsssel
Set idx = .CreateIndex("Unique")
With idx
.Fields.Append .CreateField("Name_Feld_1")
.Fields.Append .CreateField("Name_Feld_2")
.Primary = False
.Required = True
End With
.Indexes.Append idx
End With

Moderatoren

Infos zu den Moderatoren

Über die Gruppe "Tippfarm: MS Office Problemlösungen"

  • Gegründet: 01.07.2008
  • Mitglieder: 2.756
  • Sichtbarkeit: offen
  • Beiträge: 3.689
  • Kommentare: 3.344
  • Marktplatz-Beiträge: 0