MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 07.05.2004, 12:36   #1
Gast
Standard Komplizierte Abfrage und Aufgabe

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].
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.05.2004, 12:46   #2
Gast
Standard Komplizierte Abfrage und Aufgabe

Hat jemand eine Idee oder weiss wo man so etwas nachlesen kann?

Für Tipps wär ich sehr dankbar.
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.05.2004, 12:49   #3
CptChaos
MOF Guru
MOF Guru
Standard

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.

__________________

Benny Wunder
alias CptChaos

Es gibt 10 Arten von Menschen!
Die, die den Binärcode verstehen und die, die ihn nicht verstehen.
Bitte keine ungefragten PN´s oder Mails. Fragen und Lösungen gehören hier ins Forum, dann ist auch anderen geholfen!

| .NET-Komfort bei der Stringzusammensetzung in VBA | Formularformatierung und -validierung durch eine Klasse |
| Don Karl´s FAQ | DBWiki | Relationale DBs | Datenbanken bei ardiman.de | Access-Tutorial | AccEPT auf joposol.com |
| Erste Fehleranalyse mit Debug.Print |


Und noch was: Bei erledigten Themen, diese bitte auch mit dieser tollen Funktion als erledigt kennzeichnen.
CptChaos ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.05.2004, 12:54   #4
Arne Dieckmann
MOF Guru
MOF Guru
Standard

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...hreadid=126903

__________________

Gru&szlig;, Arne<br><br><u>Links</u>: <a *****"http://www.donkarl.com/FAQ/FAQStart.htm">FAQ</a> • <a *****"http://www.ardiman.de/datenbanken/grundlagen.html">Grundlagen</a> • <a *****"http://v.hdm-stuttgart.de/~riekert/lehre/db-kelz/index.htm">Relationale Datenbanken</a> • <a *****"http://www.lebans.com/">Stephen Lebans</a> • <a *****"https://dbwiki.net">DBWiki</a> <br><u>Tools</u>: <a *****"http://www.ardiman.de/datenbanken/tabtoweb.html">TabToWeb</a> • <a *****"http://www.sqlinform.com/">SQL-Formatter</a> • <a *****"/forum/vbseiten.php?page=7">Code Converter</a> • <a *****"https://regex101.com/">RegEx testen</a><br><u>System</u>: Win7 Pro 64bit, Office 20xx, div. MS-SQL Server 20xx, <a *****"http://www.firefox-browser.de/">Firefox</a><br><span style="color:#B22222">Bitte keine Fragen per Mail/PN</span> und als Neuling diese Anleitung (Code-Tags, Anhänge etc.) lesen.

Geändert von Arne Dieckmann (07.05.2004 um 12:56 Uhr).
Arne Dieckmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.05.2004, 13:13   #5
Gast
Standard Komplizierte Abfrage und Aufgabe

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
____________________________________________________________
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.05.2004, 09:06   #6
Gast
Standard Komplizierte Abfrage und Aufgabe

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
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.05.2004, 10:09   #7
Gast
Standard

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.
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:14 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.