Ansichten des Unterformulars per VBA ändern

[Ralf Schollmeyer]

Hallo NG,
ich möchte gern ein Unterformular, welches beim normalen Öffnen als
Einzelformular erscheint,
per Klick als Datenansicht umschalten.
Leider gibt es dann Fehlermeldungen weil wahrscheinlich dann das
Hauptformular (da ist die Datenansicht gesperrt)
sich angesprochen fühlt.
Das Laden eines anderen, schon in Datenanicht formatieren Unterformulars,
hat in soweit das Problem, das dann wieder der erste Datensatz zu sehen ist,
nicht der den man zuvor im ersten UF ausgewählt hatte.
Wie kann man die Ansicht des gelaednen UF ändern?

MfG
Ralf

[Karl Donaubauer]

Post by Ralf Schollmeyer
ich möchte gern ein Unterformular, welches beim normalen Öffnen als
Einzelformular erscheint, per Klick als Datenansicht umschalten.
Leider gibt es dann Fehlermeldungen weil wahrscheinlich dann das
Hauptformular (da ist die Datenansicht gesperrt)
sich angesprochen fühlt.
Das Laden eines anderen, schon in Datenanicht formatieren Unterformulars,
hat in soweit das Problem, das dann wieder der erste Datensatz zu sehen
ist, nicht der den man zuvor im ersten UF ausgewählt hatte.
Wie kann man die Ansicht des gelaednen UF ändern?

Geht per RunCommand. Mit Klick wohin/worauf ist noch die Frage.
Falls das irgendwo im Hauptformular sein soll, dann musst du
vorher noch den Fokus auf's UFo setzen:

Me!DeinUFoSteuerelement.SetFocus
RunCommand acCmdSubformDatasheet

[Ralf Schollmeyer]

Hallo Karl,
hab den Code eingebaut und auch die jeweiligen Ansichten erlaubt, gedoch
bekomme ich den Fehler:
Wenn ich diese Eigenschaft ändern will, soll ich das Formular in der
Entwurfsansicht öffnen!
Irtgendwas fehlt noch - weiß bloß nicht was!
Mfg
Ralf

[Karl Donaubauer]

Post by Ralf Schollmeyer
hab den Code eingebaut und auch die jeweiligen Ansichten erlaubt,
Wenn ich diese Eigenschaft ändern will, soll ich das Formular in der
Entwurfsansicht öffnen!
Irtgendwas fehlt noch - weiß bloß nicht was!

Vielleicht hast du auch etwas zuviel oder falsch.
Du solltest verraten, bei welchem Ereignis welchen Objektes
du den Code eingebaut hast und wie er jetzt aussieht.

Falls du ihn wie gepostet mit Setfocus verwendest, dann
teste mal mit der Setfocus-Zeile alleine, ob der Bezug stimmt.

[Ralf Schollmeyer]

Hallo Karl,
ich benutze eine OptionGroup (2 Optionfelder) und lese dann das ausgewählte
Optionfeld aus der Gruppe aus (Hauptformular).
Je nachem möchte ich dann Datenblattansicht oder Formularansicht.
Der SetFocus funktioniert scheinbar. Bei Ausführung des DoCmd.RunCommand
acCmdSubFormDatasheet im Case 2 entsteht der Fehler 2136.
Das ist mein Code:

Private Sub OpG_Click()
On Error GoTo FehlerDataSheet
Me.UF.SetFocus
Select Case OpG.Value
Case 1: DoCmd.RunCommand acCmdSubformFormView
Case 2: DoCmd.RunCommand acCmdSubformDatasheet
End Select
Exit Sub
FehlerDataSheet:
Select Case Err
Case 2046
'Datasheet view not available
MsgBox "This command not available at this time"
Exit Sub
Case Else
MsgBox Err.Number & vbCrLf & Err.Description
Exit Sub
End Select
End Sub

Post by Karl Donaubauer

Post by Ralf Schollmeyer
hab den Code eingebaut und auch die jeweiligen Ansichten erlaubt,
Wenn ich diese Eigenschaft ändern will, soll ich das Formular in der
Entwurfsansicht öffnen!
Irtgendwas fehlt noch - weiß bloß nicht was!

Vielleicht hast du auch etwas zuviel oder falsch.
Du solltest verraten, bei welchem Ereignis welchen Objektes
du den Code eingebaut hast und wie er jetzt aussieht.
Falls du ihn wie gepostet mit Setfocus verwendest, dann
teste mal mit der Setfocus-Zeile alleine, ob der Bezug stimmt.
--
HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
Datenbank-Profis: http://www.dbdev.org

[Karl Donaubauer]

Post by Ralf Schollmeyer

Post by Ralf Schollmeyer
hab den Code eingebaut und auch die jeweiligen Ansichten erlaubt,
Wenn ich diese Eigenschaft ändern will, soll ich das Formular in der
Entwurfsansicht öffnen!
Irtgendwas fehlt noch - weiß bloß nicht was!

...

ich benutze eine OptionGroup (2 Optionfelder) und lese dann das
ausgewählte Optionfeld aus der Gruppe aus (Hauptformular).
Je nachem möchte ich dann Datenblattansicht oder Formularansicht.
Der SetFocus funktioniert scheinbar. Bei Ausführung des
DoCmd.RunCommand acCmdSubFormDatasheet im Case 2
entsteht der Fehler 2136.
Private Sub OpG_Click()
On Error GoTo FehlerDataSheet
Me.UF.SetFocus
Select Case OpG.Value
Case 1: DoCmd.RunCommand acCmdSubformFormView
Case 2: DoCmd.RunCommand acCmdSubformDatasheet
End Select
Exit Sub
Select Case Err
Case 2046
'Datasheet view not available
MsgBox "This command not available at this time"
Exit Sub
Case Else
MsgBox Err.Number & vbCrLf & Err.Description
Exit Sub
End Select
End Sub
...

Kannst du per Menüpunkt Ansicht/Unterformular/Datenblatt
die Ansicht wechseln, wenn der Cursor im UFo ist?

Handelt es sich vielleicht um eine mit dem Access-Sicherheitssystem
geschützte Datenbank? Falls ja, hat der aktuelle User Entwurfsrechte
auf das Formular?

[Gunter Avenius]

Hallo Ralf,

Post by Ralf Schollmeyer
ich möchte gern ein Unterformular, welches beim normalen Öffnen als
Einzelformular erscheint,
per Klick als Datenansicht umschalten.
Leider gibt es dann Fehlermeldungen weil wahrscheinlich dann das
Hauptformular (da ist die Datenansicht gesperrt)
sich angesprochen fühlt.
Das Laden eines anderen, schon in Datenanicht formatieren
Unterformulars, hat in soweit das Problem, das dann wieder der
erste Datensatz zu sehen ist, nicht der den man zuvor im ersten UF
ausgewählt hatte.
Wie kann man die Ansicht des gelaednen UF ändern?

http://www.tkwickenden.clara.net/codeex/108.htm