Anónimo
Evitar duplicar registros
Te agradecer mucho puedas ayudarme, necesito evitar el ingreso de datos duplicados en un campo de Nombre "Receta" de la tabla "Preparaciones", en mi caso desearía que pueda salir un mensaje en visual basic, indicándome que el registro ya existe, el código que uso para grabar es el siguiente:
Private Sub CmdGuar_Click()
If Modi = False Then
Adodc1.Recordset.Update
mensaje$ = "Se ha agregado una receta la lista"
MsgBox (mensaje)
Else
Adodc1.Recordset.UpdateBatch
mensaje$ = "Se ha modificado la receta de la lista"
MsgBox (mensaje)
End Sub
Por favor te agradeceré mucho tu ayuda he probado de diversas formas, pero no he podido conseguir que funcione adecuadamente te agradezco de antemano.
Edwin
Private Sub CmdGuar_Click()
If Modi = False Then
Adodc1.Recordset.Update
mensaje$ = "Se ha agregado una receta la lista"
MsgBox (mensaje)
Else
Adodc1.Recordset.UpdateBatch
mensaje$ = "Se ha modificado la receta de la lista"
MsgBox (mensaje)
End Sub
Por favor te agradeceré mucho tu ayuda he probado de diversas formas, pero no he podido conseguir que funcione adecuadamente te agradezco de antemano.
Edwin
1 Respuesta
Respuesta de exechapur
1
No se entiende el código,
pero si lo que deseas hacer es comprobar si ya existe
es antes de guardar o editar, debes hacer una selección
de esa receta, osea buscarla, si la encuentra, muestralo,
algo así como:
.recordsource="select * from recetas where numero=1"
.refresh
if .recordset.eof = false then
msgbox "existe"
exit sub
end if
¿Se entendió?
pero si lo que deseas hacer es comprobar si ya existe
es antes de guardar o editar, debes hacer una selección
de esa receta, osea buscarla, si la encuentra, muestralo,
algo así como:
.recordsource="select * from recetas where numero=1"
.refresh
if .recordset.eof = false then
msgbox "existe"
exit sub
end if
¿Se entendió?
Gracias, ¿sin embargo no se por que dices que el mensaje te lo envíe 7 veces?, solo lo envíe 1 vez, seria mejor que consultes con el soporte de todoexpertos, quizás el sistema de entrega no esta funcionando adecuadamente, agradezco tu ayuda