Access 2000 автоматически добавляет текст в поле ввода формы

Question

У меня есть база данных Access 2000 с пользовательской формой.Люди вводят информацию в это.На одном из полей я хочу автоматически добавить «.zip» к одному из полей.

Как?

Answer 1

Если у вас есть textBox с именем txtFileName, то вы можете использовать его событие AfterUpdate для этого:

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