Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
2 Codes zusammenführen?
zurück: Aktualisierung Diagramm weiter: Neuen Datensatz angelegen - aber soll nicht immer sein Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
wimmera
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Aug 2010, 16:26
Rufname: Wimmsti
Wohnort: St.Johann im Pongau (Salzburg)

2 Codes zusammenführen? - 2 Codes zusammenführen?

Nach oben
       Version: Office 2003

Hallo zusammen,

Ich habe ein Problem mit einem Code.

Der erste Code wird über einen Butten ausgeführt und funktioniert perfekt

Code:
Private Sub Befehl578_Click()
 On Error Resume Next
 
 
    If (Me.Kante1 = "N.I.O" Or Me.Kante2 = "N.I.O" Or Me.Kante3 = "N.I.O" Or Me.Kante4 = "N.I.O" Or Me.Kante1 = "Justage" Or Me.Kante2 = "Justage" Or Me.Kante3 = "Justage" Or Me.Kante4 = "Justage" Or _
        Abs(Me!DifBreite) > 0.51 Or Me.Ecke1 = "N.I.O" Or Me.Ecke2 = "N.I.O" Or Me.Ecke3 = "N.I.O" Or Me.Ecke4 = "N.I.O" Or Me.Ecke1 = "Justage" Or Me.Ecke2 = "Justage" Or Me.Ecke3 = "Justage" Or Me.Ecke4 = "Justage") And _
        Nz(Me!Bemerkung) = "" Then
        MsgBox "Messwert ist negativ od. hat die Eingriffsgränze überschritten! .... - Bitte Bemerkung eintragen und " _
             & "Vorgesetzten Informieren (Aktion setzen)"
    Else
        DoCmd.RunCommand acCmdSaveRecord
       
    If (Me.Kante1 = "N.I.O" Or Me.Kante2 = "N.I.O" Or Me.Kante3 = "N.I.O" Or Me.Kante4 = "N.I.O" Or Me.Kante1 = "Justage" Or Me.Kante2 = "Justage" Or Me.Kante3 = "Justage" Or Me.Kante4 = "Justage" Or _
        Abs(Me!DifBreite) > 0.51 Or Me.Ecke1 = "N.I.O" Or Me.Ecke2 = "N.I.O" Or Me.Ecke3 = "N.I.O" Or Me.Ecke4 = "N.I.O" Or Me.Ecke1 = "Justage" Or Me.Ecke2 = "Justage" Or Me.Ecke3 = "Justage" Or Me.Ecke4 = "Justage") And _
        Nz(Me!Bemerkung) <> "" Then
        'DoCmd.RunMacro "Status Senden"
        End If
        DoCmd.Close acForm, Me.Name ', acSavePrompt
        DoCmd.OpenForm "Hauptmenü"
       
        End If
       

End Sub


Dieser Code funktioniert, wenn er in Vor Aktualisieren steht.
Doch leider wird das Formular beim betätigen des Buttens mit dem o.g Code geschlossen.
Ich möchte jetzt, dass beide Codes zusammen arbeiten.
Wenn ein Feld nicht befüllt ist und ich betätige den Butten, darf das Form nicht geschlossen werden.

Code:
If IsNull(Me.Auftrag_Nr) Or IsNull(Me.Glastyp) Or IsNull(Me.Kunde) Or IsNull(Me.Breite_mm_) Or IsNull(Me.gemBreite_mm_) Or IsNull(Me.Kante1) Or IsNull(Me.Kante2) Or IsNull(Me.Kante3) Or IsNull(Me.Kante4) Or IsNull(Me.Ecke1) Or IsNull(Me.Ecke2) Or IsNull(Me.Ecke3) Or IsNull(Me.Ecke4) Then
        MsgBox "Bitte erst die Leeren Felder ausfüllen!"
        Cancel = True
    End If


Ich hoffe das mir jemand helfen kann.

Danke

Schöne Grüße
Alex
wimmera
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Aug 2010, 23:43
Rufname: Wimmsti
Wohnort: St.Johann im Pongau (Salzburg)


AW: 2 Codes zusammenführen? - AW: 2 Codes zusammenführen?

Nach oben
       Version: Office 2003

Bitte um Eure Hilfe!!

Danke
Alex
lleopard
IT Datenbankentwickler


Verfasst am:
11. Aug 2010, 08:18
Rufname: leo

AW: 2 Codes zusammenführen? - AW: 2 Codes zusammenführen?

Nach oben
       Version: Office 2003

hi wimmera

kannst du den 2. Teil nicht einfach vor den 1. setzen und nach der Messagebox statt Cancel = true ein Exit Sub sezten?

Was spricht dagegen?

Andere Möglichkeit wäre - weiß nicht ob das für dich praktikabler wäre - an der Stelle wo das Form geschlossen wird den 2. Teil so einzubauen, dass das Form nur schließt wenn nicht noch offene Felder vorhanden sind. Ie so:

Code:
...
If IsNull(Me.Auftrag_Nr) Or IsNull(Me.Glastyp) Or IsNull(Me.Kunde) Or IsNull(Me.Breite_mm_) Or IsNull(Me.gemBreite_mm_) Or IsNull(Me.Kante1) Or IsNull(Me.Kante2) Or IsNull(Me.Kante3) Or IsNull(Me.Kante4) Or IsNull(Me.Ecke1) Or IsNull(Me.Ecke2) Or IsNull(Me.Ecke3) Or IsNull(Me.Ecke4) Then
        MsgBox "Bitte erst die Leeren Felder ausfüllen!"
        Exit Sub
Else
        DoCmd.Close acForm, Me.Name ', acSavePrompt
        DoCmd.OpenForm "Hauptmenü"
End if
...
End If


Gruß Leo

_________________
Gruß Leo

Honnit soit qui mal y pense!
wimmera
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Aug 2010, 09:41
Rufname: Wimmsti
Wohnort: St.Johann im Pongau (Salzburg)

AW: 2 Codes zusammenführen? - AW: 2 Codes zusammenführen?

Nach oben
       Version: Office 2003

Hi Leo,

Danke für Deine Antwort.
Leider habe ich bei beiden bsp. keinen Erfolg?

Code:
Private Sub Befehl578_Click()
 On Error Resume Next
 
 
 
    If (Me.Kante1 = "N.I.O" Or Me.Kante2 = "N.I.O" Or Me.Kante3 = "N.I.O" Or Me.Kante4 = "N.I.O" Or Me.Kante1 = "Justage" Or Me.Kante2 = "Justage" Or Me.Kante3 = "Justage" Or Me.Kante4 = "Justage" Or Me.Sauberkeit = "N.I.O" Or Me.Sauberkeit = "Justage" Or _
        Abs(Me!DifBreite) > 0.51 Or Me.Ecke1 = "N.I.O" Or Me.Ecke2 = "N.I.O" Or Me.Ecke3 = "N.I.O" Or Me.Ecke4 = "N.I.O" Or Me.Ecke1 = "Justage" Or Me.Ecke2 = "Justage" Or Me.Ecke3 = "Justage" Or Me.Ecke4 = "Justage") And _
        Nz(Me!Bemerkung) = "" Then
        MsgBox "Messwert ist negativ od. hat die Eingriffsgränze überschritten! .... - Bitte Bemerkung eintragen und " _
             & "Vorgesetzten Informieren (Aktion setzen)"
    Else
        DoCmd.RunCommand acCmdSaveRecord
       
    If (Me.Kante1 = "N.I.O" Or Me.Kante2 = "N.I.O" Or Me.Kante3 = "N.I.O" Or Me.Kante4 = "N.I.O" Or Me.Kante1 = "Justage" Or Me.Kante2 = "Justage" Or Me.Kante3 = "Justage" Or Me.Kante4 = "Justage" Or Me.Sauberkeit = "N.I.O" Or Me.Sauberkeit = "Justage" Or _
        Abs(Me!DifBreite) > 0.51 Or Me.Ecke1 = "N.I.O" Or Me.Ecke2 = "N.I.O" Or Me.Ecke3 = "N.I.O" Or Me.Ecke4 = "N.I.O" Or Me.Ecke1 = "Justage" Or Me.Ecke2 = "Justage" Or Me.Ecke3 = "Justage" Or Me.Ecke4 = "Justage") And _
        Nz(Me!Bemerkung) <> "" Then
        'DoCmd.RunMacro "Status Senden"
       
        If IsNull(Me.Auftrag_Nr) Or IsNull(Me.Sauberkeit) Or IsNull(Me.Glastyp) Or IsNull(Me.Kunde) Or IsNull(Me.Breite_mm_) Or IsNull(Me.gemBreite_mm_) Or IsNull(Me.Kante1) Or IsNull(Me.Kante2) Or IsNull(Me.Kante3) Or IsNull(Me.Kante4) Or IsNull(Me.Ecke1) Or IsNull(Me.Ecke2) Or IsNull(Me.Ecke3) Or IsNull(Me.Ecke4) Then
        MsgBox "Bitte erst die Leeren Felder ausfüllen!"
        Cancel = True
       
        End If
        DoCmd.Close acForm, Me.Name ', acSavePrompt
        DoCmd.OpenForm "Hauptmenü"
       
        End If


