10 2023 档案

摘要:请在[布局视图]下设置,效果如下 Option Compare Database Dim s As Integer Private Sub Form_Load() '初始化变量 Me.TimerInterval = 10 Command4.Width = 0End Sub Private Sub F 阅读全文
posted @ 2023-10-31 10:08 一曲轻扬 阅读(87) 评论(0) 推荐(0) 编辑
摘要:一.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 阅读全文
posted @ 2023-10-27 15:52 一曲轻扬 阅读(24) 评论(0) 推荐(0) 编辑
摘要:2024-08-25更新 ' 引用 Microsoft XML, v6.0 库 ' 在 VBA 编辑器中,选择 工具 -> 引用 -> 勾选 Microsoft XML, v6.0 ' 加密函数:将密码明文编码为 Base64 格式 Function EncodeBase64(plainText A 阅读全文
posted @ 2023-10-15 21:36 一曲轻扬 阅读(116) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2023-10-15 20:22 一曲轻扬 阅读(59) 评论(0) 推荐(0) 编辑
摘要:'在表单中添加新记录 DoCmd.RunCommand acCmdRecordsGoToNew ' 导航到上一条记录 DoCmd.RunCommand acCmdRecordsPrevious ' 导航到下一条记录 DoCmd.RunCommand acCmdRecordsNext ' 删除当前记录 阅读全文
posted @ 2023-10-15 19:41 一曲轻扬 阅读(257) 评论(0) 推荐(0) 编辑
摘要:Function 隐藏与显示导航空格(ByVal f As Boolean) 'true 显示,false隐藏 If f Then DoCmd.SelectObject acForm, , True Else DoCmd.SelectObject acForm, , True DoCmd.RunCo 阅读全文
posted @ 2023-10-15 17:59 一曲轻扬 阅读(220) 评论(0) 推荐(0) 编辑
摘要:Public Function Getpyszm(ByVal Chs As String, Optional bList As Boolean = True) As String Dim ardata(-20319 To -10247) As String ardata(-20319) = " a" 阅读全文
posted @ 2023-10-12 16:39 一曲轻扬 阅读(140) 评论(0) 推荐(0) 编辑
摘要:在报表中插入三个无关联的文本框控件,取名分别为Text,Text2,Text3,他们的宽/高,上/左边距按需求自定义,可见均设置为否,如果你需要显示序号的话,text3可设置为可见 text 控件来源: =1 text 2:控件来源: =IIf([Text]<[Text3]+1,[Text],IIf 阅读全文
posted @ 2023-10-06 14:30 一曲轻扬 阅读(235) 评论(0) 推荐(0) 编辑
摘要:原SQL: UPDATE 刀具申购明细 SET 刀具申购明细.关闭 = -1 where 刀具申购明细.申购数量<=(SELECT Sum(Round(Nz([入库数量],0)*1,2)) AS 入库合计 FROM 采购入库temp LEFT JOIN 刀具入库明细 ON 采购入库temp.申购ID 阅读全文
posted @ 2023-10-04 16:30 一曲轻扬 阅读(320) 评论(0) 推荐(0) 编辑
摘要:如上图,需求是当用户点中[申请数量]字段下的值时,自动选中里面的值,但要求每次获得焦点时,只触发一次. 我首先想到的是用GotFocus 事件,核心代码无非就是SelStart和SelLength,但是发现它根本不起作用.于是只能用click事件尝试,结果运行正常. 但有个小BUG,就是每次点击都会 阅读全文
posted @ 2023-10-01 14:38 一曲轻扬 阅读(81) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示