Office: Gehe zum letzten Datensatz und führe VBA aus

RFausH · 5. Juli 2004

Hallo Forum !

Ich möchte beim schließen eines Eingabe-Formulares einen VBA-Code in einem Haupt-Formular ausführen.
Das Eingabe Formular wird mit folgendem Code geschlossen:
Code:

DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close acForm, Me.Name
DoCmd.Close acForm, "Hauptmaske_Vorgang"
DoCmd.OpenForm "Hauptmaske_Vorgang"
DoCmd.GoToRecord , , acLast
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In dem Form "Hauptmaske_Vorgang" soll der folgender Code ausgeführt werden:
Code:

Sub getButton()

If Me!Vorgang_Posten_Unterformular.Form.RecordsetClone.RecordCount > 0 Then
Me!Edit.Enabled = True
Me!Datenausgabe.Enabled = True
Else
Me!Edit.Enabled = False
Me!Datenausgabe.Enabled = False
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Ereignis "Öffnen" des Formulars steht folgender Eintrag:

getButton

Nur das funktioniert nicht, da der letzte Befehl nicht "Open Form" sondern
"GoToRecord" ist.

Ich habe keine Idee wie dieses zu lösen ist und bitte
deshalb um Hilfe.

Gruß
RFausH

AD: Code-Tags gesetzt. S. dazu auch Darstellung von Code-Abschnitten.

:)

Nouba · 7. Juli 2004

Versuchs mal so
Code:

If Me.Dirty Then Me.Dirty = False
DoCmd.Close acForm, Me.Name
If FormIstGeladen("Hauptmaske_Vorgang") Then
Forms("Hauptmaske_Vorgang").SetFocus
'ggf. erweitern durch
' Forms("Hauptmaske_Vorgang").Requery
Else
DoCmd.OpenForm "Hauptmaske_Vorgang"
End If
DoCmd.GoToRecord , , acLast

'kann man auch in globalem Modul ansiedeln
Function FormIstGeladen(ByVal strFormName As String) As Boolean
' Gibt False (0) zurück, wenn das Formular nicht geöffnet ist
' oder True (-1) falls das Formular geöffnet ist
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) 0 Then
If Forms(strFormName).CurrentView 0 Then
FormIstGeladen = True
End If
End If
End Function

' Kode für das Formular "Hauptmaske_Vorgang"
Private Sub Form_Current()
Dim blnHatDatensaetze As Boolean

blnHatDatensätze = Me!Vorgang_Posten_Unterformular.Form.RecordsetClone.RecordCount > 0
Me!Edit.Enabled = blnHatDatensaetze
Me!Datenausgabe.Enabled = blnHatDatensaetze
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

RFausH · 7. Juli 2004

Vielen Dank Nouba !

Gibt es denn auch die Möglichkeit einen Code in einem anderen Form direkt anzusprechen ? Z.B. : Beim schließen des Formulars "Eingabe_Vorgang" möchte ich den Code der im geöffneten Form "Hauptmaske_Vorgang" unter "Sub getButton ()" steht ausführen.

Gruß
RFausH

Nouba · 8. Juli 2004

Beim schließen des Formulars "Eingabe_Vorgang" möchte ich den Code der im geöffneten Form "Hauptmaske_Vorgang" unter "Sub getButton ()" steht ausführen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das geht auch, in dem die Prozedur öder Funktion öffentlich (statt Private Public in der Deklaration verwenden) gemacht wird.

RFausH · 8. Juli 2004

Besten Dank, es klappt !

Gruß RFausH

Office: Gehe zum letzten Datensatz und führe VBA aus

Gehe zum letzten Datensatz und führe VBA aus

Gehe zum letzten Datensatz und führe VBA aus

Gehe zum letzten Datensatz und führe VBA aus

Gehe zum letzten Datensatz und führe VBA aus - Similar Threads - Gehe Datensatz führe

Links gehen beim umwandeln in PDF verloren

Beim horizontalen Verschieben von Tabellenspalten gehen Hintergrundfarben verloren.

Wenn eine Zelle größer Null, dann gehe zu einer anderen Zelle

Wenn in Zelle A1 "Auto" dann in Zelle A2 "Fahren", wenn in Zelle A1 "zu Fuß" dann in Zelle A2 "Gehen

Gehe zu einem bestimmten Datensatz mit Kriterien

Gehe zu bestimmtem Datensatz

193997 Datensätze impotiert, 8 gehen dabei verloren