Notifikationer

Markér alle som læst Log ud

schoesler Nybegynder

29. maj 2003 - 16:13 Der er 14 kommentarer og
1 løsning

Hvad skal der til for kun at køre denne kode een gang

Hvad der skal der tilføjes af kode for kun at køre den kode en gang? og evt. poppe op med en msg "denne update er kørt"

Private Sub Command0_Click()
Dim SQL1 As String
Dim SQL2 As String
Dim SQL3 As String
SQL1 = "Alter Table master add expire1 memo"
SQL2 = "Alter Table master add expire2 Text"
SQL3 = "Alter Table master add expire3 Text"
DoCmd.RunSQL SQL1
DoCmd.RunSQL SQL2
DoCmd.RunSQL SQL3
MsgBox "Funktionen er udført."
End Sub

Synes godt om

brynil Nybegynder

29. maj 2003 - 16:26 #1

Er det en update der skal kunne køres hver gang du åbner db'en eller skal du kunne konstatere om den er opdateret tidligere?

Synes godt om

schoesler Nybegynder

29. maj 2003 - 16:36 #2

Updaten skal kun køre een gang for alle, hvis man trykker på command knappen skal den fortælle at updaten er kørt

Jan

Synes godt om

brynil Nybegynder

29. maj 2003 - 16:42 #3

Så må du gemme information der kan konstatere om den er kørt. Det kan du gøre ved en gem i db'en instruktion inde fra command0_Click.

Synes godt om

brynil Nybegynder

29. maj 2003 - 16:43 #4

og så skal du selvfølgelig checke om den værdi findes i db'en inden du udfører Command0_Click!

Synes godt om

schoesler Nybegynder

29. maj 2003 - 16:46 #5

hm...

Synes godt om

terry Ekspert

29. maj 2003 - 17:46 #6

Private Sub Command0_Click()
Dim SQL1 As String
Dim SQL2 As String
Dim SQL3 As String

ON ERROR RESUME NEXT

SQL1 = "Alter Table master add expire1 memo"
SQL2 = "Alter Table master add expire2 Text"
SQL3 = "Alter Table master add expire3 Text"
DoCmd.RunSQL SQL1
DoCmd.RunSQL SQL2
DoCmd.RunSQL SQL3
MsgBox "Funktionen er udført."
End Sub

Synes godt om

terry Ekspert

29. maj 2003 - 17:47 #7

OR

Private Sub Command0_Click()
Dim SQL1 As String
Dim SQL2 As String
Dim SQL3 As String

ON ERROR EXIT SUB

SQL1 = "Alter Table master add expire1 memo"
SQL2 = "Alter Table master add expire2 Text"
SQL3 = "Alter Table master add expire3 Text"
DoCmd.RunSQL SQL1
DoCmd.RunSQL SQL2
DoCmd.RunSQL SQL3
MsgBox "Funktionen er udført."
End Sub

Synes godt om

terry Ekspert

29. maj 2003 - 17:48 #8

This is easier Jan :o)
DoCmd.RunSQL "Alter Table master add expire1 memo"

Synes godt om

brynil Nybegynder

29. maj 2003 - 18:03 #9

>>terry never seen that before ;-) - what causes the error? Identical values in the db ?

Synes godt om

schoesler Nybegynder

29. maj 2003 - 18:13 #10

'brynil' Yes the identical value cause the error

Synes godt om

brynil Nybegynder

29. maj 2003 - 18:16 #11

Oh great. I could have used that before! Thanks from me!

Synes godt om

schoesler Nybegynder

29. maj 2003 - 18:37 #12

'terry' hvorfor får jeg fejlmeddelse når der ikke er opdateret?

Private Sub Command0_Click()
On Error GoTo Update_Err

DoCmd.RunSQL "Alter Table master add expire1 text"
DoCmd.RunSQL "Alter Table master add expire2 number"
DoCmd.RunSQL "Alter Table master add expire3 memo"

MsgBox "Funktionen er udført."

Update_Err: MsgBox "Er opdateret tidligere "

End Sub

Synes godt om

nih Novice

29. maj 2003 - 22:34 #13

Private Sub Command0_Click()
On Error GoTo Update_Err

DoCmd.RunSQL "Alter Table master add expire1 text"
DoCmd.RunSQL "Alter Table master add expire2 number"
DoCmd.RunSQL "Alter Table master add expire3 memo"

MsgBox "Funktionen er udført."

' du skal ud af proceduren før errorhandlingen
exit sub

Update_Err: MsgBox "Er opdateret tidligere "

End Sub

Synes godt om

schoesler Nybegynder

29. maj 2003 - 22:41 #14

Ja, selvfølgelig. Tak for hjælpen

Synes godt om

terry Ekspert

30. maj 2003 - 17:38 #15

Thanks, also for your assistance Niels :o)

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