Tá mé ag baint úsáide as Uirlisí Bileog Oibre, Cruthaigh Bileog Innéacs le cnaipí (VBA). Nuair a roghnaíonn mé ceann de na cnaipí ritheann an cód mar ba chóir, ach amháin, coinníonn sé ag caitheamh "Ní féidir ODBC a ghníomhachtú. Seans go bhfuil sé scriosta nó athainmnithe." earráid. Déanann sé mar an gcéanna do gach bileog. Cad í an fhadhb?? Seo a leanas an cód:
Fo GoToButton1_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("ODBC"). Gníomhachtaigh
If Err <> 0 Ansin MsgBox "Ní féidir ODBC a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton2_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("Máistir"). Gníomhachtaigh
If Err <> 0 Then MsgBox "Ní féidir an Máistir a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton3_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("GACH"). Gníomhachtaigh
If Err <> 0 Then MsgBox "Ní féidir GACH GACH a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton4_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("ÍOCTHA"). Gníomhachtaigh
If Err <> 0 Ansin MsgBox "Ní féidir PAID a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton5_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("SETTLED"). Gníomhachtaigh
If Err <> 0 Ansin MsgBox "Ní féidir SETTLED a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton6_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("DÚNTA"). Gníomhachtaigh
If Err <> 0 Ansin MsgBox "Ní féidir a ghníomhachtú DÚNTA. Seans go bhfuil sé scriosta nó athainmnithe."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton7_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("neamh-inmharthana"). Gníomhachtaigh
If Err <> 0 Ansin MsgBox "Ní féidir NON-VIABLE a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton8_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("DLÍTHIÚIL"). Gníomhachtaigh
If Err <> 0 Ansin MsgBox "Ní féidir DLÍTHIÚIL a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton9_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("ACHOIMRE"). Gníomhachtaigh
If Err <> 0 Then MsgBox "Ní féidir ACHOIMRE a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton1_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("ODBC"). Gníomhachtaigh
If Err <> 0 Ansin MsgBox "Ní féidir ODBC a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton2_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("Máistir"). Gníomhachtaigh
If Err <> 0 Then MsgBox "Ní féidir an Máistir a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton3_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("GACH"). Gníomhachtaigh
If Err <> 0 Then MsgBox "Ní féidir GACH GACH a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton4_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("ÍOCTHA"). Gníomhachtaigh
If Err <> 0 Ansin MsgBox "Ní féidir PAID a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton5_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("SETTLED"). Gníomhachtaigh
If Err <> 0 Ansin MsgBox "Ní féidir SETTLED a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton6_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("DÚNTA"). Gníomhachtaigh
If Err <> 0 Ansin MsgBox "Ní féidir a ghníomhachtú DÚNTA. Seans go bhfuil sé scriosta nó athainmnithe."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton7_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("neamh-inmharthana"). Gníomhachtaigh
If Err <> 0 Ansin MsgBox "Ní féidir NON-VIABLE a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton8_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("DLÍTHIÚIL"). Gníomhachtaigh
If Err <> 0 Ansin MsgBox "Ní féidir DLÍTHIÚIL a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh
Fo GoToButton9_Cliceáil()
Ar Lean Earráid Aghaidh
Bileoga ("ACHOIMRE"). Gníomhachtaigh
If Err <> 0 Then MsgBox "Ní féidir ACHOIMRE a ghníomhachtú. Seans gur scriosadh nó gur athainmníodh é."
Ar Earráid TéighTo 0
Fo Deireadh