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

• #1434 Oly őstag Oly #1431

  Új Válasz 2011-09-19 10:27:39 #1434

  Ú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

  

  Oly

  őstag

  válasz Oly #1431 üzenetére

  Most addig eljutottam, hogy néhány helyen már futnak a scriptek, de még mindig nem mind.
  pl ez sem:

  Private Sub Command34_Click()
  Dim proba As Long
  'Dim sortores As String
  'sortores = ""
  hivas = MsgBox("Hívtad a kontaktot?", vbQuestion + vbYesNo, "Megerősítés")
  If hivas = vbNo Then
  GoTo Vege
  End If
  If probalkozasok.Value > 0 Then
  sortores = vbCrLf
  End If
  probalkozasok.Value = probalkozasok.Value + 1
  
  nvf = MsgBox("Sikerült elérni az ügyflelet?", vbQuestion + vbYesNo, "Kérdés")
  If nvf = vbYes Then
  hozzafuz = InputBox("Eredmény", "Kérlek add meg, hogy mire jutottál")
  lezarass = MsgBox("Lezáruk a jegyet sikeres kiértesítéssel?", vbQuestion + vbYesNo, "Lezárás")
  If lezarass = vbYes Then
  Lezarva = 2
  MyFile = "BP.txt"
  fnum = FreeFile()
  Open MyFile For Append As fnum
  Write #fnum, Now(), user(), "M", ID, Lezarva
  Close #fnum
  End If
  Else
  hozzafuz = "Nem vette fel"
  End If
  Kiertesites_eredmenye = Kiertesites_eredmenye & sortores & probalkozasok & ". kiértesítés: " & hozzafuz
  If probalkozasok.Value = 1 Then
  Kiertesito1 = user()
  Kiertesites1 = Now()
  End If
  If probalkozasok.Value = 2 Then
  Kiertesito2 = user()
  Kiertesites2 = Now()
  End If
  If probalkozasok.Value = 3 Then
  Kiertesito3 = user()
  Kiertesites3 = Now()
  lezaras = MsgBox("Ez volt a harmadik próbálkozás! Lezáruk a jegyet sikertelen kiértesítéssel?", vbQuestion + vbYesNo, "Lezárás")
  If lezaras = vbYes Then
  Lezarva = 3
  MyFile = "BP.txt"
  fnum = FreeFile()
  Open MyFile For Append As fnum
  Write #fnum, Now(), user(), "M", ID, Lezarva
  Close #fnum
  End If
  End If
  Vege:
  End Sub

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