ms-access - How to generate phone number extensions in MS access VBA

Question

Hi I’m new in MS access programming. Please can you help me to know the MS access VBA code for generate the phone number extensions.

Example

Table1 (Input)

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

Table2 (output)

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

Any help would be appreciated

标签： ms-accessvba

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每次运行此查询都会重新创建。