学习模块：如何在模块里写代码，然后在窗体点击按键后可以显示数据

lzgbc

剑指E 发表于 2023-10-25 17:23
公共模块里是不能用me关键字的，给你两种方法：公共变量法、函数法

收到，谢谢了，在学习消化中。
另外，再请教前辈一个问题，在附件的窗体的第三个子窗体，要能显示表字段的标题出来 。

lzgbc

剑指E 发表于 2023-10-24 19:16
全局变量

前辈，我想学习模块的应用，不知道有没有相关的网站或书籍可以推荐？

剑指E

页面顶部看

lzgbc

剑指E 发表于 2023-10-26 12:29
页面顶部看

前辈，这个该如何实现呢？附件在11楼那里。







Public Function ZDLX(ZD As String)
ZDLX = DLookup("类型", "JC_字段类型表", "字段名称='" & ZD & "'")

End Function
Private Sub KJ_字段类型_AfterUpdate()

Me.KJ_类型 = ZDLX(KJ_字段类型.Text)
End Sub

前辈，另外，再请问一下，ZDLX(KJ_字段类型.Text) 这里为什么要加上括号里东西，为什么不是直接Me.KJ_类型 = ZDLX ？这里看不明白。

剑指E

.                     

lzgbc

剑指E 发表于 2023-10-26 17:04
.

非常感谢！每行代码看着很熟悉，但堆在一起，就搞不懂。

lzgbc

剑指E 发表于 2023-10-26 17:04
.

前辈，这段代码，是读取表列名的标题的，但是控个改名或重新再创建一个窗体后就一直报错。这是怎么回事？
能否帮忙看看。
另外，有能否用SQL来读取呀？

剑指E

lzgbc 发表于 2023-10-29 12:53
前辈，这段代码，是读取表列名的标题的，但是控个改名或重新再创建一个窗体后就一直报错。这是怎么回事？ ...

lzgbc

剑指E 发表于 2023-10-29 19:12

我是把控件的名称改了做测试的。结果都报错。
就算是新创建一个窗体，全部复制过去也报错

剑指E

lzgbc 发表于 2023-10-30 10:02
我是把控件的名称改了做测试的。结果都报错。
就算是新创建一个窗体，全部复制过去也报错

。