Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Ereignis, wenn ein Feld im UFo Null oder "" ist
Gehe zu Seite 1, 2, 3  Weiter
zurück: Bewertungsfunktion - grafisch mit Sternchen weiter: Makro funktioniert nicht! Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Onkel Uli
Einsteiger


Verfasst am:
26. Aug 2009, 11:22
Rufname:
Wohnort: Weimar

Ereignis, wenn ein Feld im UFo Null oder "" ist - Ereignis, wenn ein Feld im UFo Null oder "" ist

Nach oben
       Version: Office XP (2002)

Hallo,

ich möchte in Me!txt einen Text anzeigen, wenn Feld SparteID im UFoFragenAntwort leer oder null ist.
Code:
    If IsNull(Forms!FragenAntwort!UFoFragenAntwort!SparteID) Or _
       Forms!FragenAntwort!UFoFragenAntwort!SparteID = "" Then
        Me!txt = "MeinText"
    End If
Geht aber nicht, was ist falsch?

Viele Grüße
Onkel Uli
derArb
getting better


Verfasst am:
26. Aug 2009, 11:37
Rufname: derArb
Wohnort: Berlin


AW: Ereignis, wenn ein Feld im UFo Null oder "" is - AW: Ereignis, wenn ein Feld im UFo Null oder "" is

Nach oben
       Version: Office XP (2002)

Hallo,
Code:
    If IsNull(Forms!FragenAntwort!UFoFragenAntwort.Form!SparteID) Or _
       Forms!FragenAntwort!UFoFragenAntwort.Form!SparteID = "" Then
        Me!txt = "MeinText"
    End If
' oder
    If Nz(Forms!FragenAntwort!UFoFragenAntwort.Form!SparteID, "") = "" Then
        Me!txt = "MeinText"
    End If
Du musst das Ufoformular ansprechen.

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.


Zuletzt bearbeitet von derArb am 26. Aug 2009, 13:03, insgesamt einmal bearbeitet
Gast



Verfasst am:
26. Aug 2009, 12:46
Rufname:

AW: Ereignis, wenn ein Feld im UFo Null oder "" is - AW: Ereignis, wenn ein Feld im UFo Null oder "" is

Nach oben
       Version: Office XP (2002)

@ derArb,

geht nicht es kommt immer die Meldung
Zitat:
Sie haben einen Ausdruck eingegeben, der keinen Wert hat
Ich habe den Code eingegeben 'Vor Aktualisierung', kann es daran liegen?

Viele Grüße
Onkel Uli
derArb
getting better


Verfasst am:
26. Aug 2009, 13:11
Rufname: derArb
Wohnort: Berlin

AW: Ereignis, wenn ein Feld im UFo Null oder "" is - AW: Ereignis, wenn ein Feld im UFo Null oder "" is

Nach oben
       Version: Office XP (2002)

Hallo,

da muss ich passen.
Sind beide Formulare offen?
Ist das aktuelle Formular modal geöffnet? (acDialog)

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Onkel Uli
Einsteiger


Verfasst am:
26. Aug 2009, 15:07
Rufname:
Wohnort: Weimar


AW: Ereignis, wenn ein Feld im UFo Null oder "" is - AW: Ereignis, wenn ein Feld im UFo Null oder "" is

Nach oben
       Version: Office XP (2002)

@ derArb

ich habe mich mit den Tabellen geirrt und habe deswegen den Code umgeschrieben. Geht aber nicht, daraufhin habe ich das Gegenteil eingegeben.
Code:
    If Not IsNull(Me!UFOProdukte!Produkte) Or _
       Me!UFOProdukte!Produkte <> "" Then
        Me!Text = "Mein Text"
    End If
Hat das Unterformular Werte funktioniert das, ist es aber leer kommt die Fehlermeldung. Das UFo bekommt erst Werte, wenn ich im HF im Kombifeld eine Auswahl treffe und zu dem Begriff bereits etwas abgespeichert wurde. Vorher ist da UFo nicht sichtbar.

Viele Grüße
Onkel Uli
Willi Wipp
Moderator


Verfasst am:
27. Aug 2009, 04:38
Rufname:
Wohnort: Raum Wiesbaden

Re: Ereignis, wenn ein Feld im UFo Null oder '' ist - Re: Ereignis, wenn ein Feld im UFo Null oder '' ist

Nach oben
       Version: Office XP (2002)

Hi Onkel Uli,

wie waere es etwa so
Code:
    Dim strText As String
   
    strText = ""
    With Me!UFOProdukte
        If .Form.Recordset.BOF And .Form.Recordset.EOF Then    'Kein Datensatz
            strText = "MeinText1"
          ElseIf Nz(!Produkte, "") = "" Then
            strText = "MeinText2"
        End If
    End With
    Me!txt = strText

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)


