文本框为空问题

2023-12-21

我的 Access 表单上有一个文本框和一个按钮。在按钮的单击事件中,我想查看文本框是否为空,如果是,则不会执行任何操作。 所以我用

If Me.textbox.Value = Null Then
    Exit Sub
End if

但它不起作用...我检查了执行窗口中的textbox.value,它是Null,但是if子句不起作用...为什么?

编辑:@Dimse,我尝试了“”,不起作用。而且 textbox.text = Null,它会弹出一个错误,告诉我文本框未激活。非常奇怪。


Null 永远不等于任何东西,甚至 Null 也不等于。使用IsNull()功能。

If IsNull(Me.textbox.Value) Then

如果你想Me.textbox当它包含一个空字符串时与它为 Null 时的处理方式相同,将一个空字符串连接到它并检查组合字符串的长度:

If Len(Me.textbox.Value & "") = 0 Then

您还可以使用命名常量,vbNullString,而不是字符串文字,"",对于空字符串。

If Len(Me.textbox.Value & vbNullString) = 0 Then

使用字符串文字需要 VBA 每次从头开始构造该字符串。使用命名常量,VBA 只需要引用它,因此应该更快并且使用更少的内存。然而,在许多(可能是大多数)情况下,性能优势vbNullString会非常小,以至于您不会注意到其中的差异。另请参阅下面评论 https://stackoverflow.com/questions/5662751/textbox-null-problem/5663965#comment6529056_5663965 from 大卫-W-芬顿 https://stackoverflow.com/users/9787/david-w-fenton.

对我来说,使用更令人信服的理由vbNullString是我衰老的眼睛一眼就能认出它。相反,对于字符串文字,我需要(一点点)更长的时间来确认""实际上不是别的东西......就像" " or "'"。唯一的缺点是vbNullString,IMO,这需要比"".

最后,尽管您实际上不需要显式引用Value属性(因为它是文本框的默认属性),我将其保留在其中,因为您已经这样做了,并且因为我更喜欢明确地使用Value, 也。 :-)

本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

