[VBA] Iki Değere Göre Kayıt Yapma

Selam;

Visual Basic

Private Sub Komut0_Click()
 
If DLookup("servis", "[Günlük Çalışma Programı]", "[Tarih]=clng(int(now()))") = "Ölçü Kontrol" Then
 
Exit Sub
Else
Dim SqlEkle As String
SqlEkle = "INSERT INTO [Günlük Çalışma Programı] ( Tarih,Servis, Personel ) " & _
          "SELECT Clng(int(now())),Birim, Personel " & _
          "FROM [Tanımlamalar-Personel] where [Birim]='" & "Ölçü Kontrol" & "'"
CurrentDb.Execute SqlEkle
       
Refresh
End If
End Sub

Selam

Yukarıda kodunu verdiğim şöyle bir problemim var. Form1 deki butona her bastığımda günlük Çalışma Programı tablosuna veri kaydediyorum. Ancak tekrarlı veri olmaması için aynı tarihli servis isminin olmamasını istiyorum. Sadece tarih veya sadece servis olunca kodu yazabiliyorum ancak hem tarih hem servis ismi mevcut ise kayıt yapmasını engelleyemiyorum. Ekte verdiğim programda Form1 deki butona bastığımda Günlük Çalışma Programında verilerini çoğaltmaması lazım zira çoğaltacağı veri zaten tabloda var. Yardım edecek arkadaşlara şimdiden teşekkürler.