Hi All,

I am working on searching, checking PID field in table1 if match with table2 then start doing add or updation but somehow it not matching condition

Any help...

r.Open "Table1", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
t.Open "Table2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not r.EOF
    Criteria = "[PID]='" & r!f1 & "' "
    t.Find Criteria
            If t.EOF Then

                If Nz(r!f1, "") <> "" And Nz(r!f2, "") <> "" And Nz(r!f4, "") <> "" And r!f2 >= 1 Then
                    t.AddNew
                    t!PID = r!f1
                    t.Update
                  Else
                       ' Show Error
                End If
            Else
                If Nz(r!f1, "") <> "" And Nz(r!f2, "") <> "" And Nz(r!f4, "") <> "" And r!f2 >= 1 And Not t.EOF Then
                    t!PID = r!f1
                    t.Update
                Else
                  'error
                End If
            End If
    r.movenext
Loop

Well i found answer

if any one eve has this problem try this but dont try this at home

Do While Not r.EOF

    If Not t.RecordCount <= 0 Then
        t.MoveFirst
    End If

Criteria = "[PID]='" & r!f1 & "'"
t.Find Criteria

            If t.EOF Then

                If Nz(r!f1, "") <> "" And Nz(r!f2, "") <> "" And Nz(r!f4, "") <> "" And r!f2 >= 1 Then

                    t.AddNew
                    t!SXID = r!f7
                    t!PID = r!f1
                    t!MinQuan = r!f2
                    t!Currency = r!f3
                    t!Price = r!f4
                    t!User = CUser()
                    t!SDate = Now()
                    t.Update

                Else

                    lblSPriceWarning.Caption = "Warning: Problem with importing Data, Please check Excel Sheet"

                End If

            End If

            If Nz(r!f1, "") <> "" And Nz(r!f2, "") <> "" And Nz(r!f4, "") <> "" And r!f2 >= 1 Then

                    t!SXID = r!f7
                    t!PID = r!f1
                    t!MinQuan = r!f2
                    t!Currency = r!f3
                    t!Price = r!f4
                    t!User = CUser()
                    t!SDate = Now()
                    t.Update

            Else

                lblSPriceWarning.Caption = "Warning: Problem with Updating Data, Please check Excel Sheet"

            End If

    r.movenext

Loop