FORM frm_Adresse



Option Compare Database

Private Sub btn_Delete_Click()

Dim mydb As Database
Dim rstAdressen As Recordset
Dim SQL As String

SQL = "select * from tbl_Adresse where ADR_ID=" & ADR_ID & ";"
Set mydb = CurrentDb
Set rstAdressen = mydb.OpenRecordset(SQL, dbOpenDynaset)

If rstAdressen.EOF = True Then
 MsgBox "Kein Datensatz"
Else
 rstAdressen.Delete
End If

Me.Requery

End Sub
----------------------------
Private Sub cmdAdresse_suchen_Click()

 frm_Adresse_Suchen_ADR_ID = ""
 
 DoCmd.OpenForm "frm_Adresse_Suchen", , , , , acDialog
 
 If frm_Adresse_Suchen_ADR_ID <> "" Then
  ADR_ID.SetFocus
  DoCmd.FindRecord frm_Adresse_Suchen_ADR_ID
  
 End If
 
End Sub
----------------------------
Private Sub cmdOrtErfassen_Click()
 DoCmd.OpenForm "frm_OrtErfassen", , , , , acDialog
 ADR_ORT_ID.Requery
End Sub
Private Sub cmdOrtSuche_Click()
 DoCmd.OpenForm "frm_OrtSuchen", , , , , acDialog
 
 If frm_OrtSuchen_PLZ <> "" Then
  ADR_ORT_ID = frm_OrtSuchen_PLZ
 End If

End Sub