请大神帮调试一下，谢谢！

beche100 · 发表于 2022-10-12 14:56

请大神调试一下，收入管理及支出管理里面：1、新增、2、修改、3、删除、4、查询。谢谢！

lzgbc · 发表于 2022-10-12 23:00

试试这样：
在查询表格中的日期字段，选择双击事件：
me.日期=me.日期
。。。
PS字段少的还好，要是字段多的话，要一个一个码上去，

zpy2 · 发表于 2022-10-13 06:20

lzgbc 发表于 2022-10-12 23:00
试试这样：
在查询表格中的日期字段，选择双击事件：
me.日期=me.日期

?

循环了吧自己=自己

lzgbc · 发表于 2022-10-23 19:33

本帖最后由 lzgbc 于 2022-10-23 19:39 编辑

zpy2 发表于 2022-10-13 06:20
?

循环了吧自己=自己

不会呀。两个窗体的控件，又不是同一个控件。

在子窗体的控件里的双击事件，可以这样引用：
formS!窗体1!日期=me.日期

当然，有标准的语法可用，不过，这个我只记得住这个。

ly · 发表于 2022-10-24 09:00

把ID改为未绑定，在双击事件中自己完善代码：

Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim Sql As String
Sql = "Select * from 支出明细 Where ID=" & Me.ID
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset(Sql, dbOpenDynaset)
With Me.Parent
.ID = Rs!ID
.日期 = Rs!日期
' ........自己填写完善
End With
...

复制代码

beche100 · 发表于 2022-10-24 15:12

ly 发表于 2022-10-24 09:00
把ID改为未绑定，在双击事件中自己完善代码：

On Error GoTo Err_C修改_Click
'为窗体上的控件解锁
  Me![ID].Locked = False
Me![日期].Locked = False
Me![支出类目].Locked = False
Me![支出项目].Locked = False
Me![支出账户].Locked = False
Me![支出金额].Locked = False
   Me![商家].Locked = False
Me![摘要].Locked = False
   Me![纪要].Locked = False

'把子窗体中的当前记录值赋予主窗体文本框
Me![ID] = Me![支出管理子窗体]![ID]
Me![日期] = Me![支出管理子窗体]![日期]
   Me![支出类目] = Me![支出管理子窗体]![支出类目]
Me![支出项目] = Me![支出管理子窗体]![支出项目]
Me![支出账户] = Me![支出管理子窗体]![支出账户]
Me![支出金额] = Me![支出管理子窗体]![支出金额]
Me![商家] = Me![支出管理子窗体]![商家]
Me![摘要] = Me![支出管理子窗体]![摘要]
Me![纪要] = Me![支出管理子窗体]![纪要]
我用的这种方法，不过依然谢谢你。

		自动登录	找回密码
密码			免费注册

[求助] 请大神帮调试一下，谢谢！