Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Verweis auf Funktion
zurück: Datumswert automatisch erhöhen nach 24:00 Uhr weiter: Hauptformular über Unterformular öffnen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
18. März 2008, 03:15
Rufname:

Verweis auf Funktion - Verweis auf Funktion

Nach oben
       Version: Office XP (2002)

Hallo mal ne ganz blöde Frage von mir.

Ich habe ein HauptFormular + UFO 1 und UFO2

Im HF ist eine Funktion.
Diese Funktion soll auf deine Funktion in UFO1 verweisen und UFO2.

Das Problem ist aber dass in UFO1 und UFO2 die Funktionen mit Private deklariert sind. Das ist dann nicht möglich oder? Ich habe das auf Public geändert aber funktioniert noch immer nicht.

Wie bekomme ich das am besten hin?
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If MsgBox("Möchten Sie den Datensatz speichern?", vbYesNo) = vbNo Then
        Cancel = True
        Me.Undo
      Else
        Löschen_Erfassung_Click '(<<------- das ist die Funktion in UFO1)
    End If
End Sub
Gast



Verfasst am:
20. März 2008, 00:38
Rufname:


AW: Verweis auf Funktion - AW: Verweis auf Funktion

Nach oben
       Version: Office XP (2002)

Und was ist wenn du die Funktion als Modul schreibst?
jens05
Moderator


Verfasst am:
20. März 2008, 07:22
Rufname:
Wohnort: ~~~~~

AW: Verweis auf Funktion - AW: Verweis auf Funktion

Nach oben
       Version: Office XP (2002)

Hallo,
nachdem die Funktion sich in einem anderen Form befindet, ist zum aufrufen der Formname ebenfalls erforderlich.
Code:
        Me!Ufoname.Löschen_Erfassung_Click()

_________________
mfg jens05 Wink
Gast



Verfasst am:
20. März 2008, 16:06
Rufname:

AW: Verweis auf Funktion - AW: Verweis auf Funktion

Nach oben
       Version: Office XP (2002)

Hallo ein Frage habe ich noch Smile
wenn ich die Frage beantwortet bekomme habe ich es geschafft:

Im Unterformular habe ich das geschrieben:
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
    MsgBox "Sie haben nicht gespeichert. Änderungen werden verworfen!", _
               vbOKOnly + vbInformation, "Meldung"
    Me.Undo
    Cancel = True
End Sub
Klappt. Aber was ist, wenn er den Speichern Button klickt? Dann soll die Fehlermeldung nicht erscheinen. Also deshalb ein IF aber wie geht das nun.Denn das Speichern Button ist im HF.

Wollte es so haben ging aber nicht:
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me!HF.Speichern_Kategorie_Click() = True Then
        Me!HF.Speichern_Kategorie_Click()
      Else
        MsgBox "Sie haben nicht gespeichert. Änderungen werden verworfen!", _
                   vbOKOnly + vbInformation, "Meldung"
        Me.Undo
        Cancel = True
    End If
End Sub
In Worten: Wenn also das Speichern Button genutzt wird, dann soll diese Funktion auch laufen, andernfalls kommt halt diese Fehlermeldung.

Ist sowas machbar? Irgendwie total anstrengend was ich will.
Oder geht das auf irgendeine Art leichter.
Am einfachsten wäre es, wenn es dafür eine Funktion gibt, die man nur aktivieren müsste.

Danke
Gast
jens05
Moderator


Verfasst am:
21. März 2008, 13:16
Rufname:
Wohnort: ~~~~~

AW: Verweis auf Funktion - AW: Verweis auf Funktion

Nach oben
       Version: Office XP (2002)

Hallo,
setze dir eine Globale Variable, die du bei deinem Speicherbutton entsprechend einstellst und in deiner Prozedur entsprechend abfrägst.

_________________
mfg jens05 Wink
Willi Wipp
Moderator


Verfasst am:
21. März 2008, 21:20
Rufname:
Wohnort: Raum Wiesbaden


Re: Verweis auf Funktion - Re: Verweis auf Funktion

Nach oben
       Version: Office XP (2002)

Hi Gast,

als ergaenzender Hinweis.
Alles was mit Sub anfaengt ist eine Prozedur ==> Kann keinen direkten Rueckgabewert haben.
Ereignisse sind standardmaessige an Ereignis-Prozeduren (Sub) gebunden.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Insert+replace funktion ueber Nummernfeld 1 galaxy 599 19. Sep 2007, 10:30
SGast Insert+replace funktion ueber Nummernfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Wenn Funktion in Abfrage 2 Benno 915 22. Aug 2007, 20:05
Benno Wenn Funktion in Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage - Feld > Funktion Säubern? 12 Konrad H. 2212 11. Jul 2007, 10:53
Willi Wipp Abfrage - Feld > Funktion Säubern?
Keine neuen Beiträge Access Tabellen & Abfragen: Wenn Funktion mit Platzhalter nutzen 5 hp80 6170 11. Apr 2007, 16:44
Gast Wenn Funktion mit Platzhalter nutzen
Keine neuen Beiträge Access Tabellen & Abfragen: ersetzen() Funktion 1 beemer 797 29. Nov 2006, 17:51
Nouba ersetzen() Funktion
Keine neuen Beiträge Access Tabellen & Abfragen: Problem mit der Funktion NZ 6 Gast Uli 582 01. Sep 2006, 15:21
Gast Uli Problem mit der Funktion NZ
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Funktion MAX 1 johnwalton 897 20. Apr 2006, 12:48
c0bRa Funktion MAX
Keine neuen Beiträge Access Tabellen & Abfragen: Datum > Tag Funktion 1 mirco 695 08. Feb 2006, 16:00
steffen0815 Datum > Tag Funktion
Keine neuen Beiträge Access Tabellen & Abfragen: Runden Funktion in Abfrage fehlerhaft? 2 c0bRa 810 07. Feb 2006, 10:39
c0bRa Runden Funktion in Abfrage fehlerhaft?
Keine neuen Beiträge Access Tabellen & Abfragen: Wenn-Dann Funktion ? 6 Gast 1083 03. Feb 2006, 16:24
pelowi Wenn-Dann Funktion ?
Keine neuen Beiträge Access Tabellen & Abfragen: Count() Funktion in Abfrage funktioniert nicht 1 Nike 889 31. Jan 2006, 19:44
jens05 Count() Funktion in Abfrage funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Format nach Funktion Nz 1 audio 1314 06. Dez 2005, 19:27
Willi Wipp Format nach Funktion Nz
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS