[AlienJoker]

ein wenig nachschlagefaul bist du schon, oder? benutz mal google. das hilft wunder. Ich will hier nicht deine abschlussarbeit schreiben. hier

[soulreeper]

Zitat von AlienJoker ein wenig nachschlagefaul bist du schon, oder? benutz mal google. das hilft wunder. Ich will hier nicht deine abschlussarbeit schreiben.

Naja,ich vermute mal,das wird sicher nen VBA Code sein...Is nur schwierig sowas einzubinden in nem komplizierten Kontext,wenn man sich das erstmal von der Picke auf anlernen muss...

[AlienJoker]

Warum hast du eigentlich n externes Programm für den Barcode? Sowas gibts als kostenlosen schriftsatz. So wie Arial. Du musst dann nur eine ID mit dem Tiernamen oder so verbinden und schon hast du nen eindeutigen Text, den du mit dieser Schriftart darstellst.

[soulreeper]

So,Lösung war wie immer trivial...Einfach in Access nen Klickbutton erstellt,der ein externes Programm öffnet.Aus dem gegebenen Code

Private Sub Barcode_aufrufen_Click()
On Error GoTo Err_Barcode_aufrufen_Click

    Dim stAppName As String

    stAppName =  "C:\DB\BarcodeOK\BarcodeOK.exe"
    Call Shell(stAppName, 1)

Exit_Barcode_aufrufen_Click:
    Exit Sub

Err_Barcode_aufrufen_Click:
    MsgBox Err.Description
    Resume Exit_Barcode_aufrufen_Click

"einfach"

Private Sub Barcode_aufrufen_Click()
On Error GoTo Err_Barcode_aufrufen_Click

    Dim stAppName As String

    stAppName = CurrentProject.Path & "\BarcodeOK\BarcodeOK.exe"
    Call Shell(stAppName, 1)

Exit_Barcode_aufrufen_Click:
    Exit Sub

Err_Barcode_aufrufen_Click:
    MsgBox Err.Description
    Resume Exit_Barcode_aufrufen_Click

gemacht und schon gehts......alles muss man hier selber machen...
Das externe Programm habe ich aus 3 Gründen der Schriftart vorgezogen:
- im Programm kann man zwischen verschiedenen Barcode Typen ohne Probleme wechseln
- die Größe des Barcodes kann variabel eingestellt werden
- der erzeugte Barcode kann gleich entweder ausgedruckt werden,oder aber in der Zwischenablage gespeichert werden,um ihn mit anderen Programmen zu verarbeiten

[AlienJoker]

siehste, war doch gar net so schwer *froi*

[soulreeper]

Zitat von AlienJoker siehste, war doch gar net so schwer *froi*

Aber eh man darauf kommt das so zu kombinieren mit dem "&"...da musste man erst 20 verschiedene Seiten lesen und daraus alles kombinieren.

[AlienJoker]

& setzt halt einfach strings zusammen.
Das mit dem CurrentProject.Path merk ich mir auch mal

[soulreeper]

So heute fertig geworden...Projekt war gut,Abschluss geschafft...vielen Dank für die Hilfe.

[WillyV]