[求助]请大侠帮忙

boylove

Access中的序号是空的自动补上

如：RA-06-01

RA-06-03

中间空了一个RA-06-02可以自动补上如何做

boylove

[求助]请大侠帮忙

Access数据库中的序号是空的自动补上

如：RA-06-01

RA-06-03

中间空了一个RA-06-02可以自动补上如何做

[em05]

tof

如果数据库不大的话建议转到EXCEL中补上后，在导入ACCESS中。

否则呵呵！给一段巨烦的代码实现象在EXCEL中选取单元格内容的功能。一些多余的语句自己删除吧。

'Dim b, c, d, e, f, G, H, j As Variant 'Dim I As String 'Set b = DBEngine.Workspaces(0).Databases(0) 'Set c = b.TableDefs(1) 'Set d = c.Fields(1) 'Set e = CurrentDb.OpenRecordset("select * from qq") 'G = InputBox("输入时间按YYYYMMDD格式", "北京路营业室") 'j = 0 'e.Move 0 'For j = 0 To 6

'e.Move 1 'Set f = e("帐号")

' I = f.Value ' Select Case I