Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Datenbanken
Datenbanken
Fragevon stirlitz vom 17.10.2019, 12:04 Options
Access-Abfrage (mehrere Spalten durchsuchen)
Hallo,
in meiner Datenbank ist eine Tabelle „Kaufabwicklung“ vorhanden. Sie enthält u. a. Spalten wie „VerkäuferName“ und „MonteurName“. Ich will, dass beim Starten meiner Abfrage ich nach dem Namen gefragt werde. Es soll in beiden Spalten gesucht werden und alle Kaufabwicklungen dieser Person ausgegeben werden.
Ich soll nur einmal gefragt werden und nicht 2 mal nacheinander. Z.B. (Geben Sie den Namen des Monteurs oder des Verkäufers).
Jemand eine Idee
Danke
in meiner Datenbank ist eine Tabelle „Kaufabwicklung“ vorhanden. Sie enthält u. a. Spalten wie „VerkäuferName“ und „MonteurName“. Ich will, dass beim Starten meiner Abfrage ich nach dem Namen gefragt werde. Es soll in beiden Spalten gesucht werden und alle Kaufabwicklungen dieser Person ausgegeben werden.
Ich soll nur einmal gefragt werden und nicht 2 mal nacheinander. Z.B. (Geben Sie den Namen des Monteurs oder des Verkäufers).
Jemand eine Idee
Danke
Antwort 1 von lleopard vom 17.10.2019, 13:20 Options
Hallo...
Über ne Abfrage wirst du das nicht hinbekommen... da müssen wir wohl VBA bemühen. ;-)
Ich hab dir das mal was gebastelt, absierend auf einer eigenen Tabelle. Das mußt du natürlich an deine Tabelle anpassen.
Was eigentlich wenn er den Namen in beiden Tabellen hat?
Und was wenn er keinen Eintrag findet?
Function NameAngeben() As String
On Error Resume Next
Dim Antwort, Erg, qDef As QueryDef
Dim chk1, chk2, ssql As String
Antwort = InputBox("Geben Sie den Namen ein, nach dem gesucht werden soll", "Kaufabwicklung")
If Antwort = 0 Then Exit Function
NameAngeben = Antwort
chk1 = DLookup("Satzart", "NTK40", "Satzart='" & NameAngeben & "'")
chk2 = DLookup("MASSNR", "NTK40", "MASSNR='" & NameAngeben & "'")
If IsEmpty(chk1) Or IsNull(chk1) Then chk1 = vbNullString
If IsEmpty(chk2) Or IsNull(chk2) Then chk2 = vbNullString
If chk1 <> vbNullString And chk2 <> vbNullString Then Erg = 1
If chk1 = vbNullString And chk2 <> vbNullString Then Erg = 2
If chk1 <> vbNullString And chk2 = vbNullString Then Erg = 3
If Erg = 1 Then ssql = "SELECT NTK40.SATZART, NTK40.MASSNR FROM NTK40 WHERE (((NTK40.SATZART)='" & Antwort & "')) OR (((NTK40.MASSNR)='" & Antwort & "'));"
If Erg = 2 Then ssql = "SELECT NTK40.SATZART, NTK40.MASSNR FROM NTK40 WHERE (((NTK40.MASSNR)='" & Antwort & "'));"
If Erg = 3 Then ssql = "SELECT NTK40.SATZART, NTK40.MASSNR FROM NTK40 WHERE (((NTK40.SATZART)='" & Antwort & "'));"
If IsEmpty(Erg) Or IsNull(Erg) Then Exit Function
CurrentDb.QueryDefs.Delete "Kaufabwicklung"
CurrentDb.CreateQueryDef "Kaufabwicklung", ssql
DoCmd.OpenQuery "Kaufabwicklung"
End Function
Mal sehen ob du damit klarkommst...
Die Funktion kannst du zB über ein Formular oder ein Makro starten...
Gruß leo
Über ne Abfrage wirst du das nicht hinbekommen... da müssen wir wohl VBA bemühen. ;-)
Ich hab dir das mal was gebastelt, absierend auf einer eigenen Tabelle. Das mußt du natürlich an deine Tabelle anpassen.
Was eigentlich wenn er den Namen in beiden Tabellen hat?
Und was wenn er keinen Eintrag findet?
Function NameAngeben() As String
On Error Resume Next
Dim Antwort, Erg, qDef As QueryDef
Dim chk1, chk2, ssql As String
Antwort = InputBox("Geben Sie den Namen ein, nach dem gesucht werden soll", "Kaufabwicklung")
If Antwort = 0 Then Exit Function
NameAngeben = Antwort
chk1 = DLookup("Satzart", "NTK40", "Satzart='" & NameAngeben & "'")
chk2 = DLookup("MASSNR", "NTK40", "MASSNR='" & NameAngeben & "'")
If IsEmpty(chk1) Or IsNull(chk1) Then chk1 = vbNullString
If IsEmpty(chk2) Or IsNull(chk2) Then chk2 = vbNullString
If chk1 <> vbNullString And chk2 <> vbNullString Then Erg = 1
If chk1 = vbNullString And chk2 <> vbNullString Then Erg = 2
If chk1 <> vbNullString And chk2 = vbNullString Then Erg = 3
If Erg = 1 Then ssql = "SELECT NTK40.SATZART, NTK40.MASSNR FROM NTK40 WHERE (((NTK40.SATZART)='" & Antwort & "')) OR (((NTK40.MASSNR)='" & Antwort & "'));"
If Erg = 2 Then ssql = "SELECT NTK40.SATZART, NTK40.MASSNR FROM NTK40 WHERE (((NTK40.MASSNR)='" & Antwort & "'));"
If Erg = 3 Then ssql = "SELECT NTK40.SATZART, NTK40.MASSNR FROM NTK40 WHERE (((NTK40.SATZART)='" & Antwort & "'));"
If IsEmpty(Erg) Or IsNull(Erg) Then Exit Function
CurrentDb.QueryDefs.Delete "Kaufabwicklung"
CurrentDb.CreateQueryDef "Kaufabwicklung", ssql
DoCmd.OpenQuery "Kaufabwicklung"
End Function
Mal sehen ob du damit klarkommst...
Die Funktion kannst du zB über ein Formular oder ein Makro starten...
Gruß leo
Antwort 2 von lleopard vom 17.10.2019, 13:21 Options
Nachtrag:
Schnell und schmutzig weggeschrieben... kann man natürlich auch über ne Select Case machen usw...
Aber so gehts auch ;-)
Schnell und schmutzig weggeschrieben... kann man natürlich auch über ne Select Case machen usw...
Aber so gehts auch ;-)
Antwort 3 von erik vom 17.10.2019, 16:02 Options
Hallo,
sicherlich lässt sich das über eine Abfrage lösen.
Gruß
erik
sicherlich lässt sich das über eine Abfrage lösen.
PARAMETERS NamePerson TEXT (255);
SELECT *
FROM Kaufabwicklung
WHERE VerkäuferName = [NamePerson]
OR MonteurName = [NamePerson];Gruß
erik
Antwort 4 von stirlitz vom 18.10.2019, 11:22 Options
Vielen Dank für Eure Hilfe!
Ich habe beide Varianten ausprobiert. Beispiel von Leo habe ich an meine Datenbank angepasst, funktioniert sehr gut. Nur entschieden habe ich mich trotzdem für Eriks Variante, da die schon etwas einfacher ist und für meine Bedürfnisse völlig ausreicht.
Gruß
stirlitz
Ich habe beide Varianten ausprobiert. Beispiel von Leo habe ich an meine Datenbank angepasst, funktioniert sehr gut. Nur entschieden habe ich mich trotzdem für Eriks Variante, da die schon etwas einfacher ist und für meine Bedürfnisse völlig ausreicht.
Gruß
stirlitz
Ähnliche Themen
ACCESS Abfrage über MS Query
DCAH 22.01.2007 - 141 Hits - 4 Antworten
Löschen einer Abfrage in Access
roland.stork 28.08.2007 - 72 Hits - 4 Antworten
Access Abfrage - mehrere Werte in einem Feld ausgeben
stirlitz 23.10.2007 - 177 Hits - 1 Antwort
Excel Abfrage mit Verknüpfung von Daten aus 2 Mappen
willymo 29.10.2007 - 336 Hits - 6 Antworten
access abfrage
lbw54 05.05.2008 - 153 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
