Prikazi cijelu temu 31.03.2013 17:34
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Lokacija:SARAJEVO


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):
  1. Private Sub Command6_Click()
  2. Dim ImePolja As String
  3. Dim Vrijednost
  4.  
  5. Vrijednost = Mid(Screen.ActiveControl.Caption, 2)
  6. ImePolja = Screen.PreviousControl.Name
  7. Me(ImePolja) = Me(ImePolja) & Vrijednost
  8. End Sub
  9.  
  10. Private Sub Command5_Click()
  11. Dim ImePolja As String
  12. Dim Vrijednost
  13.  
  14. Vrijednost = Mid(Screen.ActiveControl.Caption, 2)
  15. ImePolja = Screen.PreviousControl.Name
  16. Me(ImePolja) = Me(ImePolja) & Vrijednost
  17. End Sub
  18.  
  19. ...
Pozdrav, Amela