06. august 2001 - 17:35Der er
4 kommentarer og 1 løsning
ingen søgeresultater v. OpenForm openform handling annuleret
Jeg har en søgeside der åbner en Form med et WHERE argument. Jeg vil gerne checke om der kommer nogle resultater af søgningen i Accessdatabasen før jeg åbner formularen der skal vise det - for at vise en \"Ingen resultater\" besked. Hvordan gør jeg det ?
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Denne kode i VBA i Access97 finder en medarbejder med et indtastet CPRNR i feltet CPRNR, og giver et tilbagesvar hvis CPRNR ikke findes. CPRNR er et tekstfelt.
Charkoder CHR$(13) og CHR$(9) svarer til henholdsvis linieskift og tab.
Dim MSG, CPRNR As String, Svar As Integer DoCmd.GoToControl \"CPRNR\" CPRNR = InputBox(Prompt:=\"Indtast Medarbejderens CPR-nummer, F.eks 1111491234.\" & Chr$(13) & Chr$(13) & \"Der må ikke indtastes bindestreg. Joker-tegn kan ikke anvendes\", Title:=\"Find medarbejder\") \'Starter funktionen \"FindRecord\" og åbner Inputbox for indtastning af CPR\' If Len(CPRNR) <> 10 Then \'Hvis antal tegn er forskellig fra 10, så...\' Svar = Msgbox(Prompt:=\"Du har indtastet CPRNR:\" & Chr$(13) & Chr$(13) & Chr$(9) & Chr$(9) & CPRNR & Chr$(13) & Chr$(13) & \"Der skal indtastes 10 tegn uden bindestreg.\" & Chr$(13) & Chr$(13) & \"Klik på Forsøg igen for at foretag ny indtastning.\" & Chr$(13) & \"klik på Annuller for at forlade procedüren.\", Title:=\"Indtastningsfejl\", Buttons:=vbRetryCancel) If Svar = vbYes Then Kommandoknap82_Click End If If Svar = vbCancel Then Exit Sub End If DoCmd.GoToControl \"CPRNR\" Else Me.RecordsetClone.FindFirst \"CPRNR= \'\" & CPRNR & \"\'\" End If While Me.RecordsetClone.NoMatch = True Svar = Msgbox(Prompt:=\"Du har indtastet CPRNR:\" & Chr$(13) & Chr$(13) & Chr$(9) & Chr$(9) & Chr$(9) & CPRNR & Chr$(13) & Chr$(13) & \"CPRNR findes ikke i databasen. Husk der må ikke indtastes bindestreg.\" & Chr$(13) & Chr$(13) & \"Klik på Forsøg igen for at foretag ny indtastning.\" & Chr$(13) & \"Klik på Annuller for at forlade procedüren.\", Title:=\"Indtastningsfejl\", Buttons:=vbRetryCancel) If Svar = vbYes Then Kommandoknap82_Click End If If Svar = vbCancel Then Exit Sub End If CPRNR = InputBox(Prompt:=\"Indtast Medarbejderens CPR-nummer, F.eks 1111491234.\" & Chr$(13) & Chr$(13) & \"Der må ikke indtastes bindestreg. Joker-tegn kan anvendes\", Title:=\"Find medarbejder\") \'Starter funktionen \"FindRecord\" og åbner Inputbox for indtastning af CPR\' If CPRNR = \"\" Then \'afslutter hvis strengen er tom End Else Me.RecordsetClone.FindFirst \"CPRNR= \'\" & CPRNR & \"\'\" End If End Wend Me.Bookmark = Me.RecordsetClone.Bookmark
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.