Probleme mit "Like"

[maute0311]

OK, jetzt wird´s für mich nur noch komplizierter.

ich habe mir eine msgbox zwecks kontrolle des Bezuges eingebaut und ich denke (hoffe) der Bezug stimmt nun.
Kann mein Problem ( neben meiner Unwissenheit natürlich ) auch im Ufo selbst liegen? Will sagen: Das Ufo ist ein Endlosformular - kann es daran liegen, das Access nur den letzten DS prüft, ob "Daunenbett*" drinsteht??

Gruß

Marc

[DF6GL]

Hallo,

sagte doch, dass eine solche Referenz auf ein UFO nicht zielführend ist.

Es tönt nach nicht normalisertem (und evtl. sogar unlogischem ) Tabellenaufbau ...


Die Referenz zeigt auf den aktuellen Datensatz (ob das nun der erste, letzte oder einer von mittendrin ist, kann man nicht mit Bestimmtheit sagen, weil das von der Bedienung (und Programmierung) der ganzen Geschichte abhängt.

Wie lautet der Code der Msgbox-Zeile und was wird dabei ausgegeben?

[database]

@DF6GL

" Dort wird eher die ID des entspr. Datensatzes zu finden sein "
Da hatte Klaus schon in #5 nachgehakt, da gibts lt Auskunft in #6 keine ID.

Das UFO ist als Datenblatt-Ansicht dargestellt.

Aber egal, wenn das ein Endlosformular ist und mehrere Datensätze angezeigt werden, bei denen dann auch noch in den Kombis in jeder Zeile unterschiedliche Werte stehen - raufen sich die Haare um einen Stehplatz!

Dann musst du zusätzlich angeben welche Zeile du meinst (sofern du im Unterformular die ID der Datenherkunft mitführst)

Wäre es da nicht einfacher eine andere leichter zu durchschauende, praktikablere Lösung anzustreben?

[maute0311]

Hallo,

habe es so probiert:

Private Sub Druckbefehl_Click()
On Error GoTo Err_Druckbefehl_Click

   If Me.Artikeldaten_Unterformular1!Kombinationsfeld18.Column(1) Like "*Daunenbett*" Then
   DoCmd.OpenReport "GutscheinBettenreinigung"
   Else
   varbox = MsgBox("MIST", vbCritical, "ohne Hilfe schaffst Du es nie !!!")
   End If

Wenn ich nun versuche in das UFO "Daunenbett xy" einzugeben kommt die MSGBOX beim Druckbefehl.

@ database: leichtere Lösung??? - GERNE!!! ist sie auch für einen Laien wie mich umsetzbar???

Gruß

Marc

[DF6GL]

Hallo,

@database:

ok. habe es mir jetzt nicht angetan, den gesamten Thread von Anfang an durchzulesen... 

@maute0311:

ich befürchte immer mehr, Du willst das Pferd von hinten aufzäumen.


Erzähl mal, was genau passieren soll, damit wir mal zum Ende kommen...


Bis jetzt versteh ich nur soviel, als dass Du bei der Eingabe von "Daunenbett" (warum denn "Eingabe" und nicht "Auswahl") im Kombifeld im Unterform den Gutschein drucken willst.

Wie heißen die Eigenschaftseinstellungen (Datensatzherkunft, Spaltenanzahl, Gebundene Spalte, Spaltenbreiten) des Kombifeldes?


Prinzipiell sollten man Vorgänge, die sich auf Daten im Unterform beziehen, auch in diesem Unterform ausleben und gescheite Benamsung verwenden . 

Im Unterform:

Kombi "BettenartID"
Datensatzherkunft: Select BettenartID, Bettenartbezeichnung from tblBettenarten order by Bettenartbezeichnung   
Spaltenabzahl:2
Spaltenbreiten: 0cm;5cm
Steuerelementinhalt: BettenartID (Feld in der dem UF zugrundeliegenden Tabelle)

Sub btnGutscheindrucken_Afterupdate()
If Me!BettenartID = 2 Then  ' 2 ist der PK-Wert aus der Tabelle, in der die Bettenarten stehen für den Datensatz, der "Daunenbett" bedeutet
DoCmd.OpenReport "GutscheinBettenreinigung"
End If
End Sub

[maute0311]

Hallo,

verzeiht meine missverständliche Ausdrucksweise... Auswahl im Kombi ist schon recht.

Es handelt sich um einen Kaufvertragsformular (HFO mit Kundendaten) und UFO, in welchem die gekauften Artikel über dieses Kombi ausgewählt werden.
Wenn nun ein Verkäufer ein "Daunenbett xy" verkauft soll der Bericht gedruckt werden.

Zu den Eigenschaften des Kombis:

Datensatzherkunft: Tabelle "Artikel"
Spaltenanzahl: 1
Gebundene Spalte: 1
Spaltenbreite: 5cm

Gruß

Marc

[DF6GL]

Hallo,

Ist dann das Tabellenfeld, in dem "Daunenbett xy" drinsteht, das Primärschlüsselfeld in der Artikeltabelle??


Ich kann Dir nur dringend empfehlen, die Tabelle(n) gemäß u. st. Links #1 und #2    aufzubauen.

Wenn "verkaufen" bedeutet, dass der User im Kombifeld ("Artikel") einen Artikel auswählt und in der Tabelle speichert, der mit "Daunenbett" am Anfang beginnt , dann wäre der folgende Code (mit Deinem Tabellenaufbau) einsetzbar.


Im Unterform:

Code [Auswählen] Erweitern

Sub Form_Afterupdate()
If Me!Artikel Like "Daunenbett*"  Then 
DoCmd.OpenReport "GutscheinBettenreinigung"
End If
End Sub

[maute0311]

Guten Morgen,

mit Deinem Code funktioniert es nun.

Danke für Deine Geduld und Mühe.

Schön das man auf Profis zurückgreifen kann, gut das es Access-o-Mania gibt.

Danke und Gruß

Marc