Notifikationer

Markér alle som læst Log ud

tupsy Nybegynder

04. februar 2003 - 02:19 Der er 5 kommentarer og
1 løsning

Random udtræk og indsæt status.

Jeg her en tabel : maskiner

I denne tabel har jeg 3 kolonner :
id = nøgle
Maskin_nr
Status

Det jeg gerne vil er at lave et random udtræk på maskin_nr hvor status er = 0
Den skal vælge 1 maskin nr ud og sætte status ved dette maskin nr til 1 = taget
Det skal kører via en form.

Hvordan gør jeg det???
Jeg er HELT uden ideer....

Tupsy!!

Synes godt om

hugopedersen Nybegynder

04. februar 2003 - 07:16 #1

Noget i stil med nedenstående burde kunne klare opgaven - det er taget ud af en anden sammenhæng ( udtrækning af numre til funktionærernes julekalender på min arbejdsplads :-) ) så måske skal du lige checke syntaxen en ekstra gang.

Dim lngCount As Long
Dim lngDraw As Long

Dim dbs As DAO.Database
Dim rst As DAO.Recordset

Set dbs = CurrentDb

strSQL = "SELECT Maskin_nr FROM Maskiner WHERE Status = 0;"
Set rst = dbs.OpenRecordset(strSQL)
rst.MoveFirst
rst.MoveLast
lngCount = rst.RecordCount
rst.MoveFirst
Randomize
lngDraw = Int((lngCount * Rnd) + 1)
rst.Move lngDraw
rst.Edit
rst!Status = 1
rst.Update

Synes godt om

creative86 Nybegynder

04. februar 2003 - 09:33 #2

<html>

<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<meta name="generator" content="Adobe GoLive 5">
<title>Opel</title>
</head>

<body bgcolor="#929696">
<div align="center">
Opel
<img src="../billeder/Opel/astra.jpg" width="250" height="159" border="0">
En Opel Astra
<img src="../billeder/Opel/astra2.jpg" width="250" height="200" border="0">
En anden Opal Astra
<img src="../billeder/Opel/calibra.jpg" width="250" height="95" border="0">
En Opel Calibra
<img src="../billeder/Opel/corsa.jpg" width="250" height="173" border="0">
En Opel Corsa
<img src="../billeder/Opel/manta.jpg" width="250" height="147" border="0">
En Opel Manta
<img src="../billeder/Opel/KADET.jpg" width="373" height="166" border="0">
En Opel Kadett
<img src="../billeder/Opel/vectra.jpg" width="250" height="200" border="0">
En Opel Vectra

</div>
</body>

</html>

Synes godt om

tupsy Nybegynder

04. februar 2003 - 17:38 #3

creative86 >> Øøøøh, hvorfor skriver du det du skriver???

Synes godt om

tipman Juniormester

05. februar 2003 - 21:27 #4

Et bedre forslag. Du åbner tabellen, du lukker øjnene, du scroller tilfældigt stykke eller slet ikke med musens hjul, du flytter musen lidt, du trykker nu på venstre museknap. Nu står markøren på en tilfældig post i databasen. Hvis ikke status på posten er 0, så prøver du igen. ;-)

Synes godt om

tupsy Nybegynder

11. februar 2003 - 15:32 #5

Vi er i det vittige hjørne idag hva'?? :-)

Synes godt om

tupsy Nybegynder

04. maj 2003 - 23:31 #6

Lukker..

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access	9	16/04/202620:11	21/04/202615:43
AI integreret i Access Af per2edb i Access	3	06/04/202610:42	06/04/202612:58
Autonummerering Af hlnviv i Access	2	06/03/202606:24	06/03/202607:48
stigende sortering på et Link felt Af hlnviv i Access	6	03/03/202613:18	04/03/202608:09
Access database udskriver ikke rammer korrekt Af Uvanga i Access	8	18/11/202500:24	18/11/202510:25

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS