---

Hallo,

Ich habe eine Frage zu Access-VB:

Folgender Code:

Me![Artikelnummer].SetFocus
MsgBox (Modeldoc.DeleteCustomInfo2(Modeldoc.GetActiveConfiguration.Name, "Artikelnummer") + Modeldoc.AddCustomInfo3(Modeldoc.GetActiveConfiguration.Name, "Artikelnummer", swCustomInfoText, Me![Artikelnummer].Text))

Das unschöne daran ist, dass ich eine MsgBox Dialogfunktion hierbei habe - ich finde (bin leider kein VB user) aber keine andere Möglichkeiten diese Daten konfigurationsspezifisch zu übergeben. Vor allem problematisch ist es - da ich mehrere Daten übergebe.

Hat jemand vielleicht eine Idee zu diesen Problem ?

Vielen Dank, mfg PWE

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi PWE,
was genau willst Du da machen???
Soweit ich folgen kann, liest Du einen Wert aus ACCESS und willst ihn in die SolidWorks Datei-Eigenschaften eintragen??? Aber was macht die MsgBox darin?
Schreib bitte mal, was genau da passieren soll!

------------------
Stefanie Dieterich
SolidLine AG
SalesSupport Norddeutschland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Ich will einen Wert von Access in eine Konfigurationsspezifische Eigenschaft (! Nicht Eigenschaft) hineinschreiben.

mfg PWE

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Dann würde ich vorschlagen, Du liest den Wert aus Access aus (wie das geht weiß ich leider auch nicht) und speicherst ihn in eine Variable, in SW müßte es dann heißen:

Model.CustomInfo2(KonfigName, FeldName) = WertAusAccess

Falls Du vorher die Eigenschaft löschen möchtest falls vorhanden (ist nicht notwendig so weit ich weiß):

ret = Model.DeleteCustomInfo2(KonfigName, FeldName)

Viel Erfolg

------------------
Stefanie Dieterich
SolidLine AG
SalesSupport Norddeutschland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Ich habe es umformuliert (nachdem ich erstes mal eine Doku zu VB durchblätterte ... jetzt weiß ich warum es C# oder C++ gibt...)

Artikelnummer.SetFocus
    Modeldoc.DeleteCustomInfo2 Swconfigname, "Artikelnummer"
    Modeldoc.AddCustomInfo3 Modeldoc.GetActiveConfiguration.Name, "Artikelnummer", swCustomInfoText, Me![Artikelnummer].Text

Nochmals Vielen Dank für die Unterstützung, mfg PWE

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo PWE,
den Focus braucht man nicht!. Es genügt, einer Variablen (z.B. strArtNr) den Wert des Feldes zuzuweisen:
strArtnr=Me![Artikelnummer]

Die Standardeigenschaft eines Feldes ist ".text". Daher ist es nicht unbedingt möglich zu formulieren
strArtNr=Me![Artikelnummer].text

Das ergibt dann (Direkt eingebaut ohne Zwischenschritt des vorherigen Zuweisens zur Variablen strArtNr):

Modeldoc.DeleteCustomInfo2 Swconfigname, "Artikelnummer"
    Modeldoc.AddCustomInfo3 (Modeldoc.GetActiveConfiguration.Name, "Artikelnummer", swCustomInfoText, Me![Artikelnummer])

MfG
Armin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP