Ich bräuchte eine Code mit welchem ich eine Datenbank die an eine bestimmten platz auf der Festplatte liegt mit Access öffnen kann. Mir ist es wichtig das Access im Vollbildmodus startet. Den Code zum starten habe ich schon hinbekommen mit create access object aber der startet nicht im Vollbild, immer nur hal irgendwo auf dem Bildschirm.
Danke im vorraus für die Antworten.
Ich bräuchte eine Code mit …
s. www.google.de
s. F1-Hilfe
…Mir ist es wichtig das Access im Vollbildmodus startet…
was soll im Vollbildmodus gestartet werden?
Access-Application ode einer der Formulare aus der Access-DB?
Den Code zum starten habe ich schon hinbekommen mit create access
Wer oder was führt ‚create access‘ aus? Beim Öffnen der MDB hat man einen App-Object, beim erzeugen eines Access-App-Objektes in eigener Applikation kann man dieses nach beleben kneten und quelen. Man brauch nur das Objektmodell des Access-Objektes (F1-Hilfe!)
Hallo Waldemar,
vielen Dank für die prompe Antwort.
Wie schon bemerkt, habe ich nicht sehr viel Ahnung. Bisher such ich mir nur Code- Snipsel zusammen und versuche diese zu verstehen und für meine Bedürfnisse anzupassen.
Bei Googel habe ich schon Tage was zu finden versucht, aber ich komme einfach nicht weiter.
Das ist auch mein erste Forum in dem ich Fragen stelle, dabei bin ich also auch ein Anfänger.
Zur besseren Erklärung mein Code:
Private Sub Command5_Click()
Dim objAccess As Object
Set objAccess = CreateObject(„Access.Application“)
objAccess.OpenCurrentDatabase"C:\Programme\DRK Wachenprotokoll\Wachenprotokoll.accdb",vbNormal Focus
objAccess.Visible = True
objAccess.UserControl = True ’
ich weiss nicht genau was du mit vollbild meinst. ich öffne in vb die datenbank um anschließend anweisungen zu geben direkt daten abzufragen oder zu schreiben oder die datenbank tabelle meiner wahl direkt an eine tabelle oder so zu höngen:
Public Function Datenbank_abfrage(SQL) As String '(SQL, key1) As String
Dim rsTest As ADODB.Recordset
Dim cnnDB As ADODB.Connection
Set cnnDB = New ADODB.Connection
With cnnDB
.Provider = „Microsoft.Jet.OLEDB.4.0“
.Mode = lngMode
.Properties(„Jet OLEDB:smiley:atabase Password“) = MASTER_PW
.Properties(„Jet OLEDB:System Database“) = strSysDBPath
.Properties(„Jet OLEDB:Engine Type“) = lngEngineType
.Open ConnectionString:=„meinpasswort“’, UserID:=strUserID, Password:=strUserPwd
.CursorLocation = adUseClient
End With
Set GetJetConnection = cnnDB
Set rsTest = New Recordset
On Error GoTo ende_suche
rsTest.Open SQL, cnnDB, adOpenStatic, adLockBatchOptimistic 'adLockOptimistic
'lbl_last_ma_login.Caption = rsTest(0)
'MsgBox SQL
'MsgBox rsTest(0)
Dim i
i = 1
DB_Ergebnis = „“
While Not rsTest.EOF
'ReDim DB_Ergebnis(i)
'DB_Ergebnis(i) = rsTest(i - 1)
DB_Ergebnis = rsTest(i - 1)
'i = i + 1
rsTest.MoveNext
Wend
rsTest.Close
ende_suche:
End Function
Hallo boesi666_2,
vielen Dank für die prompe Antwort.
Wie schon bemerkt, habe ich nicht sehr viel Ahnung. Bisher such ich mir nur Code- Snipsel zusammen und versuche diese zu verstehen und für meine Bedürfnisse anzupassen.
Dieser Code ist für mich bei weitem zu kompliziert. Ich habe dir einmal die Sub dazugeschrieben.
Private Sub Command5_Click()
Dim objAccess As Object
Set objAccess = CreateObject(„Access.Application“)
objAccess.OpenCurrentDatabase"C:\Programme\DRK Wachenprotokoll\Wachenprotokoll.accdb",vbNormal Focus
objAccess.Visible = True
objAccess.UserControl = True ’
Hallo
Versuche ggf dem Objekt über die Properties den Vollbildmodus mitzugeben, bevor/Nachdem es angezeigt wird.
ich hoffe es funktioniert.
MfG Gerd Gosdeck
Hallo Ingo,
zu dem Code:
Dim objAccess As Access.Application - macht dir das Leben leichter
Du solltest die Objekte (Variablen) mit zugehörigen Datentypen deklarieren (hier ‚Access.Application‘ statt ‚object‘) -> Objektmodell
Die gesuchte Lösung (wenn ich das Problem richtig verstehe) ist unter :
http://www.google.de/search?q=access+vollbild+starten
erster Treffer :
http://www.digital-inn.de/ms-access/30556-access-aut…
Option Compare Database
Option Explicit
Private Sub Form\_Open(Cancel As Integer)
RunCommand acCmdAppMaximize
DoCmd.Maximize
End Sub
Dieser Code muss eventuell in die Wachenprotokoll-DB rein.
MfG
W.W.
Dank,
für die Antwort. Jedoch denke ich, daß ich mich falsch ausgedrückt habe. Nicht Access soll über einen Befehl zum Öffnen eines Formulars in den Vollbildmodus gebracht werden, sondern eine Virtual Basic exe welche die Datenbank öffnet soll diese Datenbank im Vollbild öffnen.
Anbei der bisherige Code:
Private Sub Command5_Click()
Dim objAccess As Object
Set objAccess = CreateObject(„Access.Application“)
objAccess.OpenCurrentDatabase"C:\Programme\DRK Wachenprotokoll\Wachenprotokoll.accdb",vbNormal Focus
objAccess.Visible = True
objAccess.UserControl = True ’
Kannst Du mal den Code posten ?
Dannn schauen wir mal …
Vielleicht hilft das hier aber auch schon:
_____________________________________________________
Dim stAppName As String
Dim gDir As String
gDir = VorlPfad
stAppName = „access.mdb /e,“ & gDir
Call Shell(stAppName, vbMaximizedFocus) 'vbMaximizedFocus=3
______________________________________________________
Hallo,
versuche dem Obejct dass das Access Object initalisiert, die eigenschaft Vollbild mitzugeben.
Dies sollte dann möglich sein, wenn Sie eine vbForm verwenden um die Daten anzuzeigen.
MfG Gerd Gosdeck
Ich habe Ingo direkt eine Mail zukommen lassen. Die sollte er lesen und mir die entsprechenden Daten zukommen lassen.
Erst dann kann ich dazu was sagen.
Ist die frage noch aktuell ?