18. december 2009 - 16:33Der er
10 kommentarer og 1 løsning
Hænger i Kombinationsboks
Jeg har Vista og Access 2007 Vi har 3 maskiner hvorfra der "køres" en applikation med en kombinationsboks tilslutted en DB tabel. Når kombinationsboxen er tilgået skal programmet springe til næste boks. Det virker på de 2 maskiner men ikke på den tredie. Hvad kan der være galt????
Her er koderne:
Private Sub FirmaNavn_Boks_AfterUpdate()
Dim x As String, y As String, z As String On Error GoTo HvisFejl
' Søg efter den post, der svarer til kontrolelementet. Forms![Produkt].FilterOn = False Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[FirmaId] = " & Str(Nz(Me![FirmaNavn_Boks], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark Me.Refresh
AfslutFejl: Exit Sub HvisFejl: x = "Fejl i: Dokumentation FirmaNavn_Boks_AfterUpdate" y = "Fejlkode: " & Err.Number z = "Beskrivelse: " & Err.Description MsgBox x & Chr(10) & y & Chr(10) & z Resume AfslutFejl
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
Jeg har nu kun dette nedenfor - men det hjælper ikke. Den ene maskine viser ikke data i databasen. De 2 andre viser dataene
Private Sub FirmaNavn_Boks_AfterUpdate()
Dim x As String, y As String, z As String
' Søg efter den post, der svarer til kontrolelementet. Forms![Produkt].FilterOn = False Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[FirmaId] = " & Str(Nz(Me![FirmaNavn_Boks], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark Me.Refresh
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.