access筛选获取指定电脑时间

模糊筛选子窗体OptionCompareDatabase'=============================================================================='示例作者：Accessoft-红尘如烟'联系方式：QQ:593113803QQ群:41208985MSN群号：[e-mail]百度Hi群号：1276214'技术站点：公司站点：制作日期：2012-9-18'=============================================================================='=============================================================================='实现功能的主要代码如下========================================================PrivateSubText1_Change()'列表框筛选代码如下DimstrWhereAsStringstrWhere=Trim$(Me.Text1.Text)IfLen(strWhere)0Then'strWhere=[企业_名称]&[工商_注册号]&[Key号]&[组织机构_代码证号]&[受理_方式]&[经办人]&[经办人_电话]&[单位_电话]&[单位_地址]&[是否有_经办人签字]Like'*&strWhere&*''屏蔽关键字奥巴马strWhere=[企业_名称]&[工商_注册号]&[Key号]&[组织机构_代码证号]&[受理_方式]&[经办人]&[经办人_电话]&[单位_电话]&[单位_地址]&[是否有_经办人签字]Like'*&strWhere&*'_&and[企业_名称]&[工商_注册号]&[Key号]&[组织机构_代码证号]&[受理_方式]&[经办人]&[经办人_电话]&[单位_电话]&[单位_地址]&[是否有_经办人签字]notlike'*奥巴马*'EndIf'设置子窗体的筛选器条件Me.Child5.Form.Filter=strWhere'应用筛选Me.Child5.Form.FilterOn=TrueEndSubPrivateSubCmd_mod_Click()DoCmd.OpenModuleForm_模糊筛选子窗体EndSubOptionCompareDatabase'=============================================================================='示例作者：Accessoft-红尘如烟'联系方式：QQ:593113803QQ群:41208985MSN群号：[e-mail]百度Hi群号：1276214'技术站点：公司站点：制作日期：2012-5-18'=============================================================================='=============================================================================='实现功能的主要代码如下========================================================PrivateSubText2_Change()'子窗体筛选代码如下DimstrWhereAsStringstrWhere=Trim$(Me.Text2.Text)IfLen(strWhere)0ThenstrWhere=where[企业_名称]&[工商_注册号]&[Key号]&[组织机构_代码证号]&[税务_登记号]&[受理号]&[受理_方式]&[经办人]Like'*&strWhere&*'EndIfMe.list10.RowSource=SELECT*FROM供应商资料表&strWhereEndSubOptionCompareDatabaseOptionExplicitPrivateSubcmdOK_Click()IfLen(Nz(Me.txtComputerName))0ThenMe.lblNetTime.Caption=Me.txtComputerName&上的当前时间是：&getNetTime(Me.txtComputerName)EndIfEndSub模块名称：basGetNetTimeOptionCompareDatabaseOptionExplicit'======================================================================================================='函数名称：getNetTime'功能描述：获取局域网内指定电脑上的时间'输入参数：ComputerName必需的，计算机名称或IP地址'返回参数：成功保存时返回正确的时间，否则返回0'使用说明：必须开启共享才能正确获取'兼容性：'作者：红尘如烟'创建日期：2012-3-1'=======================================================================================================FunctiongetNetTime(ByValComputerNameAsString)AsDateOnErrorGoToErrorHandlerDimintFileNumAsIntegerDimstrBatchFileAsStringDimstrResultFileAsStringDimstrTempAsStringDimlngIAsLongstrBatchFile=Environ(temp)&\nettime.batstrResultFile=Environ(temp)&\nettime.txtintFileNum=FreeFile'生成批处理文件OpenstrBatchFileForOutputAs#intFileNumPrint#intFileNum,nettime\\&ComputerName&&strResultFileClose#intFileNum'运行批处理并等待执行完毕后返回CreateObject(WScript.Shell).RunstrBatchFile,0,True'返回结果被写入到了一个临时文件文件中，所以这里将其读取出来OpenstrResultFileForInputAs#intFileNumLineInput#intFileNum,strTempClose#intFileNumForlngI=1ToLen(strTemp)IfIsDate(Mid$(strTemp,lngI))ThengetNetTime=CDate(Mid$(strTemp,lngI))ExitForEndIfNextKillstrBatchFileKillstrResultFileExitHere:ExitFunctionErrorHandler:ResumeExitHereEndFunction