Avatar billede hnto Nybegynder
10. juli 2003 - 22:26 Der er 18 kommentarer og
1 løsning

simpel VBA i 97

jeg synes ikke helt at få denne til at virke. når den sættes i gang tænker den ufattelig lang tid over dette og synes ikke at opdatere  nogle gode ideer ?

Public Function Opdater_kombination()
    Dim db As Database
    Dim rs As Recordset
  Set db = CurrentDb
    Set rs = db.OpenRecordset("1", dbOpenDynaset)
   
    Do
    rs.MoveFirst
        If Not IsNull(rs!slettes) Then
        rs.Edit
        rs!kombination.Value = "1"
        rs.update
        rs.MoveNext
            End If
    Loop Until rs.EOF
    rs.Close
    Set rs = Nothing
End Function
Avatar billede hnto Nybegynder
10. juli 2003 - 22:32 #1
har slettet min rs.MoveFirst
da den eller kører i ring på record nr 1, men den synes stadig at køre i ring.

jeg har som eks kun 9 records i tabellen, og ved "F8" kan jeg køre mere en 20 gange ( minimum...har ikke testet hvornår den går kold. ) Ergo er der noget der gør at jeg ikke kommer ud af mit loop..
10. juli 2003 - 22:38 #2
Din rs.MoveNext skal stå efter End IF....
Avatar billede hnto Nybegynder
10. juli 2003 - 22:45 #3
har løst det selv
10. juli 2003 - 22:46 #4
hvad er løsningen? Var det ikke rigtigt, at rs.MoveNext skulle flyttes?
Avatar billede hnto Nybegynder
10. juli 2003 - 22:46 #5
upsss..
havde ikke set dit indlæg tj...

jeg har ændret det til :

Public Function Opdater_kombination()
    Dim db As Database
    Dim slettes As String
    Dim rs As Recordset
  Set db = CurrentDb
    Set rs = db.OpenRecordset("1", dbOpenDynaset)
   
  Do
  If rs!slettes.Value = "x" Then
        rs.Edit
        rs!kombination.Value = "1"
        rs.update
        Else
                      End If
    rs.MoveNext
    Loop Until rs.EOF
   
    rs.Close
    Set rs = Nothing
End Function


hvad gør jeg nu ????
10. juli 2003 - 22:48 #6
hvad mener du?
Avatar billede hnto Nybegynder
10. juli 2003 - 22:49 #7
ja blandt andet... jeg flyttede min rs.movenext kort efter mit indlæg 22.32
men roede så videre med den sidste præsenterede løsning.

du er dermed vel egentlig berettiget til de 50 spir.
Avatar billede Slettet bruger
10. juli 2003 - 22:51 #8
movefirst skal vel også flyttes så da den ellers altid vil starte med at gå til den første post og så er det ligemeget hvor movenext står.
10. juli 2003 - 22:52 #9
Det havde du selv skrevet inden jeg gik i gang med opgaven!

Det svarer jo til at du sætter en annonce i avisen hvor du beder folk gøre noget for penge. Når de så gør det, kan man jo ikke bare sige "nå, jeg gjorde det selv i stedet", vel ? :o)
Avatar billede hnto Nybegynder
10. juli 2003 - 22:54 #10
kunne du ikke være rar at fortælle hvordan jeg skal håndtere et feltnavn der er adskilt af mellemrum ?
eks hvis "slettes" skulle erstattes af "billed ok".
Der er som om at jeg ikke kan bruge ' ' eller " "
Avatar billede Slettet bruger
10. juli 2003 - 22:55 #11
thomasjepsen>> Dit forslag løser ikke problemet da, som jeg har skrevet, der altid bliver movet first
10. juli 2003 - 22:56 #12
Generelt gælder det i Access, at hvis der er mellemrum, bindestreg eller andre specialtegn i et navn, så skal man sætte [] omkring.
Dvs [billed ok]
Avatar billede Slettet bruger
10. juli 2003 - 22:57 #13
hnto>> Du skal holde dig til at have navne i et ord, det andet(hvis man egentlig kan det?) giver ikke andet end bøvl.
Avatar billede hnto Nybegynder
10. juli 2003 - 22:58 #14
bertie:
læs min første kommentar

Kommentar: hnto
10/07-2003 22:32:07

mit script fra 22:46:47
virker upåklageligt.
10. juli 2003 - 22:58 #15
Hov...jeg så slet ikke at Bertie var dukket op. Jeg troede at Berties indlæg var hnto's. Så kan jeg bedre forstå det hele ;o)

Bertie-> Hnto skriver allerede i sit andet indlæg, at rs.Movefirst er fjernet.
10. juli 2003 - 23:00 #16
thnx for point :o)
Avatar billede Slettet bruger
10. juli 2003 - 23:01 #17
Hmm jeg smutter lige ud og pudser mine briller :-)
Men jeg vil gerne holde fast i mit indlæg fra 22:57:07 som et godt råd.
Avatar billede hnto Nybegynder
10. juli 2003 - 23:01 #18
bertie:
er klar over dette med navne, men ofte er der tale om importer at lange filer hvor navnet er defineret som overskrift. Det er da lettest at bruge den aktuelle heading for ikke at skulle bruge 1 time på at udtænke nye 1-stavelsesnavne. I de tilfælde hvor jeg gør dette adskiller jeg altid mine beskrivelser med _ (underscore)
Avatar billede Slettet bruger
10. juli 2003 - 23:02 #19
ok :-)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester