Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!

Mobiles Hauptmenü

Formular beim Öffnen filtern

Begonnen von miktin, April 22, 2019, 13:27:15

⏪ vorheriges - nächstes ⏩

miktin

Hallo
Hab ein Problem beim öffnen eines Formulares. Beim klick auf einen Button möchte ich gefragt werden was ich filtern möchte.
Private Sub Befehl0_Click()
DoCmd.OpenForm "frmArticle", , , "PURE_REAL_Relation_CAS_Number = '&*'"
End Sub

Ich werde auch gefragt doch findet er die CAS nicht.
Kann mir wer helfen?
Danke

PhilS

Zitat von: miktin am April 22, 2019, 13:27:15
Ich werde auch gefragt doch findet er die CAS nicht.
Nach was wirst du gefragt?

Der von die gezeigte Code wird keine Parameterabfrage auslösen, sondern die Daten über die PURE_REAL_Relation_CAS_Number exakt nach &* filtern.
Wenn du dennoch gefragt wirst, dann wird das durch etwas anderes ausgelöst.

Eine Parameterabfrage erreichst du so:
DoCmd.OpenForm "frmArticle", , , "PURE_REAL_Relation_CAS_Number = [CAS Nummer eingeben]"
Neue Videoserie: Windows API in VBA

Klassische CommandBars visuell bearbeiten: Access DevTools CommandBar Editor

miktin

Danke schon mal
Bei deinem Code werde ich 2 mal nach dem Parameter gefragt.
Einmal - PURE_REAL_Relation_CAS_Number
Einmal - CAS Nummer eingeben

PhilS

Zitat von: miktin am April 22, 2019, 17:33:38
Bei deinem Code werde ich 2 mal nach dem Parameter gefragt.
Einmal - PURE_REAL_Relation_CAS_Number
Einmal - CAS Nummer eingeben
Ich bin davon ausgegangen, dass PURE_REAL_Relation_CAS_Number das Feld in deiner Datenherkunft ist, über das gefiltert werden soll. - Wenn das Feld anders heißt, solltest du den Namen entsprechend ersetzen.
Neue Videoserie: Windows API in VBA

Klassische CommandBars visuell bearbeiten: Access DevTools CommandBar Editor

miktin

Das ist es auch er fragt aber nochmal nach dem [CAS Nummer eingeben]

DF6GL

Hallo,

poste mal den Text aus der Datenherkunft des Forms.  Wenn es sich nicht um einen SQL-String handelt, eher um einen Abfragenamen, dann den SQL-String der Abfrage. Wenn es sich um einen Tabellennamen handelt, den Screenshot der Tabellenentwurfs-Ansicht...
Viele Grüße vom Bodensee
Franz, DF6GL

Hilfestellung:  http://www.access-o-mania.de/forum/index.php?topic=6969.msg118738#msg118738

Links und Tipps:
1.   http://v.hdm-stuttgart.de/~riekert/lehre/db-kelz/
1a. http://www.tinohempel.de/info/info/datenbank/normalisierung.htm
1b. https://support.office.com/de-de/article/Grundlagen-des-Datenbankentwurfs-eb2159cf-1e30-401a-8084-bd4f9c9ca1f5#bmterms
2.   http://www.donkarl.com
3.   https://web.archive.org/web/20201201233522/http://www.dbwiki.net/
4.   http://www.access-tutorial.de/
5.   http://www.tty1.net/smart-questions_de.htm
6.   http://access.joposol.com/accept

Last but not least:   < F1 > für Hilfe
;) Learning by doing not by spoon-feed ;)

Tipp: Find and Replace for Access

miktin

Hallo

Das Formular beruht auf einer Abfrage.
SELECT Materials.[Article Number], Materials.Name, Materials.[CAS Number], PURE_REAL_Relation.[CAS Number], [GHS Labeling EMEA].[Hazard Statements Code], [GHS Labeling EMEA].[Remarks Text], Materials.[Material Group], Materials.[Measure Base Unit], Materials.[Net Weight], Materials.[Weight Unit], [GHS Labeling EMEA].Rating, [GHS Labeling EMEA].[Validity Area], Materials.Substance, REAL_ARTI_Relation.ARTI, REAL_ARTI_Relation.REALSUB, PURE_REAL_Relation.REALSUB, [GHS Labeling EMEA].Substance, PURE_REAL_Relation.PURES
FROM (([GHS Labeling EMEA] INNER JOIN (Materials INNER JOIN REAL_ARTI_Relation ON Materials.Substance = REAL_ARTI_Relation.ARTI) ON [GHS Labeling EMEA].Substance = REAL_ARTI_Relation.REALSUB) INNER JOIN PURE_REAL_Relation ON REAL_ARTI_Relation.REALSUB = PURE_REAL_Relation.REALSUB) INNER JOIN OEL ON PURE_REAL_Relation.PURES = OEL.Substance
ORDER BY Materials.[Article Number];

Gruß

PhilS

Details sind wichtig!

Die beiden folgenden Bezeichner sind nicht identisch:
PURE_REAL_Relation.[CAS Number]

PURE_REAL_Relation_CAS_Number
Neue Videoserie: Windows API in VBA

Klassische CommandBars visuell bearbeiten: Access DevTools CommandBar Editor

DF6GL

... und der Aufruf sollte dann so lauten:


DoCmd.OpenForm "frmArticle", , , "PURE_REAL_Relation.[CAS Number] = [CAS Nummer eingeben]"
Viele Grüße vom Bodensee
Franz, DF6GL

Hilfestellung:  http://www.access-o-mania.de/forum/index.php?topic=6969.msg118738#msg118738

Links und Tipps:
1.   http://v.hdm-stuttgart.de/~riekert/lehre/db-kelz/
1a. http://www.tinohempel.de/info/info/datenbank/normalisierung.htm
1b. https://support.office.com/de-de/article/Grundlagen-des-Datenbankentwurfs-eb2159cf-1e30-401a-8084-bd4f9c9ca1f5#bmterms
2.   http://www.donkarl.com
3.   https://web.archive.org/web/20201201233522/http://www.dbwiki.net/
4.   http://www.access-tutorial.de/
5.   http://www.tty1.net/smart-questions_de.htm
6.   http://access.joposol.com/accept

Last but not least:   < F1 > für Hilfe
;) Learning by doing not by spoon-feed ;)

Tipp: Find and Replace for Access

miktin

Super
jetzt klappt es.
Vielen Dank