Zuletzt bearbeitet von Willi Wipp am 31. Aug 2009, 06:36, insgesamt einmal bearbeitet
Onkel Uli
Einsteiger


Verfasst am:
27. Aug 2009, 16:00
Rufname:
Wohnort: Weimar

AW: Ereignis, wenn ein Feld im UFo Null oder "" is - AW: Ereignis, wenn ein Feld im UFo Null oder "" is

Nach oben
       Version: Office XP (2002)

Hallo Willi Wipp,

geht teilweise. Gebe ich einen Begriff ein, der nicht abgespeichert ist, kommt die Meldung. Gebe ich einen Begriff ein, der gespeichert ist kommt die Meldung nicht. Gebe ich im Anschluss daran wieder ein Begriff ein, der nicht gespeichert ist kommt die Fehlermeldung
Zitat:
Sie haben einen Ausdruck eingegeben, der keinen Wert hat

VG
Onkel Uli
MissPh!
Office-VBA-Programmiererin


Verfasst am:
27. Aug 2009, 16:45
Rufname:
Wohnort: NRW

AW: Ereignis, wenn ein Feld im UFo Null oder "" is - AW: Ereignis, wenn ein Feld im UFo Null oder "" is

Nach oben
       Version: Office XP (2002)

Hallo, kannst du bitte mal deine Prozedur hierzu zeigen, damit wir sehen können, wie du das umgesetzt hast?
_________________
Gruß MissPh!
Onkel Uli
Einsteiger


Verfasst am:
27. Aug 2009, 23:36
Rufname:
Wohnort: Weimar

AW: Ereignis, wenn ein Feld im UFo Null oder "" is - AW: Ereignis, wenn ein Feld im UFo Null oder "" is

Nach oben
       Version: Office XP (2002)

Hallo,

kein Problem.
Code:
Private Sub Kombinationsfeld12_BeforeUpdate(Cancel As Integer)
    Dim strText As String

    Me!Txt = ""
    Me!FirmaID = Me!Kombinationsfeld12()
    Me!Firma = Me!Kombinationsfeld12.Column(1)
    strText = ""
    With Me!UFOProdukte
        If .Form.Recordset.BOF And .Form.Recordset.EOF Then    'Kein Datensatz
            strText = "MeinText1"
          ElseIf Nz(!Produkte, "") = "" Then
            strText = "MeinText2"
        End If
    End With
    Me!Txt = strText
End Sub

Viele Grüße
Onkel Uli
MissPh!
Office-VBA-Programmiererin


Verfasst am:
28. Aug 2009, 12:40
Rufname:
Wohnort: NRW

AW: Ereignis, wenn ein Feld im UFo Null oder "" is - AW: Ereignis, wenn ein Feld im UFo Null oder "" is

Nach oben
       Version: Office XP (2002)

Erzähl uns doch mal, welche Funktion das Kombifeld hat.

Wird danach das Ufo gefiltert, so wäre AfterUpdate evtl. das bessere Ereignis oder - noch besser - das Current-Ereignis des Ufo.

_________________
Gruß MissPh!
Onkel Uli
Einsteiger


Verfasst am:
30. Aug 2009, 18:17
Rufname:
Wohnort: Weimar

AW: Ereignis, wenn ein Feld im UFo Null oder "" is - AW: Ereignis, wenn ein Feld im UFo Null oder "" is

Nach oben
       Version: Office XP (2002)

Das Kombifeld zeigt mir eingetragene Firman an. Diesen Firmen werden Produkte und Produktinfos zugeordnet. Im UFo werden bereits eingetragene Produkte zu den Firmen angezeigt. In Abhängigkeit ob Einträge vorhanden sind oder nicht soll eine Information angezeigt werden.

VG
Onkel Uli
MissPh!
Office-VBA-Programmiererin


Verfasst am:
30. Aug 2009, 21:04
Rufname:
Wohnort: NRW

AW: Ereignis, wenn ein Feld im UFo Null oder "" is - AW: Ereignis, wenn ein Feld im UFo Null oder "" is

Nach oben
       Version: Office XP (2002)

Hallo,

ich habe das Problem mal nachgestellt und bin zu dem Ergebnis gekommen, dass das aus dem Hauptformular heraus nicht funktioniert. Eine Erklärung habe ich leider nicht, aber folgendes sollte klappen:

Hauptformular:
Code:
Private Sub cboFirma_AfterUpdate()
    Me!Txt = ""
    Me!FirmaID = Me!cboFirma()
    Me!Firma = Me!cboFirma.Column(1)
