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

• #9493 m.zmrzlina senior tag Fire/SOUL/CD #9492

  Új Válasz 2011-02-21 11:53:13 #9493

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Fire/SOUL/CD #9492 üzenetére

  Ezt nem igazán értem. Próbáltam Inputboxra alkalmazni de nem ment.

  Ide kellene valahogy beilleszteni:

  Private Sub CommandButton1_Click()
  Dim tech As String
  
  start:
  tech = InputBox("Add meg a technikus nevét!" + Chr(13) + Chr(13) + "A lista törléséhez nyomj < SPACE >-t!")
  
  If InStr(tech, " ") = 1 Then tech = " " Else tech = tech
  If tech = vbCancel Then Exit Sub
  
  Select Case tech
  ' Case Is = vbCancel
  ' Exit Sub
  Case Is = " "
  GoTo clearcontent
  Case Is = ""
  MsgBox "Nem adtad meg a technikus nevét!", vbCritical, "Hiányzó adat!"
  GoTo start
  Case Is <> ""
  GoTo paste_list
  
  End Select

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