access-VBA编程 第二章 窗体2

时　间:2009-02-12 08:09:39
作　者:UMVsoft整理   ID：1445  城市：上海
摘　要:VBA
正　文:

窗体2

判断窗体是否打开的方法
Function IsLoaded(strName As String, Optional intObjectType As Integer =acForm)
IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)
End Function
使用 IsLoaded 属性可以确定当前是否加载了 AccessObject。Boolean 型，只读。
以下是一个示例：
If CurrentProject.AllForms("frmMain").IsLoaded = True Then
Forms!frmMain.Form.Visible = False
End If
窗体中组合框不在列表中示例
不在列表中事件代码：
Private Sub 名称_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
If MsgBox("您输入的名称不在列表中，在列表中添加新记录吗？", 68, "银河酒业") = 6 Then
Me![名称] = Null
DoCmd.GoToControl "单价"
DoCmd.OpenForm "酒名列表", , , , acAdd, acNormal
Else
Me![名称] = Null
Me![名称].Dropdown
End If
End Sub
获得焦点事件代码：
Private Sub 名称_GotFocus()
Me![名称].Requery
End Sub
如何让窗体总在最前面？
*API函数声明
Declare Function SetWindowPos Lib "user32" ( ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
注释：常量声明
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
注释： 在某个form里写：
SetWindowPos me.hWnd,WND_TOPMOST,0,0,0,0, SWP_NOMOVE 注释：或下面
SetWindowPos me.hWnd,WND_TOPMOST,0,0,0,0, SWP_NOSIZE
用代码选择图表样式
"柱形图"
Me.graphnow.Object.ChartType = xlColumnClustered
"折线图"
Me.graphnow.Object.ChartType = xlLineMarkers
"饼形图"
Me.graphnow.Object.ChartType = xl3DPie
"条形图"
Me.graphnow.Object.ChartType = xlBarClustered
柱形图簇状柱形图 xlColumnClustered
三维簇状柱形图 xl3DColumnClustered
堆积柱形图 xlColumnStacked
三维堆积柱形图 xl3DColumnStacked
百分比堆积柱形图 xlColumnStacked100
三维百分比堆积柱形图 xl3DColumnStacked100
三维柱形图 xl3DColumn
条形图簇状条形图 xlBarClustered
三维簇状条形图 xl3DBarClustered
堆积条形图 xlBarStacked
三维堆积条形图 xl3DBarStacked
百分比堆积条形图 xlBarStacked100
三维百分比堆积条形图 xl3DBarStacked100
折线图折线图 xlLine
数据点折线图 xlLineMarkers
堆积折线图 xlLineStacked
堆积数据点折线图 xlLineMarkersStacked
堆积百分比折线图 xlLineStacked100
百分比堆积数据点折线图 xlLIneMarkersStacked100
三维折线图 xl3DLine
饼图饼图 xlPie
分离型饼图 xlPieExploded
三维饼图 xl3Dpie
三维分离型饼图 xl3DPieExploded
复合饼图 xlPieOfPie
复合柱饼图 xlBarOfPie
XY (散点图) 散点图 xlXYScatter
平滑线散点图 xlXYScatterSmooth
无数据点平滑线散点图 xlXYScatterSmoothNoMarkers
折线散点图 xlXYScatterLines
无数据点折线散点图 xlXYScatterLinesNoMarkers
气泡图气泡图 xlBubble
三维气泡图 xlBubble3DEffect
面积图面积图 xlArea
三维面积图 xl3DArea
堆积面积图 xlAreaStacked
三维堆积面积图 xl3DAreaStacked
百分比堆积面积图 xlAreaStacked100
三维百分比堆积面积图 xl3DAreaStacked100
圆环图圆环图 xlDoughnut
分离型圆环图 xlDoughnutExploded
雷达图雷达图 xlRadar
数据点雷达图 xlRadarMarkers
填充雷达图 xlRadarFilled
曲面图三维曲面图 xlSurface
曲面图（俯视图） xlSurfaceTopView
三维曲面图（框架图） xlSurfaceWireframe
曲面图（俯视框架图） xlSurfaceTopViewWireframe

上一节 下一节