Access-o-Mania

Access-Forum => Access Programmierung => Thema gestartet von: itwebmaster am November 16, 2020, 15:07:41

Titel: Report Textfelder via Inputbox füllen
Beitrag von: itwebmaster am November 16, 2020, 15:07:41
Ich habe einen kleinen Bericht mit drei Ausgabefeldern
Firmennummer - Personalnummer und Personalname und möchte diese der Einfachheit halber über eine Inputbox füllen:

Private Sub Report_Open(Cancel As Integer)
Dim MandNr, PersNr As Long
Dim PersName As String

MandNr = InputBox("Wie lautet die Mandantennummer?", "Mandantennummer")
PersNr = InputBox("Wie lautet die Personalnummer?", "Personalnummer")
PersName = InputBox("Wie lautet der Name des Personals? 'Nachname, Vorname(n)", "Personalname")

Me.PersNr1 = PersNr
Me.PersNr2 = PersNr
Me.Firma1 = MandNr
Me.Firma2 = MandNr
Me.gName1 = PersName
Me.gName2 = PersName
End Sub


So geht es leider nicht! Weder der Report noch die Textfelder sind an Datenquellen gebunden. Ich erhalte aber immer die Meldung, dass ich auf das Feld nicht zugreifen kann.
Was mache ich flasch?
Danke für Eure Hilfe
Titel: Re: Report Textfelder via Inputbox füllen
Beitrag von: Beaker s.a. am November 16, 2020, 15:29:12
@itwebmaster
Zitatder Einfachheit halber
Einfach ist die Felder mit in die DS-Herkunft des Berichtes aufzunehmen,
und die Werte aus einem Formular per Filter/Where-Condition zu übergeben.
gruss ekkehard
Titel: Re: Report Textfelder via Inputbox füllen
Beitrag von: DF6GL am November 18, 2020, 08:21:10
Hallo,


ohne jetzt weiter auf diese Methodik einzugehen:


"Report_Open" ist das falsche Ereignis... und falsche Deklarationen:



Private Sub Report_Load()
Dim MandNr As String, PersNr As String
Dim PersName As String

MandNr = InputBox("Wie lautet die Mandantennummer?", "Mandantennummer")
PersNr = InputBox("Wie lautet die Personalnummer?", "Personalnummer")
PersName = InputBox("Wie lautet der Name des Personals? 'Nachname, Vorname(n)", "Personalname")

Me!PersNr1 = PersNr
Me!PersNr2 = PersNr
Me!Firma1 = MandNr
Me!Firma2 = MandNr
Me!gName1 = PersName
Me!gName2 = PersName
End Sub

Titel: Re: Report Textfelder via Inputbox füllen, nachgefragt
Beitrag von: Beaker s.a. am November 18, 2020, 12:41:55
@itwebmaster
Dim MandNr, PersNr As LongWenn du mehrere Variablen in einer Zeile deklarierst, musst du trotz-
dem zu jeder den Typ angeben.
Dim MandNr As String, PersNr As StringDie Deklaration einer Variablen ohne Typangabe erzeugt immer
einen Typ Variant.
Wäre zwar in diesem Fall nicht so schlimm, da du die Eingabe vor der
Zuweisung zum Textfeld eh auf Gültigkeit überprüfen musst.

gruss ekkehard
Titel: Re: Report Textfelder via Inputbox füllen
Beitrag von: MzKlMu am November 18, 2020, 17:03:00
Hallo,
Zitatund möchte diese der Einfachheit halber über eine Inputbox füllen:
Was soll daran einfach sein ?

Und wenn Du nach dem Ausdruck feststellst, dass in der Personalnummer ein Zahlendreher war, muss die Eingabe noch mal gemacht werden.
Es würde mich auch wundern, wenn die 3 Werte nicht ohnehin schon in Tabellen vorliegen.
Das Vorhaben erscheint mir recht fragwürdig.