Hallo,
vielleicht könnt ihr mir ja weiterhelfen.
Ich habe zwei Tabellen. Einmal die Mentorentabelle und die Ex-Mentorentabelle.
Für jede zwei Tabellen habe ich ein Formular erstellt. Das Verschieben der Daten von A nach Z funktioniert einwandfrei. Jedoch wenn ich jetzt in dem Formular (Auflistung alle Ex-Mentoren) die einzelne Datenblätter von den ex-Mentoren aufmachen möchte, zeigt er mir bei allein 300 Datensätze immer nur den ersten Datensatz an? Wo liegt der Fehler??
Code:
Zum Verschieben der Daten:
Private Sub Ex_Mentor_Click()
On Error GoTo err_proc
Dim strSQL As String, lngID As Long
DoCmd.RunCommand acCmdSaveRecord
lngID = Me![Ment_ID]
strSQL = "Insert Into [tbl_exmentor] Select * From [tbl_mentor] Where tbl_mentor.Ment_ID=" & lngID
CurrentDb.Execute strSQL, 128
strSQL = "Delete * From [tbl_mentor] Where tbl_mentor.Ment_ID=" & lngID
CurrentDb.Execute strSQL, 128
MsgBox "Der Datensatz wurde in die Tabelle EX-Mentor verschoben"
end_proc:
Exit Sub
err_proc:
MsgBox Err.Description, , Err.Number
Resume end_proc
End Sub
Dann zum öffnen der einzelne Datenblätter:
'Deklaration von Objekten als String (Zeichen) oder Integer (Ganzzahlige)
Dim personal As String
Dim criteria As String
Dim i As Integer
'Hier soll das Modifizieren von Daten erlaubt werden
i = Me.Ment_ID
personal = "frm_Mentor_Einzelansicht"
DoCmd.OpenForm personal, , , "[Ment_ID]= " & i
Exit_cmd_openRecord_Click:
Exit Sub
Err_cmd_openRecord_Click:
MsgBox Err.Description
Resume Exit_cmd_openRecord_Click
End Sub
Hallo,
abgesehen davon, dass man dafür keine zwei Tabellen braucht, sondern lediglich ein Inaktiv-Kennzeichen, braucht man auch keine zwei Formulare, weil die Datenquelle beim Öffnen dynamisch eingestellt werden könnte.
Nach deinem Konzept bnrauchst du allerdings auch zwei Formulare für die Detailansicht.
Hast du das berücksichtigt? Oder wie lautet die Datenquelle von "frm_Mentor_Einzelansicht"?
Hallo,
2 Tabellen sind keine gute Lösung. Wie auch hier bereits angemerkt:
http://www.ms-office-forum.net/forum/showthread.php?t=319567