Hola alguien me puede decir dónde está el error tengo 3 checkbox como veis, quiero que el que se marque se guarde con un 1 en la base de datos, el problema es que si algún textbox queda en blanco da error es obligatorio que cubran todos los campos y en ocasiones no será así...como evito el error =??
Public Sub Guardagrid()
Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet
Dim comados = conexion.CreateCommand
comados.CommandText = "INSERT INTO Clientes (Cif,NombreCliente,NombreEmpresa,Direccion,NumeroC uenta,TelefonFijo,Fax,TelefonoMovil,email,codigopo stal,poblacion,provincia,ManteMensual,ManteTrimest ral,ManteAnual,FechaAlta,FechaBaja,CuotaMensual,Cu otaTrimestral,MotivBaja) " _
+ "values (@cif,@NC,@NE,@Dir,@NCT,@TFJ,@FAX,@TFM,@EML,@COP,@ PBL,@PRO,@MAM,@MAT,@MTA,@FALT,@FBJ,@CTM,@CTT,@MTB) "
'"SELECT @@Identity"
'Dim Id As OleDbParameter
Dim cif As OleDbParameter
Dim NC As OleDbParameter
Dim NE As OleDbParameter
Dim Dir As OleDbParameter
Dim NCT As OleDbParameter
Dim TFJ As OleDbParameter
Dim FAX As OleDbParameter
Dim TFM As OleDbParameter
Dim EML As OleDbParameter
Dim COP As OleDbParameter
Dim PBL As OleDbParameter
Dim PRO As OleDbParameter
Dim MAM As OleDbParameter
Dim MAT As OleDbParameter
Dim MTA As OleDbParameter
Dim FALT As OleDbParameter
Dim FBJ As OleDbParameter
Dim CTM As OleDbParameter
Dim CTT As OleDbParameter
Dim MTB As OleDbParameter
cif = New OleDbParameter("@cif", OleDbType.WChar)
NC = New OleDbParameter("@NC", OleDbType.WChar)
NE = New OleDbParameter("@NE", OleDbType.WChar)
Dir = New OleDbParameter("@Dir", OleDbType.WChar)
NCT = New OleDbParameter("@NCT", OleDbType.Integer)
TFJ = New OleDbParameter("@TFJ", OleDbType.Integer)
FAX = New OleDbParameter("@FAX", OleDbType.Integer)
TFM = New OleDbParameter("@TFM", OleDbType.Integer)
EML = New OleDbParameter("@EML", OleDbType.WChar)
COP = New OleDbParameter("@COP", OleDbType.Integer)
PBL = New OleDbParameter("@PBL", OleDbType.WChar)
PRO = New OleDbParameter("@PRO", OleDbType.WChar)
MAM = New OleDbParameter("@MAM", OleDbType.WChar)
MAT = New OleDbParameter("@MAT", OleDbType.WChar)
MTA = New OleDbParameter("@MTA", OleDbType.WChar)
FALT = New OleDbParameter("@FALT", OleDbType.Date)
FBJ = New OleDbParameter("@FBJ", OleDbType.Date)
CTM = New OleDbParameter("@CTM", OleDbType.Currency)
CTT = New OleDbParameter("@CTT", OleDbType.Currency)
MTB = New OleDbParameter("@MTB", OleDbType.WChar)
cif.Value = Me.TextCif.Text
NC.Value = Me.TextNoCliente.Text
NE.Value = Me.TextNoEmpresa.Text
Dir.Value = Me.TextDireccion.Text
NCT.Value = Me.TextCuenta.Text
TFJ.Value = Me.TextTlfFijo.Text
FAX.Value = Me.TextFax.Text
TFM.Value = Me.TextTlfMovil.Text
EML.Value = Me.Textemail.Text
COP.Value = Me.TextCPostal.Text
PBL.Value = Me.TextPoblacion.Text
PRO.Value = Me.TextProvincia.Text
MAM.Value = Me.CheckMensual.Text
MAT.Value = Me.CheckTrimestral.Text
MTA.Value = Me.CheckAnual.Text
FALT.Value = Me.TextFechaalta.Text
FBJ.Value = Me.TextFechabaja.Text
CTM.Value = Me.TextImporteMensual.Text
CTT.Value = Me.TextImporteTrimestral.Text
MTB.Value = Me.TextMotivoBaja.Text
comados.Parameters.Add(cif)
comados.Parameters.Add(NC)
comados.Parameters.Add(NE)
comados.Parameters.Add(Dir)
comados.Parameters.Add(NCT)
comados.Parameters.Add(TFJ)
comados.Parameters.Add(FAX)
comados.Parameters.Add(TFM)
comados.Parameters.Add(EML)
comados.Parameters.Add(COP)
comados.Parameters.Add(PBL)
comados.Parameters.Add(PRO)
comados.Parameters.Add(MAM)
comados.Parameters.Add(MAT)
comados.Parameters.Add(MTA)
comados.Parameters.Add(FALT)
comados.Parameters.Add(FBJ)
comados.Parameters.Add(CTM)
comados.Parameters.Add(CTT)
comados.Parameters.Add(MTB)
conexion.Open()
comados.ExecuteNonQuery()
conexion.Close()
conectagrid()