Ich erhalte immer die Fehlermeldung "Fehler beim Kombilieren / Variable nicht definiert"

Der Teil mit dem Cancel wird angezeigt.

Das ist in beiden bsp. gleich?

Danke für Deine weitere Hilfestellung

Schöne Grüße
Alex
lleopard
IT Datenbankentwickler


Verfasst am:
11. Aug 2010, 09:48
Rufname: leo

AW: 2 Codes zusammenführen? - AW: 2 Codes zusammenführen?

Nach oben
       Version: Office 2003

moin,

du willst an der Stelle doch eigentlich die Aktion abbrechen.

Dann:

ersetze doch das Cancel an den Stellen einfach durch ein Exit Sub

Cancel wird als Variable genutzt und nicht als Ausstieg. Es ist also richtig auf eine MsgBox mit einer Anweisung ein Exit Sub folgen zu lassen.

Gruß Leo

_________________
Gruß Leo

Honnit soit qui mal y pense!
wimmera
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Aug 2010, 10:04
Rufname: Wimmsti
Wohnort: St.Johann im Pongau (Salzburg)


AW: 2 Codes zusammenführen? - AW: 2 Codes zusammenführen?

Nach oben
       Version: Office 2003

Hi Leo,

Danke für Deine Hilfe.
Jetzt funktioniert es Very Happy

Danke
Schöne Grüße
Alex
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: Tabellen in einer Tabelle zusammenführen 3 klaus31 200 06. Jan 2011, 15:08
redround Tabellen in einer Tabelle zusammenführen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellen zusammenführen 15 PiusXIII 1720 01. Dez 2010, 19:47
Gast Tabellen zusammenführen
Keine neuen Beiträge Access Tabellen & Abfragen: SQL Datensätze zusammenführen 1 FunkMaster 1517 19. Nov 2010, 14:31
Martin S SQL Datensätze zusammenführen
Keine neuen Beiträge Access Tabellen & Abfragen: Zusammenführen unterschiedlicher Listen 9 omasenkel 300 04. Jun 2010, 10:58
Gast Zusammenführen unterschiedlicher Listen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen mit Abfrage zusammenführen 2 janine071181 184 30. März 2010, 15:55
janine071181 Abfragen mit Abfrage zusammenführen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen vergleichen und zusammenführen 3 Johann1234 291 11. März 2010, 10:28
Johann1234 Abfragen vergleichen und zusammenführen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Ergebnisse aus mehreren Abfragen zusammenführen + Null-Werte 1 Downtown09 894 18. Feb 2010, 05:58
Willi Wipp Ergebnisse aus mehreren Abfragen zusammenführen + Null-Werte
Keine neuen Beiträge Access Tabellen & Abfragen: Inhalt von zellen zusammenführen 8 Thomas85 294 16. Okt 2009, 10:41
KlausMz Inhalt von zellen zusammenführen
Keine neuen Beiträge Access Tabellen & Abfragen: Feldinhalte zusammenführen 4 knosim 2936 10. Jun 2009, 12:04
knosim Feldinhalte zusammenführen
Keine neuen Beiträge Access Tabellen & Abfragen: Zusammenführen von Feldern, eigentlich kein Ding, oder doch 1 Gast 194 25. Jan 2009, 21:47
derArb Zusammenführen von Feldern, eigentlich kein Ding, oder doch
Keine neuen Beiträge Access Tabellen & Abfragen: Zusammenführen identischer Dateien 5 Cice 299 11. Aug 2008, 11:36
Willi Wipp Zusammenführen identischer Dateien
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellen zusammenführen 22 tom_r 1608 18. Jun 2008, 12:49
tom_r Tabellen zusammenführen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe