Programim dhe zhvillim, javascript, python, php, html

Gabim i kohës së ekzekutimit 91 kur hapet Access

Pra, kodi im është të krijoj një kopje të një baze të dhënash duke e mbyllur atë, duke e kopjuar me një emër të ri dhe më pas duke e rihapur origjinalin:

 Global appAccess As Object
 Sub Auto_Open()

 Dim OtherDB As Object

 sOther = "E:\6thFormExamples\"

 sName = "ActualDB.accdb"

 sFullPath = sOther & sName
 Set OtherDB = GetObject(sFullPath)
 OtherDB.Application.Quit

 sNewName = Format(Date, "d-mmmm-yyyy")
 Dim fso As Object
 Set fso = VBA.CreateObject("Scripting.FileSystemObject")

 Call fso.CopyFile(sFullPath, sOther & "Backup" & sNewName & ".accdb", True)

 'Reopen DB

  Set accessApp = CreateObject("Access.Application")
  accessApp.Visible = True

  appAccess.OpenCurrentDatabase ("E:\6thFormExamples\ActualDB.accdb")
 'Application.Quit

 End Sub

Tani e di që shtegu i skedarit është i saktë pasi e gjen për ta mbyllur herën e parë. Gabimi që marr është:

gabimi i kohës së funksionimit 91, ndryshorja e objektit ose ndryshorja me bllok nuk është caktuar.

por nuk mund të gjej se cila variabël si çdo e përdorur funksionon mirë gjatë mbylljes dhe kopjimit të bazës së të dhënave. Running office dhe Excel 2010 nëse bën ndryshim

Gabim shfaqet në linjë

appAccess.OpenCurrentDatabase....
excel vba ms-access
12.11.2015

Përgjigjet:


1

Fatkeqësitë/gabimet klasike, ju përmbysët emrin e ndryshores suaj appAccess dhe Set accessApp

Btw, nëse tashmë keni një shembull të Access të hapur, ose për të shmangur të pasurit e shumëfishta, duhet të përdorni:

    'Reopen DB
On Error Resume Next
Set appAccess = GetObject(, "Access.Application")
If Err.Number <> 0 Then
    Set appAccess = CreateObject("Access.Application")
End If
On Error GoTo 0

On Error Resume Next    

      appAccess.Visible = True
      appAccess.OpenCurrentDatabase ("E:\6thFormExamples\ActualDB.accdb")
     'Application.Quit
12.11.2015
  • Ju mund të përdorni Option Explicit On në krye të kodit tuaj për të shfaqur një gabim përpiluesi në vend të një gabimi të kohës së ekzekutimit për rastet kur shkruani gabim një emër variabli. 12.11.2015
  • Nuk mund ta besoj se nuk e vura re se e kisha gabim emrin e ndryshores, faleminderit, gjithashtu për këdo tjetër me një problem të ngjashëm, kodi i përgjigjes funksionon shkëlqyeshëm duke kontrolluar nëse Access është tashmë i hapur 16.11.2015
  • @p-k-y : Po, mos u shqetësoni për një gabim kaq të vogël, një herë kalova 2 ditë duke kaluar shumë kohë në kodin tim për të gjetur më në fund të njëjtin problem, 2 variabla me emra shumë të ngjashëm! ;) 16.11.2015
    • Materiale të reja
    Masterclass Coroutines: Kapitulli-3: Anulimi i korutinave dhe trajtimi i përjashtimeve.
    Mirë se vini në udhëzuesin gjithëpërfshirës mbi Kotlin Coroutines! Në këtë seri artikujsh, unë do t'ju çoj në një udhëtim magjepsës, duke filluar nga bazat dhe gradualisht duke u thelluar në..
    Faketojeni derisa ta arrini me të dhënat false
    A e gjeni ndonjëherë veten duke ndërtuar një aplikacion të ri dhe keni nevojë për të dhëna testimi që duken dhe duken më realiste ose një grup i madh të dhënash për performancën e ngarkesës...
    Si të përdorni kërkesën API në Python
    Kërkesë API në GitHub për të marrë depot e përdoruesve duke përdorur Python. Në këtë artikull, unë shpjegoj procesin hap pas hapi për të trajtuar një kërkesë API për të marrë të dhëna nga..
    Një udhëzues hap pas hapi për të zotëruar React
    Në këtë artikull, do të mësoni se si të krijoni aplikacionin React, do të mësoni se si funksionon React dhe konceptet thelbësore që duhet të dini për të ndërtuar aplikacione React. Learning..
    AI dhe Psikologjia — Pjesa 2
    Në pjesën 2 të serisë sonë të AI dhe Psikologji ne diskutojmë se si makineritë mbledhin dhe përpunojnë të dhëna për të mësuar emocione dhe ndjenja të ndryshme në mendjen e njeriut, duke ndihmuar..
    Esencialet e punës ditore të kodit tim VS
    Shtesat e mia të preferuara - Git Graph 💹 Kjo shtesë është vërtet e mahnitshme, e përdor përpara se të filloj të punoj për të kontrolluar dy herë ndryshimet dhe degët më të fundit, mund të..
    Pse Python? Zbulimi i fuqisë së gjithanshme të një gjiganti programues
    Në peizazhin gjithnjë në zhvillim të gjuhëve të programimit, Python është shfaqur si një forcë dominuese. Rritja e tij meteorike nuk është rastësi. Joshja e Python qëndron në thjeshtësinë,..