如何在MS Access VBA中生成电话号码扩展名

Question

嗨，我是MS Access编程的新手。请您帮我知道用于生成电话号码扩展名的MS Access VBA代码。

示例

表1（输入）

Phone_number_main,  Range_lower,    Range_upper  
9774308333,         1,              3  
977430866,          10,             14

表2（输出）

Phone_number_main,  Phone_number_extention  
9774308333,         97743083331  
9774308333,         97743083332  
9774308333,         97743083333  
977430866,          97743086610  
977430866,          97743086611  
977430866,          97743086612  
977430866,          97743086613  
977430866,          97743086614  

任何帮助将不胜感激

Answer 1

（我假设逗号不是您数据的一部分。）

我建议您创建一个虚拟表，其数字从0到Range_upper中的最大可能值。您可能需要为此使用VBA。

然后，您可以编写以下SQL（假设Dummy表具有一个Num字段）：

SELECT Phone_number_main, Phone_number_main & Dummy.Num AS Phone_number_extention
INTO Table2
FROM Table1, Dummy
WHERE Dummy.Num BETWEEN Table1.Range_lower AND Table1.Range_upper

运行此查询将每次重新创建Table2。