
como hacer para no repetir datos en el data grid
Publicado por Diego Osvaldo (1 intervención) el 19/06/2015 04:30:12
Buenas Noches amigos.... mi consulta es la siguiente si me pueden ayudar...
Estoy realizando un pequeño ejercicio, la cosa es la siguiente, cree un formulario para registro empresarial (RUC) conectada a una base de datos access...
el formulario solo se encarga el RUC de la empresa, a su ves guarda en la base de datos creado para esa funcion y al mismo tiempo los datos se reflejan en un data grid.. ahora la consulta es..
¿como hago para que no se ingrese dos veces un mismo RUC y salte un msgbox?
¿como hacer para que no se carguen o guarden datos vacios?, ya que al dar guardar datos sin que los txt esten vacios igual guadan ese vacio en la database....
les dejo el codigo...
_______________________________
Private Sub cagregar_Click()
If txtruc.Text = "" Then MsgBox "NO HAY RUC", vbCritical
If txtrazon.Text = "" Then MsgBox "NO HAY RAZON SOCIAL", vbCritical
With RsRuc
.Requery
.AddNew
!ruc = txtruc.Text
!razon_social = txtrazon.Text
.Update
End With
limpiar
End Sub
________________________________
espero contar con su ayuda...
Estoy realizando un pequeño ejercicio, la cosa es la siguiente, cree un formulario para registro empresarial (RUC) conectada a una base de datos access...
el formulario solo se encarga el RUC de la empresa, a su ves guarda en la base de datos creado para esa funcion y al mismo tiempo los datos se reflejan en un data grid.. ahora la consulta es..
¿como hago para que no se ingrese dos veces un mismo RUC y salte un msgbox?
¿como hacer para que no se carguen o guarden datos vacios?, ya que al dar guardar datos sin que los txt esten vacios igual guadan ese vacio en la database....
les dejo el codigo...
_______________________________
Private Sub cagregar_Click()
If txtruc.Text = "" Then MsgBox "NO HAY RUC", vbCritical
If txtrazon.Text = "" Then MsgBox "NO HAY RAZON SOCIAL", vbCritical
With RsRuc
.Requery
.AddNew
!ruc = txtruc.Text
!razon_social = txtrazon.Text
.Update
End With
limpiar
End Sub
________________________________
espero contar con su ayuda...
Valora esta pregunta


0