复选框(多选)请求帮助【简化程序】

lllll1

已优化完成，结贴，复选框(多选)改全.rar为优化，
新手上路可对比学习
特别感谢：wanshan
1、请求大侠对【复选框(多选).mdb】进行修改优化程序
2、新手上路也可下载【复选框(多选).mdb】进行参考
谢谢

lllll1

自己坐个沙发

lllll1

不解决不让沉

lllll1

再上

wanshan

Private Sub Text0_AfterUpdate()
    Me.Child2.Requery   '这里没有用到查询，只需要在子窗体的链接主字段和链接子字段中填上相应的字段就会自动筛选
    If Child2.Form.Recordset.RecordCount > 0 Then '判断子窗体是否有记录
        Dim mubiao
        mubiao = Me!Child2!TEXT
        For i = 1 To 5
            Me("Check" & (i + 4)) = Mid(mubiao, i, 1) * -1
            Me("text" & (i + 1)) = Mid(mubiao, i, 1)    '技术上这一步可以省略，可直接把值赋予文本框text30
        Next
    End If
End Sub
Public Function jihe()
    For i = 1 To 5
        Me("text" & (i + 1)) = Me("Check" & (i + 4)) * -1
    Next
End Function

lllll1

谢谢

guide8

谢谢~~~~

yanwei82123300

支持原创

WAYEXCEL

wanshan 发表于 2009-11-6 14:33
Private Sub Text0_AfterUpdate()
    Me.Child2.Requery   '这里没有用到查询，只需要在子窗体的链接主字 ...

学习