Private Sub cmdLöschen_Click()
Dim rstRecordset As New ADODB.Recordset
Dim varCount As Variant
'Test ob Tabelle leer ist
varCount = dtgBaugruppen.ApproxCount
If varCount = 0 Then Exit Sub
 
'Datensatz suchen
gobjCmd.CommandText = "Select * From tblBaugruppe Where ID = " & _
  Me.dtgBaugruppen.Columns(0)
 
With rstRecordset
    .CursorType = adOpenStatic
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open gobjCmd
End With
 
If rstRecordset.EOF = True Then Exit Sub
 
'Falls Datensatz gefunden wird geslöscht
rstRecordset.Delete
rstRecordset.Update
rstRecordset.Close
 
AdodcBaugruppen.Refresh
dtgBaugruppen.Refresh
End Sub
 
Private Sub cmdNeu_Click()
Dim conConnection As New ADODB.Connection
Dim cmdCommand As New ADODB.Command
Dim rstRecordset As New ADODB.Recordset
Dim ID As Integer
Dim BauGName As String
 
BauGName = InputBox("Geben Sie einen Namen an.", "Neues Produkt erstellen")
 
If BauGName = "" Then Exit Sub
 
'frmWähleProduktart.Show
'Unload Me
 
conConnection.ConnectionString = DBC_new
conConnection.CursorLocation = adUseClient
 
conConnection.Open
 
With cmdCommand
    .ActiveConnection = conConnection
    .CommandText = "SELECT * FROM tblBaugruppe Where ProduktID =" & ProdID
    .CommandType = adCmdText
End With
 
With rstRecordset
    .CursorType = adOpenStatic
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open cmdCommand
End With
 
'Falls der Baugruppenname doppelt ist, wird kein neuer Eintrag erstellt.
rstRecordset.Find "Baugruppenname = '" & BauGName & "'"
If rstRecordset.EOF <> True Then
    MsgBox ("Bitte wählen Sie einen neuen Namen für die Baugruppe.")
    Exit Sub
End If
 
rstRecordset.AddNew
rstRecordset.Fields("ProduktID") = ProdID
rstRecordset.Fields("Baugruppenname") = BauGName
rstRecordset.Update
 
'Aktuelle Baugruppen-ID setzen
BauGID = rstRecordset.Fields("ID").Value
 
rstRecordset.Close
conConnection.Close
 
AdodcBaugruppen.Refresh
dtgBaugruppen.Refresh
End Sub
 
Private Sub cmdWeiter_Click()
Dim varCount As Variant
'Test ob im Datagrid Eintrag gewählt wurde
varCount = dtgBaugruppen.ApproxCount
If varCount = 0 Then
    MsgBox "Bitte eine Baugruppe auswählen."
    Exit Sub
End If
 
'BaugruppenID setzen, die bearbeitet werden soll
BauGID = Me.dtgBaugruppen.Columns(0)
 
frmBauteilWählen.Show
Unload Me
 
End Sub
 
Private Sub Form_Load()
 
AdodcBaugruppen.ConnectionString = DBC_new
AdodcBaugruppen.RecordSource = "Select * From tblBaugruppe where ProduktID =" & _
  ProdID
AdodcBaugruppen.Refresh
 
End Sub