title image


Smiley Kann ich diesen Code noch verbessern?
Ich glaube es wirde so manchen übel werden aber passt der Code so oder gibt es bessere Möglichkeiten.



Währe froh für ein wenig Hilfe



thx





Private Sub ListeGeräte_DblClick(Cancel As Integer)

On Error Resume Next



Dim db As ADODB.Recordset

Dim strSQL As String

Dim Preis As Integer



' Doppelte Eingabe vermeiden

Daten = DCount("*", "[tb_Raum/Gerät]", "id_Raum=" & RaumListe & " AND id_Gerät=" & ListeGeräte & "")



If Daten = 0 Then



'Schätzpreis ermitteln

strSQL = "SELECT * FROM tb_Geräte WHERE id=" & ListeGeräte

Set db = CurrentProject.Connection.Execute(strSQL)



Preis = db.Fields("Schätzpreis")



strSQL = "INSERT INTO [tb_Raum/Gerät](id_Raum, Anzahl, id_Gerät, Preis) VALUES(" & RaumListe & "," & Anzahl & "," & ListeGeräte & "," & Preis & ") "

Set db = CurrentProject.Connection.Execute(strSQL)



Else



MsgBox "Dieses Gerät ist bereits im Raum vorhanden" & vbCrLf & "Datensatz wurde nicht gespeichert!", vbOKOnly + vbExclamation + vbDefaultButton1, "Geräte zu Raum"



End If



db.Close

Set db = Nothing



ListeGeräteNeuimRaum.Requery





End Sub


Schöne Grüße aus der Steiermark

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: