🚀 go-pugleaf

Sebastian L�ck schrieb:
> 
> moin

Kann man wohl sagen: 5:42 Uhr ! Stehst Du so bald auf oder
hast Du rund um die Uhr drangebastelt ?

> Tabelle steht.
> je datensatz: 4 textfelder (Marke, Nr1, Nr2, Beschreibung)
> 
> durch das formular soll ein Datensatz via Marke und Nr1 gesucht werden
> k�nnen.

Der Trouble ist, dass Du nach zwei Feldern gleichzeitig suchen
willst, und das packt der Assistent nicht, der ist auf einzelne
Felder eingeschworen.

Wie Du es f�r BenutzerInnen gestaltest dass die beiden
Suchbegriffe eingegeben werden lass ich mal dahingestellt,
vermutlich f�r jedes Feld eine Kombibox. Passieren muss
das ganze nachdem beide Suchbegriffe eingegeben sind,
also im "Nach Aktualisieren" Ereignis des zweiten
Steuerelementes. Beide Steuerelemente m�ssen nat�rlich
ungebunden sein, weil sonst ja nicht nur ein Suchbegriff
eingegeben w�rde, sondern damit gleichzeitig auch der
urspr�ngliche Feldinhalt ge�ndert w�rde, wenn ein Feld
an das Steuerelement gebunden w�re.

Du musst innerhalb der Prozedur eine Zeichenfolge zusammen-
stellen, die beide Suchbegriffe enth�lt, und dann danach
suchen, aber nicht mit DoCmd.FindRecord, weil das nur
innerhalb desjenigen Feldes Suchen kann, dessen Steuerelement
gerade den Fokus hat, und das kann immer nur eines gleichzeitig
sein. Sagen wir mal, die beiden unugebundenen Steuerelemente
hiessen Cmb_Such_Marke und Cmb_Such_Nr1, dann k�nnte die
Prozedur etwa so aussehen:

Private Sub Cmb_Such_Nr1_AfterUpdate
On Error Goto Err_Cmb_Such_Nr1_AfterUpdate

    Dim vSuch As String, AktRS As Recordset
    
    Set AktRS = Me.RecordsetClone
    vSuch = "[Marke]='" & Me![Cmb_Such_Marke] & "' And [Nr1]='" _
            & Me![Cmb_Such_Nr1] & "'"
    AktRS.FindFirst vSuch
    If AktRS.NoMatch Then
        MsgBox "Suchbegriffe nicht zu finden", _
                vbInformation + vbOKOnly, "Suchen nach Marke und Nr1"
    Else
        Me.Bookmark = AktRS.Bookmark
    End If
    AktRS.Close

Exit_Cmb_Such_Nr1_AfterUpdate:
    Set AktRS = Nothing

    Exit Sub

Err_Cmb_Such_Nr1_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Cmb_Such_Nr1_AfterUpdate

End Sub



Gf.

Kurt Grof wrote:

> Sebastian L�ck schrieb:
> > moin
>
> Kann man wohl sagen: 5:42 Uhr ! Stehst Du so bald auf oder hast Du rund um
> die Uhr drangebastelt?

das zweite

> > je datensatz: 4 textfelder (Marke, Nr1, Nr2, Beschreibung)
> > durch das formular soll ein Datensatz via Marke und Nr1 gesucht werden
> k�nnen.

> Der Trouble ist, dass Du nach zwei Feldern gleichzeitig suchen willst, und
> das packt der Assistent nicht, der ist auf einzelne Felder eingeschworen.

hm .. auch bei einem feld hab' ich das nicht mit den assistenten hingekriegt
.. immer gleich zu fu� probiert.


> Wie Du es f�r BenutzerInnen gestaltest dass die beiden Suchbegriffe
> eingegeben werden lass ich mal dahingestellt,
> vermutlich f�r jedes Feld eine Kombibox.

yip.

> Passieren muss das ganze nachdem beide Suchbegriffe eingegeben sind, also
> im "Nach Aktualisieren" Ereignis des zweiten
> Steuerelementes.

ich habe da jetzt makros reingeh�ngt.

> Beide Steuerelemente m�ssen nat�rlich ungebunden sein, weil sonst ja nicht
> nur ein Suchbegriff eingegeben w�rde, sondern damit gleichzeitig auch der
> urspr�ngliche Feldinhalt ge�ndert w�rde, wenn ein Feld an das
> Steuerelement gebunden w�re.

a-ha!! ich habe JETZT endlich den eigentlichen unterschied von gebunden und
UNgebunden kapiert! danke!!

> Du musst innerhalb der Prozedur eine Zeichenfolge zusammenstellen, die
> beide Suchbegriffe enth�lt, und dann danach
> suchen, aber nicht mit DoCmd.FindRecord, weil das nur innerhalb desjenigen
> Feldes Suchen kann, dessen Steuerelement
> gerade den Fokus hat, und das kann immer nur eines gleichzeitig sein.

h�?

> Sagen wir mal, die beiden unugebundenen Steuerelemente hiessen
> Cmb_Such_Marke und Cmb_Such_Nr1, dann k�nnte die
> Prozedur etwa so aussehen:
>
> Private Sub Cmb_Such_Nr1_AfterUpdate

wo f�ngt denn jetzt die eigentliche prozedur/funktion/methode an? bei
Cmb_Su... ?

> On Error Goto Err_Cmb_Such_Nr1_AfterUpdate

die erkl�rungen in der hilfe zu on error sind nicht sonderlich
newbie-geeignet geschrieben..

>
>     Dim vSuch As String, AktRS As Recordset

das hier d�rfte dann wohl eine variablen deklaration sein ?!

>>     Set AktRS = Me.RecordsetClone
>
noch eine variablen deklaration? oder ist das hier eine zuweisung? aber
wieso steht dann in der nexten zeile kein set?

>>     vSuch = "[Marke]='" & Me![Cmb_Such_Marke] & "' And [Nr1]='" _
>>             & Me![Cmb_Such_Nr1] & "'"
>>     AktRS.FindFirst vSuch
>>     If AktRS.NoMatch Then
>>         MsgBox "Suchbegriffe nicht zu finden", _
>>                 vbInformation + vbOKOnly, "Suchen nach Marke und Nr1"
>>     Else
>>         Me.Bookmark = AktRS.Bookmark
>>     End If
>>     AktRS.Close
>>
>> Exit_Cmb_Such_Nr1_AfterUpdate:
>>     Set AktRS = Nothing
>
nothing scheint mir ein undokumentiertes schl�sselwort zu sein?

>>     Exit Sub
>
wieso denn exit?

>> Err_Cmb_Such_Nr1_AfterUpdate:
>>     MsgBox Err.Description
>>     Resume Exit_Cmb_Such_Nr1_AfterUpdate
>
was bedeutet resume? (wiederaufnahme .. ja von was denn? .. und wann denn?)

>> End Sub
>
schade .. aber VBA verstehe ich so GARNICHT ..


--
Sebastian L�ck

Kurt Grof wrote:
<snip> something <snip>

ich habe meine jetzige preL�sung mal ins Netz gestellt:
[ http://www.inf.fu-berlin.de/~lueck/HOME/UPLOADz/ewz.exe ]

ist ein selbstextrahierendes winRAR archiv, 75 KByte, virenfrei

--
Sebastian L�ck