Access交流中心

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

将子窗体的数据源赋给记录集,鼠标在子窗体中移动,显示相应的列值为何会发生错误?

爱吉瑞  发表于:2020-12-17 19:03:10  
复制





Private Sub Command35_Click()
    Set rs = Me.Child33.Form.Recordset
    MsgBox rs("AA")    
    Me.Child33.Requery  
   
End Sub


Private Sub Form_Load()
Me.Child33.Form.AllowAdditions = False
End Sub


点击子窗体相应的行,再点击上面的命令按纽,重复多次操作,经常会出现以下错误



 

Top
张志 发表于:2020-12-17 20:13:03
点击子窗体相应的行,再点击上面的命令按纽,重复多次操作= 为什么要这么做?子窗体有记录显示不就可以了吗?

爱吉瑞 发表于:2020-12-17 21:10:57
  张老师:我是不想利用右键删除子窗体的记录,想用一个命令按纽进行提示删除。按多次操作,是有些删除会失灵,会出现错误。但重新关闭窗体,再打开就可以了。只是,感觉有错误就不太完美。  如下是我想实际运用的代码。
    DoCmd.SetWarnings False
    Set rs1 = Child195.Form.Recordset    
    sql = "delete * from  顾客来访登记表 where id=" & rs1("id")
    Dim X As Integer
    X = MsgBox("您确定要删除表中的数据吗?姓名=" & rs1("姓名"), vbYesNoCancel, "提醒")
       If X = 6 Then
          DoCmd.RunSQL sql
           Me.Child195.Requery
       End If
    DoCmd.SetWarnings False


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