Access VBA 代码记录

Option Compare DatabasePrivate Sub Combo4_AfterUpdate()Dim index As StringDim county As Stringindex = Me.Combo4county = Me.Combo8itemtype = Me.Combo10If (county = "全部" And itemtype = "全部") ThenSQL = "SELECT * FROM 战略新兴产业项目 WHERE 申报批次 = " & index & "  UNION ALL SELECT * FROM 地方基础设施项目 WHERE 申报批次 = " & index & "  UNION ALL SELECT * FROM 其他社会公益、民生类项目 WHERE 申报批次 = " & index & "  UNION ALL SELECT * FROM 医疗卫生补短板项目 WHERE 申报批次 = " & index & "  UNION ALL SELECT * FROM 其他项目 WHERE 申报批次 = " & indexElseIf (county <> "全部" And itemtype = "全部") ThenSQL = "SELECT * FROM 战略新兴产业项目 WHERE (申报批次 = " & index & " AND 乡镇 = '" & county & "') UNION ALL SELECT * FROM 地方基础设施项目 WHERE (申报批次 = " & index & " AND 乡镇 = '" & county & "') UNION ALL SELECT * FROM 其他社会公益、民生类项目 WHERE (申报批次 = " & index & " AND 乡镇 = '" & county & "') UNION ALL SELECT * FROM 医疗卫生补短板项目 WHERE (申报批次 = " & index & " AND 乡镇 = '" & county & "') UNION ALL SELECT * FROM 其他项目 WHERE (申报批次 = " & index & " AND 乡镇 = '" & county & "')"ElseIf (county = "全部" And itemtype <> "全部") ThenSQL = "SELECT * FROM " & itemtype & " WHERE (申报批次 = " & index & ") "ElseSQL = "SELECT * FROM " & itemtype & " WHERE (申报批次 = " & index & " AND 乡镇 = '" & county & "')"End IfEnd IfEnd IfDim qry As DAO.QueryDefSet db = CurrentDbSet qry = db.QueryDefs("申报批次")qry.SQL = SQLMe.申报批次_子窗体.SourceObject = "查询.查询结果"Me.申报批次_子窗体.Form.RequeryMe.Child6.SourceObject = "查询.查询结果汇总"Me.Child6.Form.Requery'DoCmd.OpenForm "申报批次查询", acDesign      '运行查询End SubPrivate Sub 申报批次_子窗体_Enter()Me.Form.Requery
End Sub

Option Compare DatabasePrivate Sub 项目名称_Click()Dim sql As String, itemtype As Variant, landTypes As Variant'sql = " DELETE * FROM 地类数据 "'CurrentDb.Execute (sql)itemtype = Array(Array("AA", "水田"), Array("AB", "水浇地"), Array("AC", "旱地"), Array("BA", "果园"), Array("BB", "茶园"), Array("BC", "橡胶园"), Array("BD", "其他园地"), Array("CA", "乔木林地"), Array("CB", "竹林地"), Array("CC", "红树林地"), _
Array("CD", "森林沼泽"), Array("CE", "灌木林地"), Array("CF", "灌丛沼泽"), Array("CG", "其他林地"), Array("DA", "天然牧草地"), Array("DB", "人工牧草地"), Array("DC", "其他草地"), Array("EA", "零售商业用地"), Array("EB", "批发市场用地"), Array("EC", "餐饮用地"), _
Array("ED", "旅馆用地"), Array("EE", "商务金融用地"), Array("EF", "娱乐用地"), Array("EG", "其他商服用地"), Array("FA", "工业用地"), Array("FB", "采矿用地"), Array("FC", "盐田"), Array("FD", "仓储用地"), Array("GA", "城镇住宅用地"), Array("GB", "农村宅基地"), _
Array("HA", "机关团体用地"), Array("HB", "新闻出版用地"), Array("HC", "教育用地"), Array("HD", "科研用地"), Array("HE", "医疗卫生用地"), Array("HF", "社会福利用地"), Array("HG", "文化设施用地"), Array("HH", "体育用地"), Array("HI", "公用设施用地"), Array("HJ", "公园与绿地"), _
Array("IA", "军事设施用地"), Array("IB", "使领馆用地"), Array("IC", "监教场所用地"), Array("ID", "宗教用地"), Array("IE", "殡葬用地"), Array("IF", "风景名胜设施用地"), Array("JA", "铁路用地"), Array("JB", "轨道交通用地"), Array("JC", "公路用地"), Array("JD", "城镇村道路用地"), _
Array("JE", "交通服务场站用地"), Array("JF", "农村道路"), Array("JG", "机场用地"), Array("JH", "港口码头用地"), Array("JI", "管道运输用地"), Array("KA", "河流水面"), Array("KB", "湖泊水面"), Array("KC", "水库水面"), Array("KD", "坑塘水面"), Array("KE", "沿海滩涂"), _
Array("KF", "内陆滩涂"), Array("KG", "沟渠"), Array("KH", "沼泽地"), Array("KI", "水工建筑用地"), Array("KJ", "冰川及永久积雪"), Array("LA", "空闲地"), Array("LB", "设施农用地"), Array("LC", "田坎"), Array("LD", "盐碱地"), Array("LE", "沙地"), _
Array("LF", "裸土地"), Array("LG", "裸岩石砾地"))On Error Resume NextlandTypes = Split(Me.地类, ",")sql = "DELETE * FROM 地类数据展示"CurrentDb.Execute (sql)For Each j In landTypesitype = Left(j, 2)iarea = Val(Right(j, Len(j) - 4)) / 1000For Each i In itemtypeIf i(0) = itype Thensql = "INSERT INTO 地类数据展示 (类别,面积) VALUES ('" & i(1) & "',FORMAT(" & iarea & ",'0.0000'))"CurrentDb.Execute (sql)Exit ForEnd IfNextNextForms![项目查询]![地类数据子窗体].SourceObject = "表.地类数据展示"Forms![项目查询]![地类数据子窗体].RequeryEnd Sub

