オートは、私はIDが自動的にdate.time.userのIDによって生成されたアクセスでDB用のフォームでIDを作成したいアクセス

Question

形でIDを埋めるように/ 161212.2227.s978904/

私はVBAでそれを作成しますが、アクセスでは動作しません。

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 1

あなたがIDを返し、フォームから呼び出すこと関数を使用します！

私はこのようにしました。

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 

Answer 2

ありがとう：

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