gonery的专栏

资源下载：https://download.csdn.net/download/gonery/20605736主界面：代码：sheet1Option ExplicitPrivate Sub delete_dh() Dim cSQL As String Call cnn_MDB cSQL = "Insert Into yw_aj_bak Select * From yw_aj Where dh='" & Me.txt_search.

Option Compare Database' 引用 Microsoft Scripting RuntimeOption ExplicitPrivate Function getDH(strPath) getDH = Right(strPath, 12)End FunctionPrivate Sub Form_Load() '居中显示' DoCmd.Echo False' Dim x, y As Integer' DoCmd.Maximize' .

干部职工退休人员档案数字化加工软件使用说明一、界面界面分为四部分：1、案卷信息 录入、显示案卷信息；2、卷内目录 录入、显示单条卷内目录信息；3、卷内预览 显示案卷羊肉目录信息；4、功能区 搜索、打印、修改案卷，新增案卷、退出。（软件界面）二、操作说明1、案卷信息录入打开软件后，默认为案卷信息录入状态。（案卷录入界面）案卷信息录入完成，点击 按钮，录入信息格式及位数无误，提示保存成功信息。新案卷录入时先点击 ，窗口刷新后再进行案卷...

表（tab1）窗体（Main）代码Option Compare DatabasePrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)'设置窗体快捷按键 NUM-，按下后输入文本框获得焦点，并对其显示内容进行全选'需要设置窗体键预览属性为是 Select Case KeyCode Case...