Office: (Office 2016) Namen in Tabelle umwandeln in Felddatentyp Zahl

Hasenzahn · 29. Juni 2020

Hallo Leute,

kleines (ode auch ein größeres Problem (Herausforderung): *wink.gif*
Seit 1 Jahre erfasse ich meine Filmsammlung mit Access 365. Anfangs hatte ich nur eine Tabelle, in die ich einfach alles reingeschrieben habe. Ich weiß, war blöd - wollte erst mal ne Übersicht.
Jetzt hab ich ein paar Tabellen mehr - man lernt dazu - und zwischenzeitlich bei der Tabelle Schauspieler mehr als 10.320 Datensätze. Damit ich weiterkomme zum Erstellen von
Datemmodell
- Dank an "astern - dessen Buch ich mir gekauft habe vor ein paar Monaten - und Abfragen und was sonst noch dazugehört:
Wie kann ich die Namen in der Tabelle Schauspieler mit dem dazugehörigen Felddatentyp Zahl am schnellsten ersetzten?
Suchen und Ersetzten ist sehr mühsam und kostet Zeit...

Vielen Dank schon mal im Voraus*wink.gif* *wink.gif*

:)

Ohrkester · 1. Juli 2020

Servus Hasenzahn,

....Wie kann ich die Namen in der Tabelle Schauspieler mit dem dazugehörigen Felddatentyp Zahl am schnellsten ersetzten?....
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Am schnellsten, indem Du Deine bisherigen DB-Versuche als zip oder rar
hier uploadest.
Es wird möglicherweise nur möglich sein, Deine Daten per VBA-Programmierung und/oder SQL (Abfragen) aufzuräumen, wenn das DB-Modell
mal endgültig festgelegt worden ist.
Dazu wirst Du am besten "die Hosen herunterlassen müssen" und die Daten
zur Verfügung stellen müssen.
Ein Bild des Beziehungsfensters wird da zu wenig Infos bieten.

ebs17 · 1. Juli 2020

Wie kann ich die Namen in der Tabelle Schauspieler mit dem dazugehörigen Felddatentyp Zahl am schnellsten ersetzten?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du möchtest Klarnamen durch Schlüssel, die in einer weiteren Tabelle als Primärschlüssel für diese Klarnamen vorliegen, ersetzen?
Dann siehe Importtabelle in m:n-Beziehung auflösen

Hasenzahn · 1. Juli 2020

Servus Ohrkester,

da ich neu im Forum bin und mich noch nicht auskenne, würde ich meine Arbeit nicht so gerne "allen" zur Verfügung stellen.*rolleyes.gif*

Ich kann meine Arbeit aber morgen (heute ist es schon ein bißchen spät) an Dich senden. Wäre das ok für Dich?

Dankeschöööön!

Hasenzahn · 1. Juli 2020

Vielen Dank für die schnelle Antwort, ebs17,

schaue ich mir morgen an und gebe feedback.

Gruß - Hasenzahn

Hasenzahn · 6. Juli 2020

Vielen Dank, ebs17

fas hat wunderbar geklappt. Ich bin wieder einen Schritt weiter...*Smilie

Gruß - Hasenzahn*Smilie

Ohrkester · 9. Juli 2020

Servus Hasenzahn,
ich hab Dein Tabellenmodell mal optimiert und zeig hier die Version 'alt' und Version 'neu' als Bilder.
Du hast in tblFilme in den Feldern Schauspieler, Regisseure, Genre, etc.(siehe Beziehungsfenster)
Fremdschlüsselfelder "gesammelt", was zwar falsch ist, aber es durchaus vereinfacht, das neue Tabellenmodell
per Code damit aufzufüllen.
Ein typischer Sammelwert (Primärschlüssel eines Schauspielers) in Deinem TextFeld Schauspieler ist:
25;117;234;248;273;374;449;479;596;711;770;829;893;895;908;909;1011;1127;1223;13 20;1417;1476;1690;1702;1776
Diese Daten muss man wieder gesplittet in einzelne Datensätze als Fremdschlüssel in die Tabelle tbl_Filme_Schauspieler
zusammen mit dem Primärschlüssel des zugehörigen Films kopieren.

Über folgende Codes kann man das als einmaligen Prozess (für Schauspieler je Film) erledigen.
Mit leichten Anpassungen klappt das auch für die anderen Tabellenfelder, in welchen Fremdschlüssel von Regisseuren....etc. "gesammelt" worden sind.

in einem allgemeinen Modul:
Code:

Option Compare Database
Option Explicit

