在我的SQL提交之前對空值或空值進行條件檢查

Question

如何在我的SQL插入命令之前完成對空值或空值的條件檢查？

示例顯示插入測試計數（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