文本框为空问题 的相关文章

  • 如何使用 SQL 查询在 Access 中的字段上设置验证规则?

    我正在使用 MS Access 2016 Office 365 目前遇到问题 下面是一个演示此问题的示例 这里我创建了一个表 名为节点家庭链接 由两个字段组成 NodeID 和 FamilyID 如下所示 现在 NodeID 是从另一个表
  • 将最后几个功能添加到我的调度模板生成器中

    感谢 StackOverflow 上的一些出色的人 我几乎完成了调度模板生成器的代码 我还想补充三件事 但我遇到了一些麻烦 当前细分 我有两张表 2 员工列表 和 X 模板 员工列表中的值是从单元格 D9 开始的一列员工姓名 然后将员工值转
  • 运行代码(而不是查询)时如何在状态栏上显示进度

    我已经发布了有关在 MS Access 2010 中运行查询时更新状态栏的问题 请参阅在 MS Access 中运行一系列查询时如何在状态栏上显示进度 https stackoverflow com questions 27765376 h
  • 如何模拟“焦点”和“打字”事件

    尝试模拟 onfocus 和打字事件 但它不起作用 Sub Login MyLogin MyPass Dim IEapp As InternetExplorer Dim IeDoc As Object Dim ieTable As Obje
  • MS Access 中重命名列的 DDL 是什么?

    在 MS Access 中重命名列的 DDL 是什么 大致如下 alter table myTable rename col1 to col2 它不适用于 MSAccess 2000 格式的数据库 我正在将 OLEDB 或 ADO NET
  • VBA Shell 并等待退出代码

    我正在打包一个办公应用程序 VBA 它调用 C 控制台应用程序来执行应用程序 大型模拟程序 的一些繁重工作 我希望能够让 VBA 应用程序等待控制台应用程序完成并从控制台应用程序检索退出代码 我已经能够做到前者 但尚未能够从应用程序中检索退
  • sql查询将两列与一列连接起来

    我在 MS Access 2010 中有 2 个表 如下所示 USERS u id u name LOAN l id l from ref users u id l to ref users u id l amount Users u id
  • 在没有 LinkChild/LinkMaster 的情况下链接子报表

    我正在维护并偶尔修改一个 Access 97 程序 该程序仍然是一家非常大的美国公司的重要部门工具 许多报告使用 总计 子报告 我无法使用 LinkChildFields LinkMasterFields 链接该子报告 在每种情况下 主报告
  • 我可以获取VBA代码中的注释文本吗

    可以说我有以下内容 Public Sub Information TEST End Sub 有没有办法得到 TEST 结果 不知何故通过VBA 例如 在 PHP 中 有一个获取注释的好方法 这里有什么想法吗 编辑 应该有办法 因为像 MZ
  • VBA 中的匈牙利语好吗?

    我在 Net 中不使用匈牙利语 str int 前缀 但我仍然发现它在 VBA 中很有用 因为在 VBA 中很难看到类型 这很糟糕吗 不必要 也许我错过了一些东西 我真的很感激任何反馈 我想知道有一段时间了 谢谢大家 我想说 这种匈牙利符号
  • 使用输入作为显示日期的基础

    我需要一种方法来使用用户窗体上的输入来确定将在输出上显示的日期 这是我的代码 If StatusBox Value lt 23 59 And ShiftCode Value AP Then Cells emptyRow 8 Value Da
  • 检查未绑定控件是否具有值的正确方法

    简单场景 一个表单和一个文本框 未绑定 Text1 If lt gt Text1 Then MsgBox Not Empty End If 上面的代码有效 表达方式 lt gt Text1如果文本框包含字符 则计算结果为 True 无论文本
  • 使用 VBScript 在日期字段值上选择错误的数据

    我有一张包含以下数据的表 现在 Excel 共有 36 个任务 每个任务有 4 列 第一个任务 即 Task1 名称将始终从 L 列开始 144 列描述了 36 个任务 现在我们需要按行进行检查 并需要检查 TNStart 开始日期 你们能
  • MS ACCESS 计数/求和行数,不重复

    我有下表 我需要计算总行数而不包括任何重复记录 CustomerID test1 test1 test2 test3 test4 test4 如您所见 总行数为 6 但有两个 test1 和两个 test4 我希望查询返回 4 IOW 我想
  • 在单个 select 语句中多次有条件地求和同一列?

    我有一个表 显示每个月在给定位置的各种类型的部署的员工部署情况 ID Location ID Date NumEmployees DeploymentType ID 例如 一些记录可能是 1 L1 12 2010 7 1 Permanent
  • 如何在缩进层次结构中找到父级?

    我目前有一张 Excel 工作表 其中包含缩进的项目层次结构 如下所示 每个项目都缩进 每个缩进四个空格 以显示它如何适应整体层次结构 我已经能够创建一个 级别 列 将缩进级别转换为数字 Item Level Parent P1 1 N A
  • 删除 VBA 按钮集合

    我正在使用以下脚本在 Excel 中生成按钮 范围正是我希望放置它的位置 Sub CreateAddButton rng As Range Dim btn As Button With Worksheets User Set btn But
  • 字符串在换行符处拆分

    我在 MS Access 表单上有一个文本框 用户将从 Excel 电子表格中复制一列数字到其中 我需要获取此输入并将其用作参数来构建查询 我的代码看起来像这样 Dim data as variant Dim input as String
  • 如何在 Access 2010 中创建自定义 ID

    这个问题的标题可能不准确 因为我不确定如何提出这个问题 有没有办法让 AC 2010 中的 ID 字段具有常量部分 然后是用户将输入的 ID 的一部分 示例 EMP9066 我希望 ID 的 EMP 部分始终保持不变 用户不应更改它 并且
  • 从 VBA 访问串行端口的最佳方法是什么?

    从 VBA 访问串行端口的最佳方法是什么 我需要我们的一些销售代表能够通过 PowerPoint 中的操作按钮通过串行端口发送简单的字符串 我不常用 VBA 尤其是像这样的事情 通常我会把它变成某种应用程序 但实际上我认为这个想法并没有那么

随机推荐

  • 检测不支持的浏览器版本并显示特定的 div 和消息

    我的网站中有一个聊天机器人 它需要最新版本的浏览器才能完美工作 因此我需要向用户显示一条消息 请将您的浏览器更新到最新版本 我不想使用第三方插件 如果用户使用此 js 代码使用不受支持的浏览器版本 我如何显示 div Html div di
  • 如何将对象传递给属性构造函数

    我试图将对象传递到 Attributes 构造函数中 如下所示 PropertyValidation new NullOrEmptyValidatorScheme public string Name get private set 使用此
  • 通过java processBuilder运行cmd命令

    我正在尝试使用 ProcessBuilder 来运行命令语句 ProcessBuilder pb new ProcessBuilder cmd exe C start Process p pb start 但是 我只能打开cmd exe I
  • 2.7 CSV模块想要unicode,但不想要unicode

    csvfile open finishedFileName num csv w newline writ csv writer csvfile dialect excel firstline unicode str firstline tr
  • XCode 构建阶段:在后台运行脚本(不阻止构建)

    当我在模拟器中构建和运行 iOS 应用程序时 我希望能够在后台运行脚本 即不阻止构建过程 我试过了osascript path to script 并且还后台运行了一个单独的 shell 脚本 该脚本执行相同的操作 但两者都不起作用 构建停
  • 将公共代码添加为 git 子模块时出现问题:“索引中已存在”

    我想添加一些 git 子模块 我收到了两个共享一些通用代码的项目 共享代码只是复制到两个项目中 我为通用代码创建了一个单独的 git 存储库 并将其从项目中删除 并计划将其添加为git子模块 我使用 git submodule add 的路
  • 如何检查 preg_match() 是否为 False 而不是 True?

    我有这段代码 可确保用户名只是字母和数字 但是我的代码设置方式 我需要它来检查结果是否预匹配 https www php net manual en function preg match php is false 现在它说 如果安全则回显
  • 在组件安装过程中调试包

    我需要在 Embarcadero RAD Studio XE5 中构建为 BCB6 Borland C Builder 6 制作的旧组件 项目是 CPP 项目 组件代码包含在 PAS 文件中 该项目包含6个包 一个设计时间三个包 三个包运行
  • from Gui import * 在 python 3 中?

    我正在尝试这个 import os sys from Gui import import Image as PIL import ImageTk class ImageBrowser Gui def init self Gui init s
  • 通过PowerShell + WinRM传递双引号

    我正在用这个code https stackoverflow com a 13284313 1118239在服务器上执行远程代码 MSI 安装 通过脚本传递双引号是行不通的 我尝试了下面给出的两种变体 3 和 4 以及输出 输入 1 测试命
  • Rails 4 has_secure_password 呈现密码确认可选

    我使用 Rails 4有安全密码在我的用户模型中 技巧说如果我不设置 password confirmation 它永远不会被触发 但为什么当我运行测试时我会收到错误 密码确认不能为空如下 Failures 1 User Failure E
  • 在 Linq to SQL 中连接两个表

    也许是一个非常简单的问题 但我是 Linq to SQL 的新手 我有两张桌子 User UserId name Password Email USER TABLE Id UserId FirstName LastName 我想要一个查询
  • BufferGeometry 偏移量和索引

    我只是想知道 偏移量 和 索引 索引 到底是什么 偏移量例如中提到的https github com mrdoob Three js blob dev src core BufferGeometry js https github com
  • Python 中的桑基图

    有没有一个Python库可以生成桑基图 http en wikipedia org wiki Sankey diagram 我见过这个桑基图应用程序和库列表 http www sankey diagrams com sankey diagr
  • 从一维张量中提取前 k 个值索引

    给定 Torch 中的一维张量 torch Tensor 包含可以比较的值 比如浮点 我们如何提取顶部的索引k该张量中的值 除了暴力方法之外 我还在寻找 Torch lua 提供的一些 API 调用 它可以有效地执行此任务 截至拉取请求 4
  • 如何用动画从 UITableView 中删除行?

    我在从表视图中删除行时遇到问题 当按下行中的删除按钮时 我使用下面的代码 NSIndexPath indexPath NSIndexPath indexPathForRow control tag 100 inSection 0 resul
  • realm-js - 将本地领域数据复制到同步领域

    我在用realm js使用 React Native 在用户的设备上存储数据 并且工作流程中的某个点我想将本地领域中的所有数据复制到同步领域 以保留在 ROS 上 我遇到了一个问题 在我们的模式中 我们通过将引用一个对象的属性添加到另一个对
  • 如何根据对象字符串属性在 Xcode 中设置条件断点?

    我希望能够让调试器在达到特定字符串匹配时中断 举个例子 我可能有这样的事情 Foo myObj self gimmeObj myObj可能有一个名为name 我希望调试器在分配时停止 myObj name isEqualToString B
  • 红外发射器和 Android 5.0

    我在运行 Android 5 0 的 Galaxy S5 上遇到了红外发射器问题 在我更新到 5 0 之前 我的应用程序在我的手机上运行得很好 但现在 我要管理的设备没有任何反应 当我单击应用程序发送红外代码时 LED 指示灯会闪烁 表示红
  • 文本框为空问题

    我的 Access 表单上有一个文本框和一个按钮 在按钮的单击事件中 我想查看文本框是否为空 如果是 则不会执行任何操作 所以我用 If Me textbox Value Null Then Exit Sub End if 但它不起作用 我