10 2023 档案
摘要:请在[布局视图]下设置,效果如下 Option Compare Database Dim s As Integer Private Sub Form_Load() '初始化变量 Me.TimerInterval = 10 Command4.Width = 0End Sub Private Sub F
阅读全文
摘要:一.ColumnHidden 隐藏字段 For Each TEMP In Me.FM刀具项夹表.Form.Controls If Not TypeOf TEMP Is Label Then If TEMP.Name <> "RecordID" And TEMP.Name <> "项目" And TE
阅读全文
摘要:2024-08-25更新 ' 引用 Microsoft XML, v6.0 库 ' 在 VBA 编辑器中,选择 工具 -> 引用 -> 勾选 Microsoft XML, v6.0 ' 加密函数:将密码明文编码为 Base64 格式 Function EncodeBase64(plainText A
阅读全文
摘要:Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) Priva
阅读全文
摘要:'在表单中添加新记录 DoCmd.RunCommand acCmdRecordsGoToNew ' 导航到上一条记录 DoCmd.RunCommand acCmdRecordsPrevious ' 导航到下一条记录 DoCmd.RunCommand acCmdRecordsNext ' 删除当前记录
阅读全文
摘要:Function 隐藏与显示导航空格(ByVal f As Boolean) 'true 显示,false隐藏 If f Then DoCmd.SelectObject acForm, , True Else DoCmd.SelectObject acForm, , True DoCmd.RunCo
阅读全文
摘要:Public Function Getpyszm(ByVal Chs As String, Optional bList As Boolean = True) As String Dim ardata(-20319 To -10247) As String ardata(-20319) = " a"
阅读全文
摘要:在报表中插入三个无关联的文本框控件,取名分别为Text,Text2,Text3,他们的宽/高,上/左边距按需求自定义,可见均设置为否,如果你需要显示序号的话,text3可设置为可见 text 控件来源: =1 text 2:控件来源: =IIf([Text]<[Text3]+1,[Text],IIf
阅读全文
摘要:原SQL: UPDATE 刀具申购明细 SET 刀具申购明细.关闭 = -1 where 刀具申购明细.申购数量<=(SELECT Sum(Round(Nz([入库数量],0)*1,2)) AS 入库合计 FROM 采购入库temp LEFT JOIN 刀具入库明细 ON 采购入库temp.申购ID
阅读全文
摘要:如上图,需求是当用户点中[申请数量]字段下的值时,自动选中里面的值,但要求每次获得焦点时,只触发一次. 我首先想到的是用GotFocus 事件,核心代码无非就是SelStart和SelLength,但是发现它根本不起作用.于是只能用click事件尝试,结果运行正常. 但有个小BUG,就是每次点击都会
阅读全文