PDA

Vollständige Version anzeigen : Komplizierte Abfrage und Aufgabe


Gast
07.05.2004, 12:36
Geht so etwas?

Suche im Feld ([Muster] ´enthält eine Textnachricht) nach den Text "Kundennummer", sowie den Text "Name" und den Text "Preis",

öffne das Formular [Form1], suche anhand dieser Kundennummer in dem Formular [Form1] nach dem dazugehörigen Daten

und schreibe in das, dem zugehörigen Formular [Form1]!Textfeld [Txt1] den zuvor gesuchten Text "Name" und den gesuchten Text "Preis" in das Textfeld [Txt2].

Gast
07.05.2004, 12:46
Hat jemand eine Idee oder weiss wo man so etwas nachlesen kann?

Für Tipps wär ich sehr dankbar.

CptChaos
07.05.2004, 12:49
Hallo Gast,

wenn Du noch ein bisschen näher beschreibst, wass denn eigentlich passieren soll und was Du evtl. schon gemacht hast können wir Dir sicherlich helfen.
Nur mit der obigen Beschreibung komme zumindest ich nicht ganz klar, sorry.

Arne Dieckmann
07.05.2004, 12:54
Mein lieber Gast,

Du drängelst schon wieder. Haben Dir die Hinweise zu Instr() und Co. von Jan ("J_Eilers") in dem anderen Beitrag das Prinzip nicht näher gebracht? S. dazu http://www.ms-office-forum.net/forum/showthread.php?s=&threadid=126903

Gast
07.05.2004, 13:13
Für´s erste reicht mir Code 1 und Code2 in einem Ablauf zu verbinden.

Nach dem finden der Kundennummer, ´Code1
soll das Formular "Form1" geöffnet werden.

Der zur Kundenummer zugehörige Datensatz soll gesucht werden. ´Code2 (derzeit muß ich die Nummer nleider noch manuell eingeben)



__________________________________________________________
Code1

Private Sub Kundennummer_Click()
Dim Text As String
Dim Ende As String

If Len(Nz(Me!Zwischenablage, "")) <> 0 Then
Text = Me!Zwischenablage
Ende = InStr(1, Text, "Kundennummer", vbTextCompare)
If Ende <> 0 Then
Ende = InStr(Ende + 5, Text, "Kundennummer", vbTextCompare)
End If
End If
End Sub
___________________________________________________________

Code2

Private Sub Artikel_über_Artikelnummer_suchen_Schaltfläche_Click()
On Error GoTo Err_Artikel_über_Artikelnummer_suchen_Schaltfläche_Click

Dim stDocName As String

stDocName = "Suche nach Artikeln über Artikelnummer"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Artikel_über_Artikelnummer_suchen_S:
Exit Sub

Err_Artikel_über_Artikelnummer_suchen_Schaltfläche_Click:
MsgBox Err.Description
Resume Exit_Artikel_über_Artikelnummer_suchen_S


End Sub
____________________________________________________________

Gast
08.05.2004, 09:06
Hallo Arne und alle anderen.

Klappt alles wunderbar, nur:

Gibt es die Möglichkeit das Ergebnis des nachfolgenden Suchergebnisses (Code 1) automatisch in eine Abfrage (Code 2) zu übernehmen? D. h. es soll sofort der zur Artikelnummer zugehörige Datensatz angezeigt werden.


Code 1
Me!Angebotsgebühr = Mid(Me!Zwischenablage, InStr(1, Me!Zwischenablage, "Artikelnummer", vbTextCompare) + 13, 6)


Code 2
Private Sub Artikel_über_Artikelnummer_suchen_Schaltfläche_Click()
On Error GoTo Err_Artikel_über_Artikelnummer_suchen_Schaltfläche_Click

Dim stDocName As String

stDocName = "Suche nach Artikeln über Artikelnummer"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Artikel_über_Artikelnummer_suchen_S:
Exit Sub

Err_Artikel_über_Artikelnummer_suchen_Schaltfläche_Click:
MsgBox Err.Description
Resume Exit_Artikel_über_Artikelnummer_suchen_S


End Sub

Gast
08.05.2004, 10:09
Geht wohl nicht, oder??

Gibt es die Möglichkeit das Ergebnis des nachfolgenden Suchergebnisses (Code 1) automatisch in eine Abfrage (Code 2) zu übernehmen? D. h. es soll sofort der zur Artikelnummer zugehörige Datensatz angezeigt werden.