Option Compare DatabasePrivate Sub add_Click()End Sub
Private Function arr2str(arr) As StringDim str As StringFor Each i In arrstr = str + ";" + iNextarr2str = Right(str, Len(str) - 1)End FunctionPrivate Sub cmd_additem_Click()Dim sql As String, flag As BooleanDim itemtype As Variant, codestr As String, rst As DAO.RecordsetDim n As LongSet rst = CurrentDb.OpenRecordset("地类数据登记", dbOpenDynaset)Set myc = New myclassitemtype = myc.itemtype'itemtype = Array(Array("AA", "水田", "A"), Array("AB", "水浇地", "A"), Array("AC", "旱地", "A"), Array("BA", "果园", "A"), Array("BB", "茶园", "A"), Array("BC", "橡胶园", "A"), Array("BD", "其他园地", "A"), Array("CA", "乔木林地", "A"), Array("CB", "竹林地", "A"), Array("CC", "红树林地", "A"), _
Array("CD", "森林沼泽", "A"), Array("CE", "灌木林地", "A"), Array("CF", "灌丛沼泽", "A"), Array("CG", "其他林地", "A"), Array("DA", "天然牧草地", "A"), Array("DB", "人工牧草地", "A"), Array("DC", "其他草地", "C"), Array("EA", "零售商业用地", "A"), Array("EB", "批发市场用地", "A"), Array("EC", "餐饮用地", "A"), _
Array("ED", "旅馆用地", "B"), Array("EE", "商务金融用地", "B"), Array("EF", "娱乐用地", "B"), Array("EG", "其他商服用地", "B"), Array("FA", "工业用地", "B"), Array("FB", "采矿用地", "B"), Array("FC", "盐田", "B"), Array("FD", "仓储用地", "B"), Array("GA", "城镇住宅用地", "B"), Array("GB", "农村宅基地", "B"), _
Array("HA", "机关团体用地", "B"), Array("HB", "新闻出版用地", "B"), Array("HC", "教育用地", "B"), Array("HD", "科研用地", "B"), Array("HE", "医疗卫生用地", "B"), Array("HF", "社会福利用地", "B"), Array("HG", "文化设施用地", "B"), Array("HH", "体育用地", "B"), Array("HI", "公用设施用地", "B"), Array("HJ", "公园与绿地", "B"), _
Array("IA", "军事设施用地", "B"), Array("IB", "使领馆用地", "B"), Array("IC", "监教场所用地", "B"), Array("ID", "宗教用地", "B"), Array("IE", "殡葬用地", "B"), Array("IF", "风景名胜设施用地", "B"), Array("JA", "铁路用地", "B"), Array("JB", "轨道交通用地", "B"), Array("JC", "公路用地", "B"), Array("JD", "城镇村道路用地", "B"), _
Array("JE", "交通服务场站用地", "B"), Array("JF", "农村道路", "A"), Array("JG", "机场用地", "B"), Array("JH", "港口码头用地", "B"), Array("JI", "管道运输用地", "B"), Array("KA", "河流水面", "C"), Array("KB", "湖泊水面", "C"), Array("KC", "水库水面", "A"), Array("KD", "坑塘水面", "A"), Array("KE", "沿海滩涂", "C"), _
Array("KF", "内陆滩涂", "C"), Array("KG", "沟渠", "A"), Array("KH", "沼泽地", "C"), Array("KI", "水工建筑用地", "B"), Array("KJ", "冰川及永久积雪", "C"), Array("LA", "空闲地", "B"), Array("LB", "设施农用地", "A"), Array("LC", "田坎", "A"), Array("LD", "盐碱地", "C"), Array("LE", "沙地", "C"), _
Array("LF", "裸土地", "C"), Array("LG", "裸岩石砾地", "C"))n = rst.RecordCountcodestr = ""flag = Truerst.MoveFirstWhile Not rst.EOFIf Me.ComboChild.Value = rst.Fields("类别").Value Thenflag = FalseEnd Ifrst.MoveNextWendIf flag Thensql = "INSERT INTO 地类数据登记 (类别) VALUES ('" & Me.ComboChild.Value & "')"CurrentDb.Execute (sql)End Ifrst.CloseSet rst = NothingForms![录入]![地类数据子窗体].SourceObject = "表.地类数据登记"Forms![录入]![地类数据子窗体].RequeryEnd SubPrivate Sub Cmd2code_Click()Dim itemtype As Variant, codestr As String, rst As DAO.RecordsetDim n As Long'sql = " DELETE * FROM 地类数据 "Set rst = CurrentDb.OpenRecordset("地类数据登记", dbOpenDynaset)Set myc = New myclassitemtype = myc.itemtype' itemtype = Array(Array("AA", "水田", "A"), Array("AB", "水浇地", "A"), Array("AC", "旱地", "A"), Array("BA", "果园", "A"), Array("BB", "茶园", "A"), Array("BC", "橡胶园", "A"), Array("BD", "其他园地", "A"), Array("CA", "乔木林地", "A"), Array("CB", "竹林地", "A"), Array("CC", "红树林地", "A"), _
Array("CD", "森林沼泽", "A"), Array("CE", "灌木林地", "A"), Array("CF", "灌丛沼泽", "A"), Array("CG", "其他林地", "A"), Array("DA", "天然牧草地", "A"), Array("DB", "人工牧草地", "A"), Array("DC", "其他草地", "C"), Array("EA", "零售商业用地", "A"), Array("EB", "批发市场用地", "A"), Array("EC", "餐饮用地", "A"), _
Array("ED", "旅馆用地", "B"), Array("EE", "商务金融用地", "B"), Array("EF", "娱乐用地", "B"), Array("EG", "其他商服用地", "B"), Array("FA", "工业用地", "B"), Array("FB", "采矿用地", "B"), Array("FC", "盐田", "B"), Array("FD", "仓储用地", "B"), Array("GA", "城镇住宅用地", "B"), Array("GB", "农村宅基地", "B"), _
Array("HA", "机关团体用地", "B"), Array("HB", "新闻出版用地", "B"), Array("HC", "教育用地", "B"), Array("HD", "科研用地", "B"), Array("HE", "医疗卫生用地", "B"), Array("HF", "社会福利用地", "B"), Array("HG", "文化设施用地", "B"), Array("HH", "体育用地", "B"), Array("HI", "公用设施用地", "B"), Array("HJ", "公园与绿地", "B"), _
Array("IA", "军事设施用地", "B"), Array("IB", "使领馆用地", "B"), Array("IC", "监教场所用地", "B"), Array("ID", "宗教用地", "B"), Array("IE", "殡葬用地", "B"), Array("IF", "风景名胜设施用地", "B"), Array("JA", "铁路用地", "B"), Array("JB", "轨道交通用地", "B"), Array("JC", "公路用地", "B"), Array("JD", "城镇村道路用地", "B"), _
Array("JE", "交通服务场站用地", "B"), Array("JF", "农村道路", "A"), Array("JG", "机场用地", "B"), Array("JH", "港口码头用地", "B"), Array("JI", "管道运输用地", "B"), Array("KA", "河流水面", "C"), Array("KB", "湖泊水面", "C"), Array("KC", "水库水面", "A"), Array("KD", "坑塘水面", "A"), Array("KE", "沿海滩涂", "C"), _
Array("KF", "内陆滩涂", "C"), Array("KG", "沟渠", "A"), Array("KH", "沼泽地", "C"), Array("KI", "水工建筑用地", "B"), Array("KJ", "冰川及永久积雪", "C"), Array("LA", "空闲地", "B"), Array("LB", "设施农用地", "A"), Array("LC", "田坎", "A"), Array("LD", "盐碱地", "C"), Array("LE", "沙地", "C"), _
Array("LF", "裸土地", "C"), Array("LG", "裸岩石砾地", "C"))n = rst.RecordCountcodestr = ""Dim areaNYD, areaGD, areaST, areaWLYD, areaJSYD As DoubleareaNYD = 0areaGD = 0areaST = 0areaWLYD = 0areaJSYD = 0rst.MoveFirstWhile Not rst.EOFFor Each j In itemtypeIf j(1) = rst.Fields("类别") And rst.Fields("面积") <> 0 ThenIf j(2) = "A" ThenareaNYD = areaNYD + rst.Fields("面积")End IfIf j(0) = "AA" Or j(0) = "AB" Or j(0) = "AC" Or j(0) = "AD" Or j(0) = "AE" Or j(0) = "AF" ThenareaGD = areaGD + rst.Fields("面积")End IfIf j(0) = "AA" ThenareaST = areaST + rst.Fields("面积")End IfIf j(2) = "C" ThenareaWLYD = areaWLYD + rst.Fields("面积")End IfIf j(2) = "B" ThenareaJSYD = areaJSYD + rst.Fields("面积")End IfIf Me.belong.Value = "集体土地" Thencodestr = codestr & "," & j(0) & j(2) & "A" & rst.Fields("面积") * 10000Elsecodestr = codestr & "," & j(0) & j(2) & "B" & rst.Fields("面积") * 10000End IfEnd IfNextrst.MoveNextWendMe.申报项目登记.Form.农用地.Value = areaNYDMe.申报项目登记.Form.耕地.Value = areaGDMe.申报项目登记.Form.水田.Value = areaSTMe.申报项目登记.Form.未利用地.Value = areaWLYDMe.申报项目登记.Form.建设用地.Value = areaJSYDA = Me.申报项目登记.Form.Recordset'Forms![申报项目登记]![农用地].Value = areaNYD'Forms![申报项目登记]![耕地].Value = areaGD'Forms![申报项目登记]![水田].Value = areaST'Forms![申报项目登记]![未利用地].Value = areaWLYD'Forms![申报项目登记]![建设用地].Value = areaJSYD'On Error Resume Next'Forms![申报项目登记]![地类].Value = Right(codestr, Len(codestr) - 1)Me.申报项目登记.Form.地类.Value = Right(codestr, Len(codestr) - 1)'Forms![申报项目登记].Requery'Me.申报项目登记.SourceObject = "申报项目登记"'Me.申报项目登记.Form.Requeryrst.CloseSet rst = Nothing'CurrentDb.Execute (sql)
End SubPrivate Sub CMDSET0_Click()sql = " UPDATE 地类数据登记 SET 面积 = 0"CurrentDb.Execute (sql)Forms![录入]![地类数据子窗体].SourceObject = "表.地类数据登记"Forms![录入]![地类数据子窗体].RequeryEnd SubPrivate Sub CombomMajor_AfterUpdate()Dim n As IntegerSet myc = New myclassMjr = myc.landbigtchd = myc.landtypen = 0For Each i In MjrIf i = Me.CombomMajor.Value Thens = arr2str(chd(n))Me.ComboChild.RowSource = arr2str(chd(n))End Ifn = n + 1NextEnd SubPrivate Sub Form_Open(Cancel As Integer)Dim Major As StringMajor = "耕地;园地;林地;草地;商服用地;工矿仓储用地;住宅用地;公共管理与公共服务用地;特殊用地;交通运输用地;水域及水利设施用地;其他土地"Me.CombomMajor.RowSource = MajorMe.CombomMajor.DefaultValue = "耕地"'DoCmd.OpenForm "申报项目登记"'Me.地类数据子窗体.SourceObject = "表.地类数据"End Sub

