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

• ArchElf addikt

  #1438

  #1434 Oly

  2011-09-19 11:11:53

  Új Válasz

  Ú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

  

  ArchElf

  addikt

  #1434 Oly

  #1434 Oly

  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

  Hol van ez futtatva (access, ha jól rémlik?)

  Hirtelen ezeket találtam:
  - Mi az a Bontás Pending?
  - GOTO értelmetlen, használj Exit Sub-ot
  - probalkozasok hol kap értéket, nincs átadva a Sub-nak, ez valami globális objektum?
  - user() implementálva van?
  - Ezeket mire használod?
  Kiertesito1, Kiertesites1, Kiertesito2, Kiertesites2, Kiertesito3, Kiertesites3
  - indentálásra figyelj:
  If akármi Then
  'művelet 1
  'művelet 2
  Else
  'művelet 3
  'művelet 4
  End If
  így legalább olvasható lesz a kód
  - használj Option Explicit-et (minden változót kötelező deklarálnod Dim akármi-vel, de legalább véd az elgépelés és a túlzott mértékű változó használat ellen)

  AE

• ArchElf addikt

  #1436

  #1434 Oly

  2011-09-19 10:33:48

  Új Válasz

  Ú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

  

  ArchElf

  addikt

  #1434 Oly

  #1434 Oly

  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

  Hol hal el?

  írj be az elejére egy
  On Error Resume Next-et

  A végére meg ezt:
  If Err Then
  MsgBox(Err.Number & vbCrLf & Err.Description)
  Err.Clear()
  End If
  On Error Goto 0

  Ez majd kiírja, mi a hiba, akkor lehet majd egy kicsit pontosabban ráközelíteni a problémára...

  AE

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