Here is my Code i'm a beginner,when i run the command it gives me a syntax error after that i delete the rows and not transfer to the other record thanks any can help me.

    If Mode = "AddTransfer" Then
     msg = MsgBox("Are you sure you want To Save your Files", vbYesNo)
     If msg = vbYes Then
      srchPrprty = "Property = " & Val(Text4(2))
      If srchPrprty = rstNew!Property Then
   strSQL = "Delete * from NewProperty "
   strSQL = strSQL & " where Property = '" & Val(Text4(2)) & "' And Dptcode = '" & Val(Text4(0)) & "' And "
  strSQL = strSQL & "Insert Into Newproperty (dptcode,dptname,dater,reason,number,Description,M anufacturer,Model,Se rialnumber,Status,Property)"
strSQL = strSQL & "values('" & Val(Text4(3)) & "','" _
 & Text4(6) & "','" _
                                & MaskEdBox3 & "','" _
                                & Text4(7) & "','" _
                                & Val(Transfer.TextMatrix(Transfer.Row, 1)) & "','" _
                                & Transfer.TextMatrix(Transfer.Row, 2) & "','" _
                                & Transfer.TextMatrix(Transfer.Row, 3) & "','" _
                                & Transfer.TextMatrix(Transfer.Row, 4) & "','" _
                                & Transfer.TextMatrix(Transfer.Row, 5) & "','" _
                                & Transfer.TextMatrix(Transfer.Row, 6) & "','" _
                                & Val(Transfer.TextMatrix(Transfer.Row, 7)) & "')"
                        dbs.Execute strSQL, dbFailOnError





none

__________________
none

But in the code u are inserting the records, right

on which line u are getting error & what is the error?

Om Prakash

IT GIVES ME A MESSAGE THAT I HAVE A DUPLICATE VALUE ON MY PRIMARY KEY ON THE LINE OF dbs.Execute strSQL, dbFailOnError



none

SO U CAN CHECK FOR THE EXISTANCE OF RECORD BEFORE INSERTING.

I guess the primary key is dptcode. so before inserting the data, check if data is already present for that code ot not.

Hope this helps..

Om Prakash

Thanks i would try

none