Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Beim starten Access verkleinert zeigen und Formular in den Vordergrund VBA

Frage Entwicklung VB for Applications

Mitglied: thomas1972

thomas1972 (Level 1) - Jetzt verbinden

26.11.2013, aktualisiert 09:41 Uhr, 4581 Aufrufe, 4 Kommentare

Hallo,
ich lasse über ein Startformular Access minimiert starten, so dass nur das Formulari m Vordergrund steht.

01.
Option Compare Database 
02.
 
03.
Private Declare Function ShowWindow Lib "user32" _ 
04.
(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long 
05.
  
06.
Private Const SW_MINIMIZE = 6 
07.
Private Const SW_MAXIMIZE = 3 
08.
Private Const SW_RESTORE = 9 
09.
  
10.
Public Function MinimizeAccess() 
11.
  ShowWindow Application.hWndAccessApp, SW_MINIMIZE 
12.
End Function 
13.
  
14.
Public Function MaximizeAccess() 
15.
  ShowWindow Application.hWndAccessApp, SW_MAXIMIZE 
16.
End Function 
17.
  
18.
Public Function RestoreAccess() 
19.
  ShowWindow Application.hWndAccessApp, SW_RESTORE 
20.
End Function
Aufruf beim starten des Formular

01.
Private Sub Form_Load() 
02.
minimizeaccess 
03.
end fuction
Problem hierbei, dass das Formular nicht vorne bleibt, sondern Access wie angegeben minimiert gestartet wird,
wie bekomem ich es hin, das dann doch das Startfomular im Vordergrund bleibt, Access aber minimiert startet ( oder verkleinert startet)
Mitglied: SlainteMhath
26.11.2013 um 09:41 Uhr
Moin,

versuch mal die Formulare vor dem Minimieren auf Modal=true und Popup=true zu setzen.

lg,
Slainte
Bitte warten ..
Mitglied: thomas1972
26.11.2013 um 10:06 Uhr
Ich habe foglenden Code eingefügt,
danach bleibt Access hängen

01.
Private Sub Form_Load() 
02.
    Set objFrmlogin = New Form_Login 
03.
    With objFrmlogin 
04.
    .Modal = True 
05.
    .Visible = True 
06.
    End With 
07.
 
08.
MinimizeAccess 
09.
 
10.
If IsEXERunning("cmd.exe") Then 
11.
   Shell "taskkill /f /im cmd.exe" 
12.
End If 
13.
 
14.
rpasswort = "" 
15.
varuser = "" 
16.
varemail = "" 
17.
 
18.
End Sub
das formular heisst login
Bitte warten ..
Mitglied: SlainteMhath
26.11.2013 um 10:12 Uhr
Dein Code macht auch nur bedingt Sinn..
Du erstellst beim Laden des Formulars eine neue Instanz... das kann nicht funktionieren.

Ersetze mal die Zeilen 2-6 durch
01.
me.modal=true 
02.
me.popup=true
oder setze die Eigenschaften direkt in der Entwurfsansicht.
Bitte warten ..
Mitglied: thomas1972
26.11.2013 um 10:20 Uhr
Danke schön,

den wald vor lauter Baumen nicht gesehen.
Bitte warten ..
Neuester Wissensbeitrag
Festplatten, SSD, Raid

12TB written pro SSD in 2 Jahren mit RAID5 auf Hyper-VServer

Erfahrungsbericht von Lochkartenstanzer zum Thema Festplatten, SSD, Raid ...

Ähnliche Inhalte
VB for Applications
gelöst Xml-Datei laden bzw. auf Festplatte kopieren und per VBA in eine Access-Tabelle speichern (22)

Frage von machohunk zum Thema VB for Applications ...

Datenbanken
gelöst Syntaxfehler VBA Access 2010 (6)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Datenbanken
gelöst Access Report per Email versenden, hat jemand zufällig einen Code dafür(VBA) (7)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (34)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...