Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
168to172
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Scrollfelder aus Datenbanken

Scrollfelder aus Datenbanken
10.10.2002 15:21:04
Björn
Hallo,

meiner Meinung nach kann man in Excel Scrollfelder generieren, die mehreren Daten einer Datenbank (z.B. Ecxel oder Access) verknüpft ist. Man muss in dem Feld eine Auswahl treffen, z.B. den Namen und der Rest wird automatisch angezeigt.
Leider habe ich noch nicht herausgefunden, wie ich diese Sache angehen soll. Vielleicht kann mir jemand helfen.

mfg

Björn

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Beispieldatenbank Nordwind verwenden
11.10.2002 20:12:25
andre
Hallo,
hier ein Beispielcode. Dazu istein userform zu erstellen - inhalt siehe Sub's

1. userform

2. Modul

~begin~
Option Explicit
' definieren der Objektvariable
Global DB As Database
Global RS As Recordset
Global crs As Recordset
Public Sub main()
UserForm2.Show

End Sub
Public Sub proDBOpen()
Dim tabelle
' Initialisieren
Set DB = OpenDatabase("c:\db\nordwind.mdb", True, True)
UserForm2.Label1.Caption = DB.Name
Set RS = DB.OpenRecordset("artikel", dbOpenSnapshot, dbReadOnly)
'dbopentable zur bearbeitung, da funktioniert aber rs.absoluteposition nicht !!
RS.MoveLast
RS.MoveFirst
Set crs = DB.OpenRecordset("select count(*) from artikel") 'ausgabe in userform
' muss nicht sein - rs.recordcount !!
For Each tabelle In DB.TableDefs
UserForm2.lsttab.AddItem (tabelle.Name)
Next

End Sub

Public Sub proDBClose()
RS.Close
DB.Close

End Sub

~end~

gruss andre

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige