【转载】VBA-通过标签确定关联控件-金宇
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


【转载】VBA-通过标签确定关联控件

发表时间:2023/4/4 10:51:32 评论(0) 浏览(1639)  评论 | 加入收藏 | 复制
   
摘 要:VBA-通过标签确定关联控件。
正 文:

      下面是一个函数,我们可以通过标签来确定与哪个控件相关联,使用的时候先将下面函数放到模块中。

'------------------------------------------------------------------------
' Procedure : GetLabelAssoCtrl
' Author    : Daniel Pineault, CARDA Consultants Inc.
' Website   : http://www.cardaconsultants.com
' Req'd Refs: Late Binding  -> none required
'
' Input Variables:
' ~~~~~~~~~~~~~~~~
' oLbl      : Label object to retrieve the associated control name of
' oFrm      : Form object containing the label control
'
' Return:
' ~~~~~~~
' The function return the name of the associated control, and "" if it isn't associated
' with any control.
'
' Usage:
' ~~~~~~
' GetLabelAssoCtrl(me.lbl_FirstName, me)
'   Returns -> txt_FirstName
'
' Revision History:
' Rev       Date(yyyy-mm-dd)        Description
' **************************************************************
' 1         2023-03-31
'----------------------------------------------------------------
Function GetLabelAssoCtrl(oLbl As Access.Label, oFrm As Access.Form) As String
On Error GoTo Error_Handler
    Dim sAssoCtrl As String
    
    sAssoCtrl = oLbl.Parent.Name
    If oFrm.Name = sAssoCtrl Then sAssoCtrl = ""
    
    GetLabelAssoCtrl = sAssoCtrl
    
Error_Handler_Exit:
    On Error Resume Next
    Exit Function
 
Error_Handler:
    MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
           "Error Source: GetLabelAssoCtrl" & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Error Description: " & Err.Description & _
           Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
           , vbOKOnly + vbCritical, "An Error has Occurred!"
    Resume Error_Handler_Exit
End Function

Access软件网交流QQ群(群号:198465573)
 
 相关文章
关于随机排序关联的操作思路及实例  【丘山  2016/9/11】
【Access查询学习】--合并两个表中字段数据有差异的情况下进行...  【麥田  2017/2/10】
一条记录中,多个字段来源于一个基础表,怎么进行关联  【易勋  2019/6/13】
Access标签和文本框的重新创建关联  【欧志华  2022/1/19】
Access设计数据库时切忌做太多的关联,会影响窗体加载的速度  【欧志华  2022/2/9】
怎么实现两个、三个或者多个子窗体关联主窗体的编号数据?让多个子窗体...  【麥田  2022/7/7】
常见问答
技术分类
相关资源
文章搜索
关于作者

金宇

文章分类

文章存档

友情链接