'Autor der Funktion ist mir unbekannt
Public Function fGetPart( _
ByVal sText As String, _
ByVal sDelimiter As String, _
Optional ByVal iLimitSubstrings As Integer = -1, _
Optional ByVal iPosition As Integer = -1) As String
' Argument iPosition: -1 für letztes Element, sonst Positionsnummer

Dim vArr As Variant
vArr = Split(Nz(sText), sDelimiter, iLimitSubstrings)
If iPosition - 1 0 Then
fGetPart = Trim(vArr(iPosition - 1))
ElseIf iPosition = -1 Then
fGetPart = Trim(vArr(UBound(vArr)))
Else
fGetPart = ""
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

in einem Formular mit dem button btnSplitCopy_Schauspieler
Code:

Option Compare Database
Option Explicit

Private Sub btnSplitCopy_Schauspieler_Click()
'Dieser Code ist für einmaliges Split and Copy Datas gedacht.
'Bei mehrmaligen Tests bitte die Daten in tbl_Filme_Schauspieler erst löschen und die DB komprimieren,
'damit die Primärschlüssel wieder von 1 an aufwärts geschrieben werden.
'Die Richtigkeit der Zuordnung kann man in 'qry_Filme_Schauspieler' sehen.
Dim i As Integer
Dim InsSQL As String
Dim rs As DAO.Recordset
On Error GoTo Fehler
If MsgBox("Wollen Sie die Schauspielerdaten splitten und in tbl_Filme_Schauspieler als Fremdschlüssel insertieren?", vbQuestion + vbYesNo, "Schauspielerschlüssel splitten und kopieren?") = vbYes Then
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblFilme WHERE not isnull(Schauspieler)")
Do Until rs.EOF
'Debug.Print UBound(Split(Nz(rs!Schauspieler, ""), ";")) + 1
For i = 1 To UBound(Split(Nz(rs!Schauspieler, ""), ";")) + 1
'Bei mehr als 30 Schauspieler pro Film, die Zahl 30 erhöhen, sonst stoppt der Code...optimierbarer Code an dieser Stelle.
InsSQL = "INSERT INTO tbl_Film_Schauspieler " & "(ID_Filme_f, Schauspieler_ID_f) " & "VALUES (" & rs!ID_Filme & "," & Nz(fGetPart(rs!Schauspieler, ";", 30, i)) & ")"
CurrentDb.Execute InsSQL
Next i
rs.MoveNext
Loop
End If
Exit Sub
exit_Fehler:
Exit Sub
Fehler:
MsgBox "Fehler. Bitte den Code checken."
Resume exit_Fehler
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das SQL-Statement der Abfrage 'qry_Filme_Schauspieler' ist:
Code:

SELECT tblFilme.ID_Filme, tblFilme.Filme, tbl_Schauspieler.Schauspieler
FROM tblFilme LEFT JOIN (tbl_Schauspieler RIGHT JOIN tbl_Film_Schauspieler ON tbl_Schauspieler.Schauspieler_id = tbl_Film_Schauspieler.Schauspieler_id_f) ON tblFilme.ID_Filme = tbl_Film_Schauspieler.ID_Filme_f
ORDER BY tblFilme.ID_Filme;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hast Du Dir schon mal Gedanken gemacht, dass ein Schauspieler auch Regisseur sein kann und ein Regisseur auch Schauspieler?
Ich empfehle da, statt von vornherein einer Person eine unabänderbare Funktion zuzuordnen, die Personendaten ohne Funktion in der
Personentabelle festzuhalten. Bei der Zuordnung der Person zu einem Film kann man sie dann flexibler in ihren Funktionen zuordnen.
Stell Dir vor, das Tom Tykwer in seinen Filmen Regisseur und auch Komponist ist.
Verschwende da doch auch noch ein paar Gedanken.

Office: (Office 2016) Namen in Tabelle umwandeln in Felddatentyp Zahl

Namen in Tabelle umwandeln in Felddatentyp Zahl

Namen in Tabelle umwandeln in Felddatentyp Zahl

Namen in Tabelle umwandeln in Felddatentyp Zahl

Namen in Tabelle umwandeln in Felddatentyp Zahl - Similar Threads - Namen Tabelle umwandeln

Mehrere Namen aus Tabelle in eine Liste filtern

Anzahl gleicher Namen aus Tabelle

Name in Datenbereich suchen und zugehörigen Wert in der Zeile in einer neuen Tabelle ausgeben

Tabelle Monat suchen und Namen ausgeben

Bereichs-Namen auf anderen Tabellen-Blättern

Tabelle in neuer Datei als xlsm speichern und Name einfügen

Bestimmte Namen in der Tabelle suchen kopieren und einfügen