Option Compare DatabasePrivate Sub Combo4_AfterUpdate()Dim index As StringDim county As Stringindex = Me.Combo4county = Me.Combo8itemtype = Me.Combo10If county = "全部" And itemtype = "全部" Thensql = "SELECT * FROM 申报项目 where 申报批次 = " & indexElseIf county <> "全部" And itemtype = "全部" Thensql = "SELECT * FROM 申报项目 WHERE (申报批次 = " & index & " AND 乡镇 = '" & county & "')"ElseIf county = "全部" And itemtype <> "全部" Thensql = "SELECT * FROM 申报项目 WHERE (申报批次 = " & index & " AND 项目类型 = '" & itemtype & "')"Elsesql = "SELECT * FROM 申报项目 WHERE (申报批次 = " & index & " AND 项目类型 = '" & itemtype & " AND 乡镇 = '" & county & "')"End IfEnd IfEnd IfDim qry As DAO.QueryDefSet db = CurrentDbSet qry = db.QueryDefs("申报项目查询")qry.sql = sql'Me.ChildDisplay.SourceObject = "查询.申报项目查询"Me.ChildDisplay.SourceObject = "查询结果"Me.ChildDisplay.Form.RequeryMe.Child6.SourceObject = "查询.统计汇总"Me.Child6.Form.Requery'DoCmd.OpenForm "申报批次查询", acDesign      '运行查询End SubPrivate Sub 申报批次_子窗体_Enter()Me.Form.Requery
End Sub

