Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" 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