Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

[5分]平台2.4版保存时提示“明细数据不能为空”

卓子  发表于:2017-07-13 21:14:04  
复制

平台升级为2.4版以后,自动生成编辑窗体+子窗体在保存时,如果子窗体暂时没有数据添加,单击保存按钮,弹窗提示“明细数据不能为空”,请问怎么解决?

 

 

Top
杜超 发表于:2017-07-13 22:40:09

把frmXXX_EDIT 窗体记录源清空



卓子 发表于:2017-07-15 09:42:04

frmXXX_EDIT窗体记录源默认是空的。

保存代码如下:

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler

    If Not CheckRequired(Me) Then Exit Sub
    If Not CheckTextLength(Me) Then Exit Sub
    If Not CheckRequired(Me.sfrDetail) Then Exit Sub

    Dim cnn: Set cnn = GetADOConnection()

    cnn.BeginTrans
    Dim blnTransBegin As Boolean: blnTransBegin = True

    If Nz(Me![图纸编号]) = "" Then Me![图纸编号] = GetAutoNumber("图纸编号")
    Dim strSQL: strSQL = "SELECT * FROM [tblPDM] WHERE [图纸编号]=" & SQLText(Me![图纸编号])
    Dim rst:    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then rst.AddNew
    UpdateRecord Me, rst
    '你的自定义代码
    rst.Update
    rst.Close

    cnn.Execute "DELETE FROM [tblpdmgx] WHERE [图纸编号]=" & SQLText(Me![图纸编号])
    strSQL = "SELECT * FROM [tblpdmgx] WHERE [图纸编号]=" & SQLText(Me![图纸编号])
    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    Dim rstTmp: Set rstTmp = CurrentDb.OpenRecordset("TMP_tblpdmgx")
    Do Until rstTmp.EOF
        rst.AddNew
        UpdateRecord rstTmp, rst
        rst![更新编号] = GetAutoNumber("更新编号")
        rst![图纸编号] = Me![图纸编号]
        rst.Update
        rstTmp.MoveNext
    Loop
    rst.Close
    rstTmp.Close

    cnn.CommitTrans
    blnTransBegin = False

    RequeryDataObject gsfrList
    MsgBoxEx LoadString("Saved Successfully."), vbInformation

    If Me.DataEntry Then
        Me.InitData
    Else
        DoCmd.Close acForm, Me.Name, acSaveNo
    End If

ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Set rstTmp = Nothing
    Exit Sub

ErrorHandler:
    If blnTransBegin Then
        cnn.RollbackTrans
        blnTransBegin = False
    End If
    RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
    Resume ExitHere
End Sub

 



总记录:2篇  页次:1/1 9 1 :