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 Zurück  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
MissPh!
Office-VBA-Programmiererin


Verfasst am:
30. Aug 2009, 23:00
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)

Onkel Uli - 30. Aug 2009, 22:55 hat folgendes geschrieben:
Also der Code funktioniert wenn ..., aber er funktioniert nicht, wenn kein datensatz vorhanden ist.
...bei mir schon! ;)

Alle drei Fallbeispiele haben in meinem Test funktioniert - sonst hätte ich deine Vorgabe ja gar nicht zu erweitern brauchen.

_________________
Gruß MissPh!
Onkel Uli
Einsteiger


Verfasst am:
30. Aug 2009, 23:35
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,

ich habe nochmal alles überprüft. Bei Null geht's nicht. Woran könnte das liegen?
Könnte es daran liegen, dass das UFo nicht angezeigt wird, wenn kein Datensatz vorhanden ist?

VG
Onkel Uli
ebs17
Learning by Doing - Bastler


Verfasst am:
30. Aug 2009, 23:45
Rufname:
Wohnort: Reinsberg

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)

Nebenbei: Warum werden Datensätze in einem Formular gezählt?
Das UFo kann nur die Datensätze enthalten, die in der Tabelle sind. Da wohl eine Verknüpfung zum HFo nicht besteht, ergibt sich eine einfache Auswahlabfrage mit dem Kombifeldinhalt als Kriterium, die zu testen wäre. Dieser Test lässt sich mit einem qualifizierten DLookup vornehmen.

Kleine Erfahrung: Immer wenn es mit Formularen und deren Bezügen holpert, wende man sich an die Datenherkunft. Tabellen kann man direkt erreichen.

_________________
Mit freundlichem Glück Auf!

Eberhard
Willi Wipp
Moderator


Verfasst am:
31. Aug 2009, 06:35
Rufname:
Wohnort: Raum Wiesbaden

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

Nach oben
       Version: Office XP (2002)

@ MissPh!

wuerde mich wundern. Wink
Das Unterformular-Ereignis Beim Anzeigen (Current) wird nur ausgeloest wenn auch DS vorhanden sind.

Hi Onkel Uli,

die Steuerung muss also auch aus dem Hauptformular erfolgen!

_________________
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, 14:19, insgesamt einmal bearbeitet
Onkel Uli
Einsteiger


Verfasst am:
31. Aug 2009, 11:44
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)

@ MissPh,

Danke für Deine Hilfe.

@ Willi Wipp,

welchen Code soll ich jetzt nutzen. Wie gesagt bei Deinem kommt immer die Fehlermeldung
Zitat:
Sie haben einen Ausdruck eingegeben, der keinen Wert hat.
und im Editor ist
Code:
        ElseIf Nz(!Produkte, "") = "" Then
gelb hinterlegt.

Vieleicht noch einmal zum Ist-Zustand.
Es ist kein Datensatz hinterlegt, dann Me!Text = "MeinTxt1"
Ich wechsle die Firma, kein Datensatz hinterlegt, dann Me!Txt = "MeinTxt1"
Ich wechsle die Firma, Datensatz hinterlegt, dann Me!Txt = "MeinTxt1"
Ich wechsle die Firma, kein Datensatz hinterlegt, dann Fehlermeldung.

Soll-Zustand: Ist Datensatz = Null oder "", dann Me!Txt= "MeinTxt1", Ist Datensatz Nicht Null oder <> "", dann Me!Txt= "MeinTxt2"

VG
Onkel Uli
Willi Wipp
Moderator


Verfasst am:
31. Aug 2009, 14:39
Rufname:
Wohnort: Raum Wiesbaden

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

Nach oben
       Version: Office XP (2002)

Hi Onkel Uli,

zurueck aus den unergruendlichen Tiefen des MS ...
Versuche es mal so
Code:
    Dim strText As String
   
    strText = ""
    With Me!UFOProdukte.Form
        If .Recordset.Clone.BOF And .Recordset.Clone.EOF Then  'Kein Datensatz
            strText = "MeinText1"
          ElseIf Nz(!Produkte, "") = "" Then
            strText = "MeinText2"
          Else
            strText = "MeinText3"
        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)
