Notifikationer

Markér alle som læst Log ud

dane022 Seniormester

12. juli 2013 - 10:09 Der er 5 kommentarer og
1 løsning

Spring over kode ved fejl

I et udpluk af en makro, har jeg denne kode:

strDescrip = objRecordsetAD.Fields("description")
For i = 0 To UBound(strDescrip)
strUafd = strDescrip(i)
Next
Range("bruger_afdeling") = strUafd

Koden henter afdelingsnavnet fra Active Directory (AD). Problemet opstår når afdelingsnavnet ikke er udfyldt i AD, så vil jeg have den at hente objRecordsetAD.Fields("department")

Hvordan skal koden se ud hvis den skal springe hele delen med strdescrip over og istedet indsætte bruge Range("bruger_afdeling") = objRecordsetAD.Fields("department") ?

Synes godt om

dane022 Seniormester

12. juli 2013 - 10:10 #1

Rettelse: Hvordan skal koden se ud hvis den skal springe hele delen med strdescrip over i tilfælde af fejl og istedet indsætte bruge Range("bruger_afdeling") = objRecordsetAD.Fields("department") ?

Synes godt om

MadsHaupt Juniormester

12. juli 2013 - 10:20 #2

Hvis du vil havde programmet til at springe over koden når der opstår fejl, så kan du bruge On Error Resume Next.

Code:

Public Class Form1

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
End Sub
End Class

Synes godt om

dane022 Seniormester

14. juli 2013 - 14:25 #3

Hvor skal koden stå?

Synes godt om

MadsHaupt Juniormester

14. juli 2013 - 14:37 #4

Du skal bare skrive On Error Resume Next i starten af funktion (Du kan ikke både havde Try og On Error).

Synes godt om

dane022 Seniormester

14. juli 2013 - 15:07 #5

Jeg har prøvet on error resume next, men problemet er at den efterlader feltet blankt.
Det er sat op på den måde at koden henter Department til Range("bruger_afdeling") først og så er det meningen at hvis der er error i Description, så skal det ikke hentes og Department skal blive stående.

Det den gør nu, er at selvom koden skal springe Description over, så gør den alligevel noget så Range("bruger_afdeling") bliver blankt

Synes godt om

MadsHaupt Juniormester

14. juli 2013 - 15:16 #6

Så kan du bruge Try Catch.

Kode eksampel:

Try
'Her skal koden stå.
Catch ex As Exception
'Her skal der stå, det den skal gøre hvis der opstår fejl.
'Fejl meddelsen står i ex.Message.
End Try

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

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel	2	I går 10:22	I går 11:47
Stempel ur start og stop Af lurup i Excel	2	23/03/202613:24	I går 10:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel	4	04/03/202617:11	06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel	3	19/02/202614:23	20/02/202608:26

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