激活子窗体，并加载指定记录集

 Forms![录入]![申报项目登记].setFoucs             DoCmd.GoToRecord acActiveDataObject, , acGoTo, (rs.AbsolutePosition + 1)

Access VBA 代码记录相关推荐

access vba代码大全_这本VBA经典图书终于做活动了，还是5折！
HI~大家好.记得之前一直给大家推荐咱们EH论坛编著的VBA图书<Excel VBA经典代码应用大全>,这书出来有段时间了,但一直未见出有力的优惠活动.这次京东破天荒出了个5折,而且是没有 ...
access vba代码大全_Access 与 Excel 之对比 (翻译）
作者:Luke Chung 原文连接:Microsoft Access versus Microsoft Excel for Data Analysis and Reporting 在Excel与Ac ...
access vba代码大全_VBA 实践指南 -- VBA连接各种数据库
ADO 简介 ADO (ActiveX Data Objects,ActiveX数据对象)是Microsoft提出的应用程序接口(API)用以实现访问关系或非关系数据库中的数据.例如,如果您希望编写应 ...
access子窗体的控件vba怎么写_第37讲：VBA代码中运行错误的处理方式
大家好,本来在这一讲要接着我们的上一讲内容讲解二师兄的成长过程之九,但之九的内容是错误的处理,为了大家能更好的掌握之九二师兄的成才内容,我们临时加入一讲专门讲解VBA中错误处理,这一讲中我重点讲一下V ...
access vba函数
access vba函数 Abs 函数返回参数的绝对值,其类型和参数相同. 语法 Abs(number) 必要的 number 参数是任何有效的数值表达式,如果 number 包含 Null,则返回 ...
Access VBA 学习笔记技巧
1, 最关键的Object : DoCmd DoCmd.RunSQL DoCmd.OpenForm DoCmd.OpenQuery DoCmd.OpenTable DoCmd.Quit 2, 数据的 ...
ACCESS VBA笔记1
ACCESS VBA 笔记 VBA 语法语法.函数 Select Case Select Case str1Case case1 1=1Case case2,case31=1 Case Else1= ...
VBA代码自学收集（150例）
1.Application.CommandBars("Worksheet Menu Bar").Enabled = false 2.cells(activecell.row,&qu ...
编写高效Excel VBA代码的最佳实践(一)
很多Excel VBA文章和图书都介绍过如何优化VBA代码,使代码运行得更快.下面搜集了一些使Excel VBA代码运行更快的技术和技巧,基本上都是实践经验的总结.如果您还有其它优化Excel VBA ...

Access VBA 代码记录

激活子窗体，并加载指定记录集

Access VBA 代码记录相关推荐

最新文章

热门文章