自制的一个小东西，有些东西需要大家帮忙看看，完善一下。。

xiefei　发表于：2017-09-29 20:24:22 　

复制

点击下载此附件

1，工件录入窗体里面如果实现点击记录保存后下面的子窗体自动刷新，就是录入自动进入下一个新的记录，而不是手动按添加新记录

2. 工件检索查询里面的导出按钮实现不了按查询结果导出。现在是全部都导出

Top

xiefei 发表于：2017-09-30 10:57:25

请大家帮忙看看。谢谢！

Top

仙来发表于：2017-09-30 12:33:42

下载附件

Top

xiefei 发表于：2017-09-30 19:25:22

谢谢。是不是就是把表的名字中间多加了"_"。我想问下为什么这么加。

还有就是那个保存记录的按钮点击后自动刷新这个是改的什么？( 是不是有个宏。是的话在哪里看)我想知道哪里改的下次再弄得时候知道怎么弄

Top

仙来发表于：2017-09-30 19:53:21

命名时不要空格。其实我不怎么喜欢宏，在你保存宏组里改了条件，报告内容，增加一个刷新宏，一个新记录宏

Top

xiefei 发表于：2017-09-30 22:50:58

谢谢

Option Compare Database

Private Sub Form_Load()
Dim ctr As Control
For Each ctr In Me.Controls
If ctr.Section = acDetail And ((TypeOf ctr Is TextBox) Or (TypeOf ctr Is ComboBox) Or (TypeOf ctr Is CheckBox)) Then
ctr.OnDblClick = "=allDblClick()"
End If
Next
End Sub
Private Function allDblclick()
DoCmd.OpenForm "1", , , "[l5]='" & Me.l5 & "'"
End Function

运行时提示红字这个错误。

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

自制的一个小东西，有些东西需要大家帮忙看看，完善一下。。