Supportnet / Forum / Datenbanken

Hallo, ich würde gerne das öffnen eines Formulars vereinfachen. Man sollte dann nur noch eine Datei anklicken und dann sollte sich das Formular in der Formularansicht öffnen. Ist das irgendwie möglich? Genial wäre es, wenn man es einstellen könnte, das der Endanwender der Datei dann nicht mal mehr in die Entwurfsansicht kommt und nur noch spezielle Funktionen zur Auswahl hat wie z.B. eine Sortierung, Suche oder die Druck Funktion. Danke im Voraus! Gruß Quarzius

Hi Quarzius,

ja natürlich geht das alles. Du kannst dir die Makros zunutze machen. ÖffnenFormular auswählen und den Formularnamen eingeben. Oder über VBA. Damit der user nicht mehr drin rumfummeln kann verwendest du die Formulareinstellung "Gebunden".

Gruß
Jürgen

Hallo Quarzius,

deine Frage verstehe ich nur teilweise, deswegen hier einige Tipps:

1. Eigenschaft des Formulars / Standardansicht
2. Eigenschaft des Formulars / Zugelassene Ansichten
3. Erstelle für den User eine mde-Datei, denn hier können die Formulare nicht mehr geändert werden

Hoffe, das etwas für dich dabei ist, wenn nicht Frage bitte genauer formulieren !

Gruß
Oliver

Im Menü "Extras - Start..." kannst du alles einstellen.

shrike

Hier, aber Achtung, mit
"AllowBypassKey", dbBoolean, False
kommst Du selbst nicht mehr an Deine Datenbank. Stell das immer auf True bei Dir.


Public Function Starteigenschaften()

EigenschaftÄndern "AppTitle", dbText, "DeinAnwendungsname"
EigenschaftÄndern "AppIcon", dbText, "Pfad\Dein.ICO"
EigenschaftÄndern "StartUpMenuBar", dbText, "DeineMenüleiste"
EigenschaftÄndern "StartUpShortcutMenuBar", dbText, "DeinKontextmenü"
EigenschaftÄndern "StartupForm", dbText, "DeinStartformular"
EigenschaftÄndern "StartupShowDBWindow", dbBoolean, False 'Datenbankfenster anzeigen
EigenschaftÄndern "StartupShowStatusBar", dbBoolean, True 'Statuszeile anzeigen
EigenschaftÄndern "AllowShortcutMenus", dbBoolean, False 'Standard-Kontextmenüs zugelassen
EigenschaftÄndern "AllowToolbarChanges", dbBoolean, False 'Symbolleistenänderungen erlaubt
EigenschaftÄndern "AllowBuiltinToolbars", dbBoolean, False 'Eingebaute Symbolleisten zulassen
EigenschaftÄndern "AllowFullMenus", dbBoolean, False 'Unbeschränkte Menüs anzeigen
EigenschaftÄndern "AllowBreakIntoCode", dbBoolean, True 'Codeansicht nach Fehler zugelassen
EigenschaftÄndern "AllowSpecialKeys", dbBoolean, False 'Access-Spezialtasten verwenden
EigenschaftÄndern "AllowBypassKey", dbBoolean, False 'Umschalttaste zum Umgehen der Starteigenschaften ausschalten (false)

End Function


Function EigenschaftÄndern(strEigName As String, varEigTyp As Variant, varEigWert As Variant) As Integer

Dim dbs As DAO.Database
Dim prp As Property

Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strEigName) = varEigWert
Change_Bye:
dbs.Close
Exit Function
Change_Err:
msgbox Error$
If err = conPropNotFoundError Then 'Eigenschaft nicht gefunden.
Set prp = dbs.CreateProperty(strEigName, _
varEigTyp, varEigWert)
dbs.Properties.Append prp
Resume Next
Else
Resume Change_Bye
End If
End Function


Viel Spaß

Marie

• Excel, automatisches wählen eines datenbereichs pro monat
• öffnen ms access 1.x
• Aktuellen Datensatz eines Formulars als Textdatei ausgeben
• Beim schließen eines Formulars ein anderes aktualisieren