como hacer para guardar y editar

[RoyMalcolm]

hola amigos saludos de antemano se me presenta la siguiente situacion

tengo un formulario de proveedores el cual puedo ingresar, eliminar y editar

ciertamete estas funciones las hace correctamente el problema es q lo codifique en cada boton correspondiente a cada una des estas acciones.

me gustaria que me brindaran su ayuda y diganme por favor
como pordira hacer para que en un boton de guardar pueda identificar cuando se
esta ingresando un registro nuevo para que ejecute la accion de ingresar y cuando se esta editando el registro ya existente.

los codigos son los siguientes

para guardar;

Private Sub cmdGuardar_Click()
strSQL = "INSERT INTO tblProveedor (TipoRif, NumRif, Nombre, NctaContab, pctRetenIVA, PctRetenISLR, Direccion, " & _
"Ciudad, Estado, Pais, CodigoPostal, Telefono1, Telefono2, Email, PaginaWeb, Observaciones) " & _
"VALUES ('" & cmbTipoRif.Text & "', '" & txtNumRif.Text & "', '" & txtNombreProv.Text & "', " & _
"'" & txtNumCtaContab & "', '" & txtPctReteIVA & "', '" & txtPctReteISLR & "', '" & txtDireccion & "', " & _
"'" & txtCiudad.Text & "', '" & txtEstado.Text & "', '" & txtPais.Text & "', '" & txtCodPostal.Text & "', " & _
"'" & txtTelefono1.Text & "', '" & txtTelefono2.Text & "', '" & txtEmail.Text & "', '" & txtPaginaWeb.Text & "', " & _
"'" & txtObservaciones.Text & "')"
strTipRif = cmbTipoRif.Text
strProvRif = txtNumRif.Text

cnConexionBD.Execute (strSQL)
MsgBox "Datos Guardatos Exitosamente", vbInformation
Call proConsulta
rsProveedor.Find "NumRif LIKE '%" & strProvRif & "%'", , adSearchForward
Call Asigna_Campos
Call proActivaBotones
end sub

para editar es:

Private Sub cmdEditar_Click()
strSQL = "UPDATE tblProveedor " & _
"SET Nombre = '" & txtNombreProv.Text & "', NctaContab = '" & txtNumCtaContab & "', PctRetenIva = '" & txtPctReteIVA & "', " & _
"PctRetenISLR = '" & txtPctReteISLR & "', Direccion = '" & txtDireccion & "', Ciudad = '" & txtCiudad.Text & "', " & _
"Estado = '" & txtEstado.Text & "', Pais = '" & txtPais.Text & "', CodigoPostal = '" & txtCodPostal.Text & "', " & _
"Telefono1 = '" & txtTelefono1.Text & "', Telefono2 = '" & txtTelefono2.Text & "', Email = '" & txtEmail.Text & "', " & _
"PaginaWeb = '" & txtPaginaWeb.Text & "', Observaciones = '" & txtObservaciones.Text & "' " & _
"WHERE TipoRif = '" & cmbTipoRif.Text & "' and NumRif = '" & txtNumRif.Text & "' "
strTipRif = cmbTipoRif.Text
strProvRif = txtNumRif.Text
cnConexionBD.Execute (strSQL)
MsgBox "Datos Editados Exitosamente", vbInformation
Call proConsulta
rsProveedor.Find "NumRif LIKE '%" & strProvRif & "%'", , adSearchForward 'ubicando el registro editado
Call Asigna_Campos
End Sub

[culd]

No se entendio, explica mejor

[RoyMalcolm]

me refiero que como logro hacer para que el boton de guardar en el formulario
pueda guardar la informacion de un registro nuevo y actualizar uno ya existente

[culd]

Primero hace un SELECT para verificar si existe el proveedor ...

Si existe, mandas el UPDATE... Si no existe mandas el INSERT

[erbuson]

Hola, las bases de datos no son mi especialidad, pero si tengo una cosa muy clara, SOLO debe permitir actualizar la opcion de EDITAR ya que otra no tiene sentido, no vas a actualizar los datos de un registro que no estas viendo.

Cuando EDITAS puedes efectuar la ELIMINACION y la ACTUALIZACION y desde luego nunca GRABAR NUEVO.

No se si me he explicado, pero esta es la idea, pienso.

Saludos

[RoyMalcolm]

Buenas saludos y gracias y disculnme mi ignorancia pero de verdad no les comprendo, mi pregunta en si es como puedo ejecutar esas dos condiciones en un mismo boton de guardar

[SalomonSab]

Lo que te dijo Culd es lo que necesitas, si los datos existen entonces ACTUALIZAS en caso contrario AGREGAS si el problema es el codigo solo di, y vemos como te ayudamos. porque creo que si esta claro bueno eso supongo. pero ya tu nos diras.

algo asi como esto:

En el Evento Click del Boton Guardar agrega estas lineas, obviamente tendras que remplazar mis palabras por las tuyas para que no te genere error

Código:

 rs.Open "SELECT * FROM TuTabla WHERE TuCampo = '" & TuCajadeTexto.Text & "'", Cnn
if rs.RecordCount = 0 then
 ' No lo encontro agregamos aqui tendras que insertar los datos
else
'Si lo encuentra entonces actualizamos los datos
End If

es una idea ya nos contaras como te fue, si no por aqui andamos.