如何在MS访问VBA中生成电话号码扩展

Question

嗨，我是 MS 访问编程的新手。请您帮助我了解用于生成电话号码扩展的MS访问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。