Predmet:Re: Screen.ActiveControl.Name problem
Ovo je odlicno kada je u pitanju samo jedan broj ali kad dodam jos brojeva javlja mi gresku.
PreuzmiIzvorni kôd (Text):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
Private Sub Command5_Click()
Dim ImePolja As String
Dim Vrijednost
Vrijednost = Mid(Screen.ActiveControl.Caption, 2)
ImePolja = Screen.PreviousControl.Name
Me(ImePolja) = Me(ImePolja) & Vrijednost
End Sub
...
Pozdrav, Amela