Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As _
  Integer)
DBGrid1_SelChange True
End Sub
 
Private Sub Daten2()
            Data2.DatabaseName = (App.Path + "\" + "DVD_DB.mdb")
            Data2.RecordSource = "Select * from DVD_Stamm where DVD_ID = '" + _
              ID9 + "'"
            Data2.Refresh
DBGrid1.Columns(0).Width = 500
DBGrid1.Columns(1).Width = 3500
DBGrid1.AllowRowSizing = False
End Sub
 
Private Sub DBGrid1_SelChange(Cancel As Integer)
Dim Original_Kopie As String
Dim FilmBewertung As String
Dim FilmQualität As String
Data2.Refresh
If Uebergehen = 0 Then
id.Text = Data1.Recordset.Fields("DVD_ID")
      ID2 = Replace(id.Text, "{guid ", "")
      ID9 = Replace(ID2$, "}}", "}")
Daten2
DVD_aendern_und_Details.Text1.Text = ID9
DVD_aendern_und_Details.DVD_Titel.Text = Data2.Recordset.Fields("DVD_Titel")
DVD_aendern_und_Details.D1.Text = Data2.Recordset.Fields("DVD_Darsteller1")
DVD_aendern_und_Details.D2.Text = Data2.Recordset.Fields("DVD_Darsteller2")
DVD_aendern_und_Details.Beschreibung.Text = Data2.Recordset.Fields( _
  "DVD_Beschreibung")
DVD_aendern_und_Details.Kat.Text = Data2.Recordset.Fields("DVD_Kategorie")
DVD_aendern_und_Details.FSK.Text = Data2.Recordset.Fields("DVD_FSK")
DVD_aendern_und_Details.Laufzeit.Text = Data2.Recordset.Fields("DVD_Länge")
DVD_aendern_und_Details.AnzCD.Text = Data2.Recordset.Fields("DVD_Anzahl")
DVD_aendern_und_Details.DVDNr.Text = Data2.Recordset.Fields("DVD_Nr")
 
DVD_aendern_und_Details.Regie.Text = Data2.Recordset.Fields("DVD_Regie_Mensch")
Original_Kopie = Data2.Recordset.Fields("DVD_Art")
    If Original_Kopie = "Original" Then
        DVD_aendern_und_Details.Option1 = True
        DVD_aendern_und_Details.Option2 = False
    Else
        DVD_aendern_und_Details.Option2 = True
        DVD_aendern_und_Details.Option1 = False
    End If
FilmBewertung = Data2.Recordset.Fields("DVD_FilmBewertung")
    If FilmBewertung = "1" Then
        DVD_aendern_und_Details.Option3 = True
    End If
    If FilmBewertung = "2" Then
        DVD_aendern_und_Details.Option4 = True
    End If
    If FilmBewertung = "3" Then
        DVD_aendern_und_Details.Option5 = True
    End If
    If FilmBewertung = "4" Then
        DVD_aendern_und_Details.Option6 = True
    End If
    If FilmBewertung = "5" Then
        DVD_aendern_und_Details.Option7 = True
    End If
FilmQualität = Data2.Recordset.Fields("DVD_FilmQualität")
    If FilmQualität = "1" Then
        DVD_aendern_und_Details.Option12 = True
    End If
    If FilmQualität = "2" Then
        DVD_aendern_und_Details.Option11 = True
    End If
    If FilmQualität = "3" Then
        DVD_aendern_und_Details.Option10 = True
    End If
    If FilmQualität = "4" Then
        DVD_aendern_und_Details.Option9 = True
    End If
    If FilmQualität = "5" Then
        DVD_aendern_und_Details.Option8 = True
    End If
DVD_aendern_und_Details.Prod.Text = Data2.Recordset.Fields("DVD_Produktion")
DVD_aendern_und_Details.Land.Text = Data2.Recordset.Fields("DVD_Land")
DVD_aendern_und_Details.JahrText.Text = Data2.Recordset.Fields("DVD_Jahr")
DVD_aendern_und_Details.Bemerkung.Text = Data2.Recordset.Fields("DVD_Bemerkung")
DVD_aendern_und_Details.Show
 
Unload Me
Exit Sub
Else
Uebergehen = 0
Exit Sub
End If
End Sub