自动填写访问表单中的ID

我想创build一个ID在一个数据库访问的窗体中的ID是由date.time.user ID自动生成像/ 161212.2227.s978904 /

我在VBA excel中创build它，但不能访问。

Sub IDgen() Dim ID, Yr, Dt, Mth, Hr, Min As Integer ID = Environ("username") Yr = Right(Year(Date), 2) Mth = Format(Month(Date), "#00") Dt = Format(Day(Date), "#00") Hr = Format(Hour(Time), "#00") Min = Format(Minute(Time), "#00") Sheets("Sheet1").Range("A2").Value = "C" & Yr & Mth & Dt & "." & Hr & Min & "." & ID End Sub 

Answer 1

你使用一个函数返回ID并从你的表单中调用：

 Function GetId() As String Dim ID As String, Yr As String Dim Dt As String, Mth As String Dim Hr As String, Min As String ID = Environ("username") Yr = Right(Year(Date), 2) Mth = Format(Month(Date), "#00") Dt = Format(Day(Date), "#00") Hr = Format(Hour(Time), "#00") Min = Format(Minute(Time), "#00") GetId = "C" & Yr & Mth & Dt & "." & Hr & Min & "." & ID End Function 

Answer 2

谢谢！

我是这样做的。

 Private Sub Form_Load() Yr = Right(Year(Date), 2) Mth = Format(Month(Date), "#00") Dt = Format(Day(Date), "#00") Hr = Format(Hour(Time), "#00") Min = Format(Minute(Time), "#00") Me.Text56.Value = "C" & Yr & Mth & Dt & "." & Hr & Min & "." & Environ("username") End Sub