no insertar registros exitentes

[aprediendo]

Hola agradezco de antemano cualquier idea o ayuda.

tengo un programa en vb6, acces 97, y uso data.

tengo el siguiente codigo:

If Text5.Text = "0" Then
MsgBox "Para: '" & Text11 & "'" & " No hay stock", vbExclamation, "¡EN ESTE MOMENTO NO HAY STOCK!"

m = MsgBox("desea agregar", vbYesNo, "agregar")

If m = vbYes Then

SQLtmp = "Insert Into tabla1 SELECT * FROM tabla2 where CAMPO= '0'"
'Db será una base de datos:
Dim Db As Database 'Variable para las Bases de Datos
Set Db = OpenDatabase("nombre de la base.mdb")

On Error Resume Next
Db.Execute SQLtmp, dbFailOnError
If Err Then
MsgBox "Se ha producido un error al ejecutar la orden:" & vbCrLf & SQLtmp
End If

End If
End If

LO QUE HAGO ES QUE SI TEXT5=0, SALE UN MENSAJE DICIENDO QUE NO HAY STOCK Y SI LO QUIERO AGREGAR A TABLA1, SI CLIKEO (SI) ME INSERTA TODOS LOS REGISTROS DE LA TABLA2 DONDE CAMPO=0, HASTA ACA FUNCIONA OK,

LO QUE QUIERO HACER ES QUE SI EL REGISTRO YA EXISTE EN TABLA1, NO ME LO VUELVO A INSERTAR, DE ESTA MANERA CADA VEZ QUE CLIKEO EN (SI) ME VUELVE A CARGAR TODOS LOS REGISTROS DE TABLA 2 DON DE CAMPO=0, EN TABLA1 AUNQUE YA EXISTA..

BUENO AGRADEZCO CUALQUIER AYUDA, YA HACE TIEMPO QUE RENIEGO CONESTO, GRACIAS SALUDOS,,

[lokoman]

Hola!!
Antes de inseertar haz lo siguiente:
1) Haz un query y asignalo a un recordset: "Select * from tabla2 where campo='o'"
2) Haz otro query y pregunta: "Select * from tabla1 where TABLA1_CAMPOID=TABLA2_CAMPOID"
3) Si no te trae datos inserta, sino, lee el siguiente registro.

PD: Ambas tablas deben tener por lo menos un campo principal (TABLAx_CAMPOID) para poder hacer las comparaciones