Question

access里面，我想输入连续的数字，这种情况有没有快捷方式？

Answer 1

Sub Command1()
Dim ST, Prv As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
ST = "select * from 表 "
rs.Open ST, Currentproject, adOpenKeyset, adLockOptimistic
rs.movtlast
prv=rs("采集号")
rs.addNew
Textbox=val(rs("采集号"))+1
rs.update
rs.close
End sub

追问

对access很不熟悉，不知道该怎么操作

追答

如果对access很不熟悉，你可以在先在Excel里输入递增连续数字(光标在单元格右下角处变成十字形时，往下拉鼠标（有时需要按Ctrl键后再拉））， 然后复制，粘贴至Access表。

Answer 2

d = DMax("采集号", "表1") 'd=表1里采集号的最大值
If IsNull(d) Or CDate(Mid(d, 1, 4)) <> Year(Date) Then '如果D是空或者D的前4位不等于今年
x = Year(Date) & "0001" 'x=今年 "连接" 0001
Else
x = d + 1
End If
'x就是你想要的下一个数值,你可以和你的记录一起保存,下面是直接将"x"保存回表1里
Set m = CurrentDb.OpenRecordset("表1")
m.AddNew
m("采集号") = x
m.Update

追问

遇到上下单元格的内容完全一样的时候，有没有像excell那样的快捷键直接输入呢

追答

你是要在表里直接输入数据啊?

追问

是直接在表里面输入数据。不对么？