Guardar dato en access desde formulario excel

Quisiera una ayuda con un tema que no soluciono, tengo un frm en excel que guarda todos los datos a una BD en Access, hasta ahí todo ok mientras llene todos los campos, pero cuando quiero omitir un dato y guardarlo, Excel termina colgándose, dejo mi código para saber en que estoy fallando, muchas gracias:

Private Sub cmd_Guardar_Click()
    Rs.AddNew
        Rs.Fields("CODIGO") = cbo_Codigo.Text
        Rs.Fields("CLASE") = txtClase.Text
        Rs.Fields("F_INICIO") = CDate(txt_inicio.Text)
        'este campo no siempre se llena, puede pasar como nulo
 'en Access la columna esta como "No Requerido"
        Rs.Fields("F_FIN") = CDate(txt_fin.Text)
    Rs.Update
        MsgBox "Registro guardado satisfactoriamente", vbInformation, "BD"
        cmd_Primero_Click
        inhabilita
End Sub

Gracias...

2 Respuestas

Respuesta
2

Reconozco que Excel no es lo mio, pero ¿has probado a usar la función Nz. Aunque en principio debía solo transformar los nulos en Ceros, en realidad te transforma los nulos al valor que quieras, por ejemplo

Texto10=nz([texto8])    así a palo seco, si texto8 es nulo, texto10=0

o tambien

texto10=nz([texto8],4)   si texto8 es nulo, texto 10=4

o

texto10=nz([texto5];"") si texto8 es nulo texto10= cadena vacía.

0

texto10=nz([texto8],"Adios")   testo10=Adios y eso es lo que digo.

Respuesta
1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas