Hallo zusammen,
will den fokus eines Berichts auf artiklenummer setzen
dann die nummer suchen die ich bei Me.Artikelnummer habe
dannach den Berricht ausdrucken
Dim Drucken As Variant, strFindwhat As String
Drucken = Me.Artikelnummer
DoCmd.OpenReport "Etiketten_qryArtikelNr", acViewPreview
Artikelnummer.SetFocus
DoCmd.FindRecord Drucken, acEntire, , acSearchAll
DoCmd.PrintOut acSelection
DoCmd.Close
din nicht gut n vba!
bekomme immer einen fehler
bitte um Hilfe
mfg Gerhard
|