Új hozzászólás Aktív témák

• #2005 vilag tag

  Új Válasz 2013-03-18 09:05:19 #2005

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vilag

  tag

  Üdv!

  Az előzőektől független problémám támadt amire nem találom a megoldást és már az őrületbe kerget.

  Fut egy rutin, ahol az egyik sornál ha egy feltétel teljesül akkor Show paranccsal meghív egy UserFormt.
  Ezzel még nem is lenne gond, azonban a UserForm megjelenésekor lefut az említett UserForm Initialize rutinja -és ahelyett, hogy megállna és bevitelre várna- fogja magát és visszatér az eredeti rutinba és megy tovább.

  Mi a frászért nem áll ez meg nekem?

  A kód (természetesen sallangok nélkül):

  Eredeti rutin:

  (...)
  nagyvaros=true
  UserForm3.Show
  (...)

  UserForm3:
  Private Sub UserForm_Initialize()
  
  If nagyvaros = True Then
  UserForm3.Caption = "Irányítószám megadása!"
  szoveg = "Kérlek, add meg az irányítószámot! Ha Pf.-hoz tartozó irányítószámot" + Chr(13) + Chr(13) + _
  "adtál meg, akkor a jelölőnégyzet bepipálásával jelezd azt!"
  Else
  UserForm3.Caption = "Postafiók irányítószámának megadása"
  szoveg = "Kérlek, add meg a postafiók irányítószámát!" + Chr(13) + Chr(13) + _
  "(Ha nem postafiókról van szó, nyomd meg a ""Mégsem"" gombot!)" + Chr(13) + Chr(13) + "Postafiók irányítószáma"
  End If
  
  Label1.Caption = szoveg
  TextBox1.Text = pfirsz
  TextBox1.SetFocus
  
  End Sub

  Innen meg fogja magát és megállás nélkül visszatér az eredeti kiugrási pontra.
  Mért nem áll ez meg nekem????

  Biztosan triviális a megoldás, de nem jövök rá...

Új hozzászólás Aktív témák