tablodan tabloya gönderme

Malesef olmadı,
aynı müşteriye aynı kategoriden 1 den fazla kayıt yapılmasın yapmak istedim and kulandım neden olmadığını anlamadım.
If (DLookup("Katagori", "UrunSatis", "Katagori='" & [ktg] & "'") = [ktg] And Dlookup ("MstID", "UrunSatis", "MstID=" & [FrmID]) = [FrmID]) Then
MsgBox " Bu Kategoriden Daha Önce Kayıt Yapılmış...", vbInformation, "Akd.yazılım..."
Exit Sub
End If
Dim akd As ADODB.Connection, i As Integer
Set akd = Application.CurrentProject.Connection
akd.Execute " insert into UrunSatis(MstID, Katagori, Tanimlama, Aciklama, Siralama) select " & Me.FrmID & ", Katagori, Tanimlama, Aciklama, Siralama from [KategoriTanimlama] where Katagori='" & Me.ktg & "'"
akd.Execute "delete * from UrunSatis where Katagori <> Katagori "
akd.Close
Set akd = Nothing
Me.UrunSatis_alt_formu.Requery

If (dcount("Katagori", "UrunSatis", "Katagori='" & [ktg] & "' and MstID=" & [FrmID]) <> 0 Then
bu şekilde değiştirirmisin.

Çok çok teşekkür ederim sayın nurullah_serdar
eline sağlık..