Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst VBA Access - Minimieren durch doppelklick auf Fenster verhindern

Mitglied: PalOneMike

PalOneMike (Level 1) - Jetzt verbinden

10.10.2011 um 09:54 Uhr, 7205 Aufrufe, 4 Kommentare

Guten Morgen,
ich brauche ein Formular, welches nicht geschlossen, minimiert oder sonstiges werden kann..

Soweit so gut ich habe alles ausgestellt! Die Buttons des Fensters sind weg, sonstige Leisten sind komplett ausgeblendet, das Formular läuft im Vollbild, Kontextmenü ist auch aus.. Es hängt wirklich nur noch daran, dass man das Formular trotzdem per doppelklick auf die Fensterleiste minimieren kann.. Könnte mir jemand dazu den VBA Code geben damit ich dies verhindern kann?

lg Mike
Mitglied: colinardo
10.10.2011 um 10:55 Uhr
Du kannst dem Formular zusätzlich folgende Eigenschaften vergeben damit es den Fokus behält:
Gebunden = Ja
Rahmenart = Keine

Wenn du zusätzlich verhindern willst das das Fenster und somit die Datenbank geschlossen wird kannst du folgenden Code in das VBA Projekt des Formulars kopieren:
(Aber Vorsicht: Du verhinderst damit allgemein in Kombination mit den obigen Eigenschaften das die Datenbank überhaupt geschlossen werden kann; besser wäre hier eine Sicherheitsabfrage für den Benutzer z.B. via MsgBox)
01.
Private Sub Form_Unload(Cancel As Integer)
02.
   Cancel = True
03.
End Sub
Hoffe das hilft dir weiter...
Uwe
Bitte warten ..
Mitglied: PalOneMike
10.10.2011 um 11:28 Uhr
Hallo, danke das klingt schon sehr gut und funktioniert auch soweit

mir gings nur darum, dass niemand etwas ändernm minimieren oder schließen kann.. Im unteren Eck ist ein Button zum Login für einen Admin, welcher dann das aktuelle Formular schließt nach anmeldung und ein Adminmenü öffnet. Mit der weiterleitung auf das Adminformular ist dann alles wieder erlaubt..

mit dem "Cancel = true" wird dann auch das schließen nach dem Login als Admin verhindert oder?

lg Mike
Bitte warten ..
Mitglied: colinardo
10.10.2011 um 11:43 Uhr
mit dem "Cancel = true" wird dann auch das schließen nach dem Login als Admin verhindert oder?

ja das stimmt ! Aber du könntest im Code eine globale Variable hinterlegen die speichert wer gerade angemeldet ist und dann im obigen Code eine Abfrage dieser Variablen hinterlegen. z.B. so:

01.
Private Sub Form_Unload(Cancel As Integer)
02.
   if loggedInUser = "Admin" then
03.
     Cancel = False
04.
   else
05.
     Cancel = True
06.
   End If
07.
End Sub
Bitte warten ..
Mitglied: PalOneMike
10.10.2011 um 12:45 Uhr
Einwandfrei Manchmal liegt die Lösung so nah und man kommt selbst nicht drauf )

Wunderbar.. vielen, vielen Dank :D
*thumbsUp*
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Kreuztabelle Access + VBA Code
Frage von Dr.CornwallisMicrosoft Office7 Kommentare

Hallo zusammen, ich habe eine Kreuztabelle aus einer Query erzeugt, aus dieser entsteht wiederum ein Bericht, nun habe ich ...

Datenbanken
Syntaxfehler VBA Access 2010
gelöst Frage von Dr.CornwallisDatenbanken6 Kommentare

Liebe Gemeinde, ich habe (schon wieder) einen Fehler im Code und ich komm einfach nicht drauf warum es nicht ...

VB for Applications
VBA Code Änderung Access 2010
gelöst Frage von Dr.CornwallisVB for Applications6 Kommentare

Liebe Gemeinde, ein Kollege hat mir einmal einen VBA Code zur Ermittlung des 1. und 5. Arbeitstags eines Monats ...

VB for Applications
Umkreissuche mit Access 2013 VBA
gelöst Frage von evolutionVB for Applications12 Kommentare

Hallo, ich bin auf der Suche nach einer Anleitung zur Umkreissuche mit Access 2013. Wir haben hier von der ...

Neue Wissensbeiträge
Internet
Copyright-Reform: Upload-Filter
Information von Frank vor 1 TagInternet

Hallo, viele Menschen reden aktuell von Upload-Filtern. Sie reden darüber, als wären es eine Selbstverständlichkeit, das Upload-Filter die Seitenbetreiber ...

Google Android

Blokada: Tracking und Werbung unter Android unterbinden

Information von AnkhMorpork vor 1 TagGoogle Android1 Kommentar

In Ergänzung zu meinem vorherigen Beitrag: Blokada efficiently blocks ads, tracking and malware. It saves your data plan, makes ...

Google Android
Facebooks unsichtbare Datensammlung
Information von AnkhMorpork vor 1 TagGoogle Android2 Kommentare

Rund 30 Prozent aller Apps im Play-Store nehmen Kontakt zu Facebook auf, sobald man sie startet. So erfährt der ...

Exchange Server

Exchange 2010 bis 2019 Sicherheitslücke durch CU RU schließen

Information von sabines vor 1 TagExchange Server

Für die hier: und hier: besprochene Sicherheitslücke ist ein Patch für Microsoft Exchange Server 2010 - 2019 verfügbar. RU ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
NETBEUI unter Windows 10
Frage von certifiedit.netLAN, WAN, Wireless26 Kommentare

Guten Abend, wir stehen gerade vor dem Rästel, warum man in einer Industriemaschine (wert gut 6-stellig, paar mal vorhanden) ...

Hardware
Was passiert wenn ein Server zu heiß wird?
Frage von LohrakHardware21 Kommentare

Hallo Sollte ein Server zu heiß werden, da z.B ein Lüfter ausfällt, was würde passieren? Wie meldet sich der ...

Linux Userverwaltung
LogIn Versuche beschränken auf EINEN Versuch
gelöst Frage von GarroshLinux Userverwaltung18 Kommentare

Folgendes Problem Ich habe einen dezidierten Server beim Hoster gemietet, installiert ist Ubuntu 18.04.2 LTS‬ und als Webinterface Plesk. ...

DSL, VDSL
Neuer Glasfaser Anschluss - IPv4-Adressraum
Frage von norre2000DSL, VDSL12 Kommentare

Hallo Zusammen, ich werde meinen Glasfaser Anschluss wechseln und bin beim Ausfüllen des Antrags auf Fragen gestoßen bei denen ...