End Sub
Unterformular:
Code:
Private Sub Form_Current()
    Dim strText As String, rs As DAO.Recordset
   
    strText = ""
    With Me
        Set rs = .Form.RecordsetClone
        If rs.RecordCount = 0 Then    'Kein Datensatz
            strText = "Kein Datensatz vorhanden!"
          ElseIf Nz(!Produkte, "") = "" Then
            strText = "Produktname ist leer"
          Else
            rs.MoveLast
            strText = rs.RecordCount & " Datensätze vorhanden"
        End If
        Set rs = Nothing
    End With
    Me.Parent!Txt = strText
End Sub

_________________
Gruß MissPh!
Onkel Uli
Einsteiger


Verfasst am:
30. Aug 2009, 21:57
Rufname:
Wohnort: Weimar

AW: Ereignis, wenn ein Feld im UFo Null oder "" is - AW: Ereignis, wenn ein Feld im UFo Null oder "" is

Nach oben
       Version: Office XP (2002)

Hallo,

geht nicht bei Null.

VG
Onkel Uli
MissPh!
Office-VBA-Programmiererin


Verfasst am:
30. Aug 2009, 22:36
Rufname:
Wohnort: NRW

AW: Ereignis, wenn ein Feld im UFo Null oder "" is - AW: Ereignis, wenn ein Feld im UFo Null oder "" is

Nach oben
       Version: Office XP (2002)

Keine sehr motivierende Antwort auf die Mühe, die ich mir gemacht habe. Sad

Kannst du die Aussage bitte noch etwas mit Details "unterfüttern", damit man versteht, was du uns damit mitteilen möchtest?

_________________
Gruß MissPh!
Onkel Uli
Einsteiger


Verfasst am:
30. Aug 2009, 22:55
Rufname:
Wohnort: Weimar


AW: Ereignis, wenn ein Feld im UFo Null oder "" is - AW: Ereignis, wenn ein Feld im UFo Null oder "" is

Nach oben
       Version: Office XP (2002)

Shock Demotivieren wollte ich Dich nicht.

Also der Code funktioniert wenn Daten hinterlegt sind, er funktioniert wenn ein leerer Datensatz vorhanden ist, aber er funktioniert nicht, wenn kein datensatz vorhanden ist.

VG
Onkel Uli
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2, 3  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 3
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: Feld als Kriterie für eine SQL-Anweisung [gelöst] 1 silver86 603 26. Aug 2005, 07:18
jens05 Feld als Kriterie für eine SQL-Anweisung [gelöst]
Keine neuen Beiträge Access Tabellen & Abfragen: Division durch Null 2 edi 1309 11. Aug 2005, 17:16
edi Division durch Null
Keine neuen Beiträge Access Tabellen & Abfragen: Im Feld Telefon das Zeichen "/" ersetzen 9 Stargate1960 2323 10. Mai 2005, 11:39
Willi Wipp Im Feld Telefon das Zeichen "/" ersetzen
Keine neuen Beiträge Access Tabellen & Abfragen: Numerische Werte in als Text definiertem Feld 4 Terminator 811 25. Apr 2005, 07:50
stpimi Numerische Werte in als Text definiertem Feld
Keine neuen Beiträge Access Tabellen & Abfragen: Überprüfen ob Wert in Tabelle = NULL 3 Cossack 1498 18. Apr 2005, 17:52
Gast Überprüfen ob Wert in Tabelle = NULL
Keine neuen Beiträge Access Tabellen & Abfragen: JPG im Ole Feld Größe explodiert 1 WarumNur 682 26. Feb 2005, 21:00
snurb JPG im Ole Feld Größe explodiert
Keine neuen Beiträge Access Tabellen & Abfragen: Leeres Feld mit "no info" ausfüllen 2 Gast 696 14. Feb 2005, 15:25
Gast Leeres Feld mit "no info" ausfüllen
Keine neuen Beiträge Access Tabellen & Abfragen: WHERE Wert Is manchmal Null 1 JTR 606 11. Feb 2005, 17:50
lothi WHERE Wert Is manchmal Null
Keine neuen Beiträge Access Tabellen & Abfragen: Feld in Tabelle mittels Aktualisierungsabfrage updaten 1 diso_de 788 11. Feb 2005, 15:45
stpimi Feld in Tabelle mittels Aktualisierungsabfrage updaten
Keine neuen Beiträge Access Tabellen & Abfragen: wie kann ich "#Fehler" aus dem feld rauslöschen? 5 drum_sax 613 04. Feb 2005, 14:40
stpimi wie kann ich "#Fehler" aus dem feld rauslöschen?
Keine neuen Beiträge Access Tabellen & Abfragen: Feld aus n Records in n Feldern eines Records zusammenfassen 0 frank58 588 31. Dez 2004, 12:05
frank58 Feld aus n Records in n Feldern eines Records zusammenfassen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellenwert bei Start auf Null setzen 8 nitta 570 13. Okt 2004, 08:53
nitta Tabellenwert bei Start auf Null setzen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum