相同数字如何检测

ycxchen

为便于管理，我在一些记录的手机号码字段用相同的数字作标记，例如，0000000000等。请问，如何用代码或函数检测手机号码里的11位数字都是相同的？

ycxchen

万分感谢dddddd大哥！你真是一位一级的好人加高手,向您学习！

Henry D. Sy

就是说
runsql方法只能是动作查询或数据定义查询，也就是以INSERT INTO、DELETE、SELECT...INTO、UPDATE、CREATE TABLE、ALTER TABLE、DROP TABLE、CREATE INDEX 或 DROP INDEX这些语法为语句的查询，而不能用一般的选择查询（select 。。。from 。。。。where。。。。。）
因为，runsql不会返回记录集，而选择查询需要返回记录集。
例子：
docmd.runsql "insert into ..........."

ycxchen

19楼的解释太抽象了，举个例子说明一下好吗？

ycxchen

万分感谢dddddd，你真是大哥级的高手！

Henry D. Sy

1
将下面的查询保存为 A
SELECT 游客表.姓名, 游客表.地址, 游客表.手机, 游客表.固定电话
FROM 游客表
WHERE (((CompareField([手机]))=True));
2
然后，在输入下面的代码
Private Sub Command9_Click()
    DoCmd.OpenQuery "A"
End Sub

Henry D. Sy

在 Visual Basic 中，RunSQL 方法执行 RunSQL 操作。

expression.RunSQL(SQLStatement, UseTransaction)

expression   必需。返回“Applies To”列表中的一个对象的表达式。

SQLStatement  必需 Variant 型。字符串表达式，表示操作查询或数据定义查询的有效 SQL 语句。它使用 INSERT INTO、DELETE、SELECT...INTO、UPDATE、CREATE TABLE、ALTER TABLE、DROP TABLE、CREATE INDEX 或 DROP INDEX 语句。如果要访问其他数据库，则应包含 IN 子句。

UseTransaction  可选 Variant 型。使用 True (-1) 可以在事务处理中包含该查询。如果不想使用事务处理，则应将该参数设为 False (0)。如果将该参数留空，则采用默认值 (True)。

[ 本帖最后由 dddddd 于 2008-10-8 01:24 编辑 ]

ycxchen

十分感谢dddddd大哥！两个问题请教：
1、你说“的RunSQL操作查询不返回记录集”是什么意思？能举个例子说明一下吗？
2、对14楼的问题我真的弄不明，请你帮我在我的例子中修改一下吧，先感谢了！

Henry D. Sy

最简单的办法就是
作个查询（也就是上面我给你的查询），然后在按钮事件中打开他。
docmd.OpenQuery

ycxchen

dddddd大哥，我想打开查询查看检测结果，哪如何修改SQL语句呢？请指点。

Henry D. Sy

RunSQL
只能是，操作查询，并不返回记录集。