Onkel Uli
Einsteiger


Verfasst am:
31. Aug 2009, 16:28
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,

Confused keine Änderung.
Zitat:
Sie haben einen Ausdruck eingegeben, der keinen Wert hat.
und einmal hat der Code das angegebene Feld nicht gefunden.

Vieleicht liegts am UFo. Die SQL ist:
Code:
SELECT G.Firma, P.Produkte, P.BP, P.FirmaID
FROM   Produkte AS P
       INNER JOIN Gesellschaften AS G
       ON P.FirmaID = G.FirmaID
WHERE  P.FirmaID=[Forms]![ProdukteEingabe]![FirmaID];

Viele Grüße
Onkel Uli
Willi Wipp
Moderator


Verfasst am:
31. Aug 2009, 17:01
Rufname:
Wohnort: Raum Wiesbaden

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

Nach oben
       Version: Office XP (2002)

Hi Onkel Uli,

also bei mir funktioniert es nach der Aenderung auf Recodset.Clone
Kannst Du eine auf das Wesentliche reduzierte Beispiel-DB mit vollstaendig anonymisierten
aber repraesentativen Demo-Daten online stellen, in der man das nachvollziehen kann?

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

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


Verfasst am:
31. Aug 2009, 17:33
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,

es geht. Ich habe das UFo jetzt direkt mit der Tabelle verbunden und eine Löschabfrage eingebunden, die alle leeren Datensätze löscht. Damit brauchen wir die ElseIf-Anweisung nicht mehr. Die Idee von MissPH mit dem Zähler hat mir gefallen und ich habe diese eingebunden. Sie geht aber leider nur wenn der Wert Null ist. Da habe ich 100pro wieder ein Fehler drinn. VorAktualisierung noch ein Requery aufs UFo. So funktionierts
Code:
Private Sub Kombinationsfeld12_AfterUpdate()
    Dim strText As String, rs As DAO.Recordset
   
    strText = ""
    With Me!UFOProdukte.Form
        Set rs = .Form.RecordsetClone
        If .Recordset.Clone.BOF And .Recordset.Clone.EOF Then  'Kein Datensatz
            strText = rs.RecordCount & " Datensätze vorhanden" 'MeinText1
'          ElseIf Nz(!Produkte, "") = "" Then
'            strText = "Es sind keine Einträge vorhanden" 'MeinText2
          Else
            strText = "Es sind Einträge vorhanden. Vergrößern mit Doppelklick"
                                                                     MeinText3
        End If
    End With
    Me!Txt = strText
End Sub
Die Else-Anweisung
Code:
          Else strText = "Es sind " rs.RecordCount & " Einträge vorhanden. Vergrößern mit Doppelklick" 'MeinText3
geht nicht.

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


Verfasst am:
31. Aug 2009, 17:37
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)

Vergleiche doch deinen Code spaßeshalber mal mit meinem Vorschlag... Razz
_________________
Gruß MissPh!
Onkel Uli
Einsteiger


Verfasst am:
31. Aug 2009, 18:08
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 MissPH,

der Code, wie ich ihn jetzt nutze.
Code:
Private Sub Kombinationsfeld12_AfterUpdate()
    Dim strText As String, rs As DAO.Recordset
   
    strText = ""
    With Me!UFOProdukte.Form
        Set rs = .Form.RecordsetClone
        If .Recordset.Clone.BOF And .Recordset.Clone.EOF Then  'Kein Datensatz
            strText = rs.RecordCount & " Datensätze vorhanden"
          Else
            rs.MoveLast
            strText = "Es sind " & rs.RecordCount & " Datensätze " & _
                      "vorhanden. Vergrößern mit Doppelklick."
        End If
    End With
    Me!Txt = strText
End Sub
Funktioniert jetzt tadellos. Ich denke, es hat daran gelegen, dass ich das UFo über eine SQL mit der Tabelle verknüpft habe.

Vielen Dank für die super Hilfe an Euch beide.
Onkel Uli
MiLie
kein Office- VBA- Programmierer


Verfasst am:
31. Aug 2009, 18:14
Rufname: Micha
Wohnort: Chemnitz

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:
      Else strText = "Es sind "  & rs.RecordCount & " Einträge vorhanden. Vergrößern mit Doppelklick" 'MeinText3
?
_________________
Viele Grüße

Micha

Schreibfehler die Ihr findet, könnt Ihr behalten
MissPh!
Office-VBA-Programmiererin


Verfasst am:
31. Aug 2009, 19: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)

Noch etwas:
Zitat:
With Me!UFOProdukte.Form
Set rs = .Form.RecordsetClone
da würde ich Probleme erwarten... Confused

@Willi:
Willi Wipp - 31. Aug 2009, 06:35 hat folgendes geschrieben:
@ MissPh!

wuerde mich wundern. Wink
Das Unterformular-Ereignis Beim Anzeigen (Current) wird nur ausgeloest wenn auch DS vorhanden sind.
Ich habe mir mal erlaubt, eine kleine Demo hochzuladen, um zu zeigen wie ich das umgesetzt habe.
Funktioniert wie gesagt einwandfrei (O-XP).

Anm.:
Im Code des HF habe ich das nicht zum Laufen gekriegt, d.h. der angezeigte Text war falsch.
Mit den Eigenschaften EOF und BOF gab's bei mir Probleme, das klappte nur im Unterbrechungsmodus, wenn überhaupt.

@Uli:
Onkel Uli - 31. Aug 2009, 18:08 hat folgendes geschrieben:
Ich denke, es hat daran gelegen, dass ich das UFo über eine SQL mit der Tabelle verknüpft habe.
Das kann ich mir nicht vorstellen.
_________________
Gruß MissPh!



smp_abhUfo.zip
 Beschreibung:

Download
 Dateiname:  smp_abhUfo.zip
 Dateigröße:  21.18 KB
 Heruntergeladen:  9 mal

MiLie
kein Office- VBA- Programmierer


Verfasst am:
31. Aug 2009, 21:49
Rufname: Micha
Wohnort: Chemnitz

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 will jetzt auch mal mitmischen Wink Laughing Laughing Laughing

ich habe nur das Currentereignis des UF genommen (sonst nichts), scheint zu funktionieren
Code:
Private Sub Form_Current()
    DoEvents
    If Me.RecordsetClone.RecordCount = 0 Then
        Me.Parent!Txt = "keine Daten vorhanden"
      Else
        Me.Parent!Txt = "Es sind " & Me.RecordsetClone.RecordCount & _
                        " Datensätze vorhanden"
    End If
End Sub
nur ohne Dovents gibts Falschanzeigen, da der Aufbau des UFO zu langsam ist, daher funktioniert es auch nicht im HF beim After-Update des Kombi, da wird immer noch der alte Recordcount angezeigt.

Da das UF neue Datensätze erlaubt, wird auch das Current ausgelöst.

@Onkel Uli
schau mal genau hin, deine Variante zeigt immer den Recordcount der Datensätze vor der Auswahl an (gleicher Grund) du musst praktisch zweimal das gleiche auswählen um ein richtiges Ergebis zu bekommen.

Innteressanterweise wird dein doppeltes .FORM nicht angemeckert

_________________
Viele Grüße

Micha

Schreibfehler die Ihr findet, könnt Ihr behalten
MissPh!
Office-VBA-Programmiererin


Verfasst am:
31. Aug 2009, 22:02
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)

Ja, mit DoEvents hatte ich auch experimentiert, das war aber noch in der Testphase mit dem Code im HF.

Es sieht also wirklich so aus, als ob das aus dem HF heraus nicht zufriedenstellend (= zuverlässig) gelöst werden könnte.

_________________
Gruß MissPh!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite Zurück  1, 2, 3  Weiter
Diese Seite Freunden empfehlen

Seite 2 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: MS Frontpage