Hola de nuevo a todos.

Tengo un problema con una consulta desde Excel a Access usando UDATE.

El error viene porque intento actualizar un campo que está vacío o nulo. En la base de datos está vacío y cuando actualizo todos los campos del registro este campo a veces lo puedo dejar vacío.

Sql = "UPDATE Tb_Checklist SET OT='" & ComboBox1 & "', AGRUPACION='" & ComboBox3 & "', GRUPO='" & ComboBox4 & _
"', Periodo_Checklist='" & ComboBox2 & "', Proveedor='" & TextBox1 & "', Referencia='" & TextBox2 & _
"', Usuario='" & TextBox3 & "', Importe='" & TextBox4 & "', Porcentaje='" & TextBox5.Value / 100 & _
"', Previsto='" & TextBox6 & "', Contable='" & TextBox7 & "', En_Curso='" & TextBox8 & _
"' WHERE ID =" & xxx 

El campo de la base de datos se llama "Contable" y en el formulario Excel aparece en el TextBox7.

Es decir, aquí.

"', Contable='" & TextBox7 &

No logro saber como tratar esto si el campo está vacío o nulo.

Si es posible me ayudéis os lo agradezco.

Moisés.

Hola nuevamente

El Textbox7 lo tienes bloqueado es decir, aparentemente nunca lo vas a usar ¿o en algún momento se usará/habilitará? De no usarse nunca, no tiene sentido considerarlo en la sentencia SQL.

Por cierto, en la base de datos te interesa mucho que el campo Contable esté sin valores ¿o podría tener un cero (0)?

Abraham Valencia

Hola Abraham.

El Textbox7 lo tengo bloqueado para que no se manipule, pero si lo uso. Lo uso en otro evento.

Y tengo intención de usarlo más tarde donde está bloqueado pero pidiendo permiso antes.

Hace 3 horas, avalencia dijo:

Por cierto, en la base de datos te interesa mucho que el campo Contable esté sin valores ¿o podría tener un cero (0)?

No me importa ponerlo a cero. Supongo que te refieres a que cuando de alta un registro aproveche y le ponga un cero en vez dejarlo sin valor y luego tener problemas, ¿cierto?

Moisés.

Mira, una forma es la siguiente. 

- En el Userform5, en el evento click del CommandButton2 agrega:

Dim nContable As Double

Y antes de "Conexión" esto:

If TextBox7 = Empty Then
    nContable = Empty
Else
    nContable = CDbl(TextBox7)
End If

y modifica esto así:

, Contable=" & nContable & ",

Listo

Abraham Valencia

Perfecto, muchas gracias. Así lo he podido solucionar.

Solo que la consulta SQL le he tenido que poner otra comilla o me daba error en los campos que contenían valor.

Hace 11 horas, avalencia dijo:

, Contable=" & nContable & ",

La he sustituido por esto:

, Contable='" & nContable & "',

Muchas gracias.

Moisés.

Hola

Lo de los apostrofes pues, dado que intentas forzar formatos  vas a tener (en muchas ocasiones) ese dilema de no saber cuando usar apostrofes o no. Mira, a groso modo (o sea, no es que sea 100% así) para que se entienda: Texto y fechas con apostrofe; todo lo numérico sin apostrofe. A lo numérico, por ejemplo al tipo "Moneda", basta "enviarle" el número no es necesario tener el símbolo (si te das cuenta al forzar a un textbox a tener un símbolo de moneda, en realidad no es solo un formato sino una cadena de texto con caracteres numéricos), pero si colocas el símbolo y es reconocido por es sistema como tal, pongas o no apostrofe, no habrá dilema.  

Y así hay varias cosas pero, más que ser intuitivos, la cosa es leer y leer para entender.

Saludos

Abraham Valencia

Muchas gracias de verdad.

Guardo el comentario para tenerlo en cuenta en el futuro. 

Moisés.