“同步两个表部分记录”函数(同步SysLocalParameters与Sys_ServerParameters以简便使用GetParamete)-ligy118
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


“同步两个表部分记录”函数(同步SysLocalParameters与Sys_ServerParameters以简便使用GetParamete)

发表时间:2021/12/11 13:49:51 评论(0) 浏览(2339)  评论 | 加入收藏 | 复制
   
摘 要:自定义个同步两个表部分记录的函数:如同步SysLocalParameters与Sys_ServerParameters一致,使得在控件来源中使用盟威平台的GetParamete()函数取得date数据库中Sys_ServerParameters表中的记录。
正 文:

      在用盟威Access快速开发平台的GetParamete()函数时遇到了个问题


GetParameter 函数

简介

从客户端或服务端的参数表中取得参数。

语法

GetParameter (ParameterName[, DataType][, DefaultValue][, LowerLimit][, UpperLimit][, OnServer])

输入参数

参数名称 必需/可选 数据类型 说明
ParameterName 必需 String 参数名称。
DataType 可选 DataTypeEnum 数据类型。缺省时默认为 dbText。只能是 dbBoolean、dbByte、dbInteger、dbLong、dbSingle、dbDouble、dbDecimal、dbCurrency、dbDate、dbText、dbMemo中的一个,其它值无效。
DefaultValue 可选 Variant 取不到参数时返回的默认值。缺省时默认为空字符串("")。
LowerLimit 可选 Variant 如果参数的数据类型是数字,限制其最小下限。缺省时默认不予限制。
UpperLimit 可选 Variant 如果参数的数据类型是数字,限制其最大上限。缺省时默认不予限制。
OnServer 可选 Boolean 为 True 表示从服务端参数表中取,为 False 表示从客户端参数表取,缺省时默认为 False。

返回值


如果取不到或发生错误时返回 DefaultValue 指定的默认值,否则返回取到的根据不同 DataType 返回的不同的 Variant 子类型的参数值。


OnServer缺省时默认为FALSE,相从date取数需要GetParameter (ParameterName, , , , , TRUE]) 这样用,但在控件来源中连续参数缺省会报错,如下图:

点击图片查看大图


      为了能在控件来源中使用GetParameter得到date中的数据,取了个巧,main中的SysLocalParameters 表我也创建了一样的记录,当需要从main中取数时,先同步到main中,在用GetParameter (ParameterName)。

为了减轻同步到main时的工作量,写了两个函数。


示   例:

点击下载此附件


同步一条记录:

Function updateOneUMParameter(tempParameterName As String) As Boolean
On Error GoTo ErrorHandler
    Dim tempValue As String
    tempValue = DLookup("Value", "Sys_ServerParameters", "ParameterName = '" & tempParameterName & "'")
    DoCmd.SetWarnings False
    DoCmd.RunSQL "Update SysLocalParameters  SET SysLocalParameters.[Value] = '" & tempValue & "' Where [SysLocalParameters].[ParameterName] = '" & tempParameterName & "'"
    'Debug.Print ("Update SysLocalParameters  SET SysLocalParameters.[Value] = '" & tempValue & "' Where [SysLocalParameters].[ParameterName] = '" & tempParameterName & "'")
    DoCmd.SetWarnings True
    updateOneUMParameter = True
    Exit Function
 
ErrorHandler:
    updateOneUMParameter = False
    Exit Function

End Function
点击图片查看大图



同步多条记录:

Function updateAllUMParameter() As Boolean
On Error GoTo ErrorHandler
    Dim ParameterNamen() As String
    ParameterNamen() = Split("aFouceDate,aLastDate,aLastInprocessDate,aLastReserveDate", ",")
    
    Dim n As Long
    Dim ParameterNamenCount As Long
    ParameterNamenCount = UBound(ParameterNamen) - LBound(ParameterNamen)
    For n = 0 To ParameterNamenCount
        Dim tempParameterName As String
        tempParameterName = ParameterNamen(n)
        Dim tempValue As String
        tempValue = DLookup("Value", "Sys_ServerParameters", "ParameterName = '" & tempParameterName & "'")
        DoCmd.SetWarnings False
        DoCmd.RunSQL "Update SysLocalParameters  SET SysLocalParameters.[Value] = '" & tempValue & "' Where [SysLocalParameters].[ParameterName] = '" & tempParameterName & "'"
        'Debug.Print ("Update SysLocalParameters  SET SysLocalParameters.[Value] = '" & tempValue & "' Where [SysLocalParameters].[ParameterName] = '" & tempParameterName & "'")
        DoCmd.SetWarnings True
    Next n
    updateAllUMParameter = True
    Exit Function
 
ErrorHandler:
    updateAllUMParameter = False
    Exit Function

End Function

点击图片查看大图


同步单条记录用法:

call updateAllUMParameter(要同步的记录)


同步多条记录用法:

ParameterNamen() = Split("aFouceDate,aLastDate,aLastInprocessDate,aLastReserveDate", ",")


在以上语句中定义要同步的记录

call updateAllUMParameter()


使用举例:

点击图片查看大图

点击图片查看大图


Access软件网交流QQ群(群号:198465573)
 
 相关文章
【access源码通用函数】一个生成同步复制ID的函数(即GUID...  【红尘如烟  2010/12/13】
根据查询结果不同修改子窗体列名称与列数据同步改变\多数据源查询同一...  【colin  2014/4/18】
两台SQL Server数据同步解决方案  【易勋  2015/4/2】
哥哥走,我也走——谈谈两个子窗体间数据的同步  【爱吉瑞  2015/5/24】
VBA实现本地计算机时间与网服务器时间的同步  【Big Young  2018/4/4】
小技巧解决触发器嵌套的问题,同步两张表的相同字段  【天马行空  2018/10/12】
【Access小作】夫唱妇随--利用记录集bookmark属性同步...  【阿四  2020/8/26】
两个子窗体数据同步显示  【张志  2021/6/3】
同步窗体上的两个组合框  【杨雪  2021/12/3】
常见问答
技术分类
相关资源
文章搜索
关于作者

ligy118

文章分类

文章存档

友情链接