08. oktober 2004 - 09:48Der er
1 kommentar og 2 løsninger
Prolem ved hentning af pladekartotek
Hej
Jeg har datalogi som tilvalg i gymnasiet og vi har fået til opgave at fremstille et pladeregister og det gik også fint. Men nu skal det udvides til at kunne arbejde med mere end et "register".
Min kode ser ud som følger:
Pladefil = InputBox("Vælg kartotek: 'Gamle' eller 'Nye'", "Vælg")
If (Pladefil = "gamle") Or (Pladefil = "nye") Then
Close #1
PostLængde = Len(plade) Open Pladefil For Random As #1 Len = PostLængde SidstePost = FileLen(Pladefil) \ PostLængde Postnr = SidstePost hsbBladr.Max = SidstePost hsbBladr.Value = Postnr If Postnr > 0 Then visPlade
if (pladefil = "gamle") or (Pladefil = "nye") then else end if
det vil betyde at hvis pladefil er lig med gamle eller nye vil den kører det kode, som findes inden i IF sætningen.
Derfor prøv dette: if (pladefil = "gamle") then ' kode til at læse dette register elseif (pladefil = "nye") then ' kode til at læse dette register else MsgBox "Kartoteket eksistere ikke! Vælg 'Gamle' eller 'nye'", vbInformation, "Forkert navn:" end if
sorry falsk alarm.... det var en af mine klassekammerater der havde været ''sjov'' og ændret mine registe så det så ud som om at der ikke blev skiftet...
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
