Question

如何在SQL插入命令之前完成Null或空值的条件检查？

示例显示插入测试计数（8）但在生产中我将有更大的数字。

respuesta = MsgBox("código del documento " & codigo & " Seguro que ya desea guardar?", vbOKCancel)
If respuesta = vbOK Then
DoCmd.RunSQL "INSERT INTO tblDocumentos (docCodigo,docDescripcion, docElaboro,docAprobo,docReviso,docURevision)values (txtcod,txtdesdoc,txtela,txtapr,txtrev,txtultrev)"
DoCmd.RunSQL "INSERT INTO tblProcedimientos (codDocumento,descripcion)values (txtcod,txtpro1)"
DoCmd.RunSQL "INSERT INTO tblProcedimientos (documento,descripcion)values (txtcod,txtpro2)"
DoCmd.RunSQL "INSERT INTO tblProcedimientos (documento,descripcion)values (txtcod,txtpro3)"
DoCmd.RunSQL "INSERT INTO tblProcedimientos (documento,descripcion)values (txtcod,txtpro4)"
DoCmd.RunSQL "INSERT INTO tblProcedimientos (documento,descripcion)values (txtcod,txtpro5)"
DoCmd.RunSQL "INSERT INTO tblProcedimientos (documento,descripcion)values (txtcod,txtpro6)"
DoCmd.RunSQL "INSERT INTO tblProcedimientos (documento,descripcion)values (txtcod,txtpro7)"
DoCmd.RunSQL "INSERT INTO tblProcedimientos (documento,descripcion)values (txtcod,txtpro8)"
codigo = depto & area & tdoc
Me.txtcod.Value = codigo

MsgBox "Documento creado"
clear

Answer 1

使用循环：

For i = 1 To 100
    If Not IsNull(Me.Controls("txtpro" & CStr(i)).Value) Then
        DoCmd.RunSQL "INSERT INTO tblProcedimientos (documento,descripcion) Values ('" & Me!txtcod.Value & "','" & Me.Controls("txtpro" & CStr(i)).Value & "')"
    End If
Next

在我的SQL提交之前条件检查Empty或Null值

1 个答案: