I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
prøv at fjerne [hændelsesprocedure] og trykke på knappen "..." så ryger du til koden. Luk VBE igen og se om det virker. Compiler din kode uden fejl? Har du noget error-handling i proceduren, som afslutter sub'en uden du opdager det?
Dim prompt As String DoCmd.SetWarnings False Response = acDataErrContinue prompt = "Denne type findes ikke i listen, ønsker du at oprette den?" If MsgBox(prompt, vbYesNo, "Typen findes ikke!") = vbYes Then DoCmd.RunSQL "INSERT into Register (feltnavn) VALUES ('" & NewData & "')" Response = acDataErrAdded End If DoCmd.SetWarnings True
Men en forudsætning er, at egenskaben "BegrænsTilListe" er sat til Ja.
1 prøv at fjerne [hændelsesprocedure] og trykke på knappen "..." 2 så ryger du til koden. Luk VBE igen og se om det virker. 3 Compiler din kode uden fejl? 4 Har du noget error-handling i proceduren, som afslutter sub'en uden du opdager det?
1,2& 3 er ok.
4 har prøvet med:
Private Sub Enhed_NotInList(NewData As String, Response As Integer) Stop End Sub
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.