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
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.
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.