MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.07.2018, 09:48   #1
Aggro600
Neuer Benutzer
Neuer Benutzer
Standard Acc2010 - Access -> Excel/Combobox und dann weiter...?

Ich möchte aus meiner Datenbank eine Auswahl an Namen abrufen mit Telefonnummern.
Diese sollen in eine Combobox.
Dann soll man die Namen auswählen aus der Combobox
Daraufhin soll in ein Textfeld die passende Telefonnummer erscheinen

Ich kann schon alles in die Combobox schreiben, nun fehlt mir noch die Verknüpfung des ausgewählten mit der Telefonnummer.

Vielleicht ist eine Listbox doch besser, da übersichtlicher

Code:

Private Sub CommandButton2_Click()


Dim DB As String
Dim Tabelle As String
Dim ID As String
Dim UpdateFeld As String
Dim DBAttribut As String
Dim DBAttribut2 As String


DB = "bku.db.dedbDB_008GLW_10INP-W-D-DUINP-W-D-DU (I)14 InstandhaltungLST5_Fachplanung_LSTBegleitarbeiten_LST_Aktuell.accdb" 'Pfad der Datenbank
Tabelle = "LST_Telefonverzeichnis"      'Tabelle in der der Datensatz aktualisiert werden soll
ID = "Y"                                  'In welcher Spalte die ID steht
UpdateFeld = "L"                          'In welcher Spalte das Feld ist was aktualisiert werden soll
DBAttribut = "ID"          'So heißt das Feld in der Datenbank
DBAttribut2 = "Vorname"          'So heißt das Feld in der Datenbank
DBAttribut3 = "Telefonnummer"          'So heißt das Feld in der Datenbank


Set objDatabase = CreateObject("DAO.DBEngine.120").OpenDatabase(DB)
 'Macht eine Abfrage des gerade geänderten Datensatzes
            'sSQL = "SELECT " & DBAttribut & " FROM " & Tabelle & ""
'sSQL = "SELECT " & DBAttribut & " FROM " & Tabelle & " WHERE ID = 1"
sSQL = "SELECT " & DBAttribut & ", " & DBAttribut2 & ", " & DBAttribut2 & " FROM " & Tabelle & ""

             Dim rs As Object
            Set rs = objDatabase.Openrecordset(sSQL)
            'MsgBox ("Ich weiß noch: " & Range(ID & c.Row))
            
            
            
            
'Hier wird jeder eintrag einzeln in die ComboBox Geschrieben
            Do While Not rs.EOF
            ComboBox1.AddItem CStr("ID: " & rs.Fields(DBAttribut) & " Vorname: " & rs.Fields(DBAttribut2))
            rs.MoveNext
            Loop
            
            
End Sub

Geändert von Aggro600 (11.07.2018 um 10:37 Uhr).
Aggro600 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 11:36   #2
maikek
MOF Guru
MOF Guru
Standard

Moin,
was ist denn der Zweck dieser Übung? Und was hat das mit Excel zu tun ?
Wieso bindest du nicht einfach das Kombifeld an die Tabelle/SQL?
maike

__________________

Bitte dein Thema auf erledigt setzen, wenn's durch ist!
MOF Access Stammtisch in Bremen
maikek ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 14:17   #3
Beaker s.a.
MOF Koryphäe
MOF Koryphäe
Standard

Zitat:

Wieso bindest du nicht einfach das Kombifeld an die Tabelle/SQL?

Weil die Tabelle wohl in einer anderen DB liegt und er sie nicht verknüpfen
kann oder will.

__________________

--
S.M.I.²L.E.
Beaker s.a. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 14:22   #4
Aggro600
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Was meinst du mit Verknüpfen? würde das Kombinationsfeld dann das erledigen was ich möchte?

Die Liste soll in Excel bleiben.
Aggro600 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 14:27   #5
Nouba
MOF Guru
MOF Guru
Standard

... er/sie macht das nicht, weil das Arbeitsaumfeld anscheinend Excel und nicht Access ist.

Zum Befüllen siehe Access Listbox in Excel
Nouba ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 14:28   #6
maikek
MOF Guru
MOF Guru
Standard

Was für ein Excel? Ich seh nur eine Access-Datenbank (bku.db.dedbD ... .accdb).
Du kannst Tabellen aus Excel oder einer anderen DB in deine Datenbank verknüpfen und als Datenherkunft für dein Kombifeld angeben.
EDIT: Oder reden wir hier gar nicht über eine Access-Datenbank, sondern über ein Kombifeld in einem Excel-Sheet?
maike

__________________

Bitte dein Thema auf erledigt setzen, wenn's durch ist!
MOF Access Stammtisch in Bremen
maikek ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 14:30   #7
Beaker s.a.
MOF Koryphäe
MOF Koryphäe
Standard

Hallo,
Ja, das Kombi erhält als Datensatzherkunft die verknüpfte Exceldatei, oder
eine Abfrage auf deren Basis falls die für den Zweck unnütze Felder enthält.
Verknüpfung kannst du per Assi machen; - Menu "Externe Daten" im
Bereich "Importieren und Verknüpfen". Das ist dann eigentlich alles selbst-
erklärend.
Bei Problemen, gerne melden.
gruss ekkehard

__________________

--
S.M.I.²L.E.
Beaker s.a. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2018, 14:55   #8
Kyron9000
MOF Koryphäe
MOF Koryphäe
Standard

Hallo,

V1 man kann auch die Excel über eine Abfrage in die Datenbank holen,
über eine weitere Abfrage zusammenstellen und in das Kombi einfügen!?
Beispiel:
Code:

SELECT EX.*
FROM (excel 8.0;imex=0;DATABASE=C:\Ordner\Tabelle.xlsx) [A:ZZ] AS EX;
V2 oder die Excel verknüpfen

Wenn aber, der Name der Excel öfter wechselt, wäre die V1 besser geeignet dafür.

Oder, ich habe etwas falsch verstanden!?

__________________

Gruß Alfred
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:13 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.