Private Sub Command6_Click() Dim ImePolja As String Dim Vrijednost Vrijednost = Mid(Screen.ActiveControl.Caption, 2) ImePolja = Screen.PreviousControl.Name Me(ImePolja) = Me(ImePolja) & Vrijednost End Sub