<<< 返回 access911.net 编程静态资料库索引页

判定窗体是否打开、判定拼音的开头字母(罗斯文示例自带)

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2003-1-8  浏览人次:2236


专题地址:http://access911.net/fixhtm/71FABF1E11DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:《函数》判定窗体是否打开、判定拼音的开头字母(罗斯文示例自带)

 


北风/罗斯文/NORTHWIND.MDB自己的函数

判定窗体是否打开
还有一个是判定拼音的开头字母

Function IsLoaded(ByVal strFormName As String) As Boolean
 ' 如果指定窗体在窗体视图或数据表视图中打开,返回 True。
    Dim oAccessObject As AccessObject
    
    Set oAccessObject = CurrentProject.AllForms(strFormName)
    If oAccessObject.IsLoaded Then
         If oAccessObject.CurrentView <> acCurViewDesign Then
            IsLoaded = True
        End If
    End If
End Function


Public Function PinYin(Tstr As String) As Long
Dim I As Long

I = Asc(Tstr)

If I >= Asc("啊") And I < Asc("芭") Then PinYin = 1

If I >= A.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/71FABF1E11DC.htm

 


上一篇:怎样用脚本实现select列表框的即时添加、删除?

下一篇:报表中如何屏蔽零值?

2017年2月22日生成静态资料