Zum Inhalt springen
View in the app

A better way to browse. Learn more.

Fachinformatiker.de

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Access + VBA + ein bestimmter DS soll sofort angezeigt werden

Empfohlene Antworten

Veröffentlicht

Hi Folks,

Habe 2 Formulare. In den Einen wählt man ein Datensatz aus. danach klickt man auf ein button und das 2. Formular öffnet sich. In den 2. Formular soll der sofort der Datensatz angezeigt werden der auch im ersten Formular angezeigt wird. Ich habe dies schon versucht über DoCmd.runSQL aber dort kann ich keine Select abfragen erstellen sondern nur SELECT...INTO. Hat jemand eine Idee wie man es am einfachsten bewerkstelligen kann. Ach ja, habe ich erwähnt das ich das ganze über einen VBA Code machen will???

Danke an alle

Thats all Folks

Hi!

Wenn Du das 2. Formular öffnest, kannst Du doch Parameter übergeben. Zum Beispiel:

DoCmd.OpenForm "NAME" ,,,,,,Openargs

Da Dein DS bestimmt einen eindeutigen Wert ( Primärschlüssel ) hat , kannst Du den doch einfach übergeben.

So: Docmd.OpenForm "NAME",,,,,,Me.Primärschlüsselfeld

Bei Öffnen des 2. Formulares soll er dann einfach zu dem Datensatz gehen mit dem Wert, Me.OpenArgs:

DoCmd.GoToControl [Primärschlüsselfeld]

DoCmd.FindRecord Me.OpenArgs

So müsste das gehen. Gruss

Super Danke schön,

werde es sofort mal probieren....

Hi, R-U!

Ich hatte auch bis vor kurzen das Problem mit DoCmd.RunSql!

was Du ausführen möchtest, entspricht einer Auswahlabfrage!?

Und dafür kannst Du ein Recordset verwenden:

Sub <DeineSub>()

Dim Rec As Recordset

Set Rec = CurrentDb().OpenRecordset("<DeinTabellenName>")

...

Set Rec = Nothing

End Sub

Du kannst mit

Rec.MoveFirst

Rec.MoveNext

Rec.MoveLast

Rec.MovePrevious

in den Datensätzen navigieren!

Mit Rec!<DeinFeldName>=<Kriterium> kannst Du Deine Werte mit den Feldwerten vergleichen.

Heißt für Deinen Fall:

...OpenRecordset...

'Nur zur Sicherheit

Rec.MoveFirst

Do While Not Rec.EOF()

If Rec.<DeinFeld>=<Kriterium> then

Exit Do

Loop

Set Rec = Nothing

Damit hast Du den gesuchten Datensatz gefunden.

-----

Wenn Du es im Formular realisieren möchtest, kannst Du auch das Ereignis 'Beim Öffnen' benutzen:

Private Sub Form_Open(Cancel As Integer)

'Nur zur Sicherheit

DoCmd.GoToRecord , , acFirst

Do While Not Me.<SteuerelementName>.Text=<Kriterium>

DoCmd.GoToRecord , , acNext

Loop

Dann befindet sich der Fokus im gesuchten Datensatz.

Archiv

Dieses Thema wurde archiviert und kann nicht mehr beantwortet werden.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.