hi，全球好！全球周末齐有什么安排呢？要不要抽出半个小时和我一说念来学校学习Access？今天我会共享一些实用的功能。让咱们先来看一下这些功能。如图所示，我在窗体上添加了几个按钮，用于披露首笔纪录、上一条、下一条和尾笔纪录。这么一来开云彩票，咱们不错快速张望数据，在骨子欺诈中终点实用。让咱们一说念来望望若何终了这些功能1添加按钮这里新增、裁剪的代码咱们就不再去诠释了，咱们拿一个当前的裁剪窗体，在窗体上添加4个按钮控件，然后将控件的称呼区别改成：btnFirst、btnPrevious、btnNext、btnLast接着也不错像我一下给按钮添加一下图片开云彩票，如图2退换代码这里咱们先不急着添加代码，咱们先将正本的加载事件的代码退换一下'退换加载事件PrivateSub Form_Load()OnErrorGoTo ErrorMsgIfMe.DataEntry ThenExitSubElse FormLoad (Me.OpenArgs)EndIfExitErr:ExitSubErrorMsg: MsgBox Err.Description, vbCriticalResume ExitErrEndSub'加多函数Function FormLoad(gID AsLong)OnErrorGoTo ErrorMsgDim rst AsObject' ADODB.RecordsetDim strSQL AsStringDim cnn AsObject' ADODB.ConnectionSet cnn = CurrentProject.ConnectionSet rst = CreateObject("ADODB.Recordset") 'New ADODB.Recordset strSQL = "select * from tblProduct where ID=" & Nz(gID, ) rst.Open strSQL, cnnMe!ID = rst!IDMe!ProductCode = rst!ProductCodeMe!ProductName = rst!ProductNameMe!ProductModel = rst!ProductModelMe!ProductSpec = rst!ProductSpecMe!Unit = rst!UnitMe!IsEnabled = rst!IsEnabledMe!Remark = rst!Remark rst.CloseExitErr:Set cnn = NothingSet rst = NothingExitFunctionErrorMsg: MsgBox Err.Description, vbCriticalResume ExitErrEndFunction3添加代码代码退换后，咱们就不错来添加代码了，具体代码如下：'首纪录PrivateSub btnFirst_Click() Form_frmProduct!frmProduct_List.Form.Recordset.MoveFirst FormLoad (Nz(Form_frmProduct!frmProduct_List!ID, ))EndSub'尾纪录PrivateSub btnLast_Click() Form_frmProduct!frmProduct_List.Form.Recordset.MoveLast FormLoad (Nz(Form_frmProduct!frmProduct_List!ID, ))EndSub'下一条PrivateSub btnNext_Click()If Form_frmProduct!frmProduct_List.Form.CurrentRecord < Form_frmProduct!frmProduct_List.Form.Recordset.RecordCount Then Form_frmProduct!frmProduct_List.Form.Recordset.MoveNext FormLoad (Nz(Form_frmProduct!frmProduct_List!ID, ))EndIfEndSub'上一条PrivateSub btnPrevious_Click()If Form_frmProduct!frmProduct_List.Form.CurrentRecord > 1Then Form_frmProduct!frmProduct_List.Form.Recordset.MovePrevious FormLoad (Nz(Form_frmProduct!frmProduct_List!ID, ))EndIfEndSub4开动测试终末，咱们就不错来开动测试一下了，咱们来看一下恶果：好了，共享就到这里，全球快去试一下吧！