Access 2000自動添加文本到表單輸入字段

我有一個自定義表單的Access 2000數據庫。人們正在向此輸入信息。在其中一個字段上，我想自動附加一個「.zip」到其中一個字段。Access 2000自動添加文本到表單輸入字段

怎麼樣？

2010-10-13 Peter

假設你有一個叫txtFileName文本框，然後你可以使用它的更新後事件做到這一點：

Private Sub txtFileName_AfterUpdate() 
    If Not IsNull(txtFileName) Then 
     txtFileName = Trim$(txtFileName) 
     If Not Right$(txtFileName, 4) = ".zip" Then 
      txtFileName = txtFileName & ".zip" 
     End If 
    End If 
End Sub

來源

2010-10-13 16:56:53 awrigley

感謝。它不工作..？ Private Sub FirstName_AfterUpdate（） If Not IsNull（FirstName）Then FirstName = Trim $（FirstName）如果不是正確$（FirstName，4）=「.zip」Then FirstName = FirstName＆「.zip」 End If End If End Sub – Peter 2010-10-13 17:06:15

它爲我工作...必須有一些其他因素，在我的代碼外部。你會怎麼樣？ – awrigley 2010-10-13 19:21:36

Access 2000自動添加文本到表單輸入字段

回答

相關問題