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.
det er ikke fordi der er noget galt med basen, det er simpelthen min access som ikke virker...... men hvorfor, ved jeg ikke.... den virkede fint på et tidspunkt....
Jeg ved ikke hvad der er galt men en fejlmelding på -1104 er noget med fejl på systemet.
Her er hvad jeg ville gøre:
1- Prøv at reparere databasen, enten via ODBC fra kontrol-panelet eller via Access.
2a- Hvis du bruger Access2000, så prøv at installere SR-1 2b- Hvis du bruger Access97, så prøv at installere SR-2
Før du går i gang kan du jo prøve at se om du kan få ekstra hjælp med følgende funktion:
Function TabellenFejlForAccessOgJet() As Boolean Dim dbs As Database, tdf As TableDef, fld As Field Dim rst As Recordset, lngCode As Long Dim strAccessErr As String Const conAppObjectError = "Programdefineret eller objektdefineret fejl"
On Error GoTo Error_TabellenFejlForAccessOgJet ' Opret tabellen Fejl med felterne Fejlnummer og Fejlbeskrivelse. Set dbs = CurrentDb Set tdf = dbs.CreateTableDef("FejlForAccessOgJet") Set fld = tdf.CreateField("Fejlkode", dbLong)
tdf.Fields.Append fld Set fld = tdf.CreateField("Fejlstreng", dbMemo) tdf.Fields.Append fld
dbs.TableDefs.Append tdf ' Åbn et postsæt i tabellen Fejl. Set rst = dbs.OpenRecordset("FejlForAccessOgJet") ' Udfør en løkke i fejlkoder. For lngCode = 0 To 3500 On Error Resume Next ' Hæv hver fejl. strAccessErr = AccessError(lngCode) DoCmd.Hourglass True ' Spring over fejlnumre uden associerede strenge. If strAccessErr <> "" Then
' Spring over koder, der fremkalder program- eller objektdefinerede fejl. If strAccessErr <> conAppObjectError Then ' Føj hver fejlkode og -streng til fejltabel. rst.AddNew rst!Fejlkode = lngCode ' Føj streng til et felt af typen Notat (Memo). rst!Fejlstreng.AppendChunk strAccessErr rst.Update End If End If Next lngCode ' Luk postsættet. rst.Close DoCmd.Hourglass False RefreshDatabaseWindow
MsgBox "Access- og Jet-fejltabellen er oprettet." AccessAndJetErrorsTable = True
Exit_TabellenFejlForAccessOgJet: Exit Function
Error_TabellenFejlForAccessOgJet: MsgBox Err & ": " & Err.Description TabellenFejlForAccessOgJet = False Resume Exit_TabellenFejlForAccessOgJet End Function
Hvis din Access ikke virker er den nemmeste løsning som regel at geninstallere programmet. Hvis du bruger Access2000 kan du også bruge "find og ret fejl" funktionen.
Til ikuyuku, 2a: SR-1 til Office2K er ikke kommet på dansk endnu - men rådet er selvfølgelig fint hvis man benytter US/UK Office.
Synes godt om
Ny brugerNybegynder
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.