Rwy'n defnyddio'r Offer Taflen Waith, Creu Taflen Fynegai gyda botymau (VBA). Pan fyddaf yn dewis un o'r botymau mae'r cod yn rhedeg fel y dylai, ac eithrio, mae'n dal i daflu "Methu actifadu ODBC. Efallai ei fod wedi'i ddileu neu ei ailenwi." gwall. Mae'n gwneud yr un peth ar gyfer pob dalen. Beth yw'r broblem?? Mae'r cod fel a ganlyn:
Is-GoToButton1_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("ODBC"). Activate
If Err <> 0 Yna MsgBox "Methu actifadu ODBC. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton2_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("Meistr"). Activate
If Err <> 0 Then MsgBox "Methu actifadu Master. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton3_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("PAWB"). Ysgogi
If Err <> 0 Then MsgBox "Methu actifadu POB UN. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton4_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("TALWYD"). Ysgogi
If Err <> 0 Yna MsgBox "Methu actifadu PAID. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton5_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("SETLED"). Activate
If Err <> 0 Yna MsgBox "Methu actifadu SETTLED. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton6_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("CAU"). Ysgogi
If Err <> 0 Yna MsgBox "Methu actifadu AR GAU. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton7_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Dalennau ("AN-HYFYW"). Ysgogi
If Err <> 0 Yna MsgBox "Methu actifadu ANHYGOEL. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton8_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("CYFREITHIOL"). Ysgogi
If Err <> 0 Yna MsgBox "Methu actifadu CYFREITHIOL. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton9_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("CRYNODEB"). Ysgogi
If Err <> 0 Then MsgBox msgstr "Methu actifadu CRYNODEB. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton1_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("ODBC"). Activate
If Err <> 0 Yna MsgBox "Methu actifadu ODBC. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton2_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("Meistr"). Activate
If Err <> 0 Then MsgBox "Methu actifadu Master. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton3_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("PAWB"). Ysgogi
If Err <> 0 Then MsgBox "Methu actifadu POB UN. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton4_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("TALWYD"). Ysgogi
If Err <> 0 Yna MsgBox "Methu actifadu PAID. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton5_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("SETLED"). Activate
If Err <> 0 Yna MsgBox "Methu actifadu SETTLED. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton6_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("CAU"). Ysgogi
If Err <> 0 Yna MsgBox "Methu actifadu AR GAU. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton7_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Dalennau ("AN-HYFYW"). Ysgogi
If Err <> 0 Yna MsgBox "Methu actifadu ANHYGOEL. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton8_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("CYFREITHIOL"). Ysgogi
If Err <> 0 Yna MsgBox "Methu actifadu CYFREITHIOL. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End
Is-GoToButton9_Cliciwch()
Ar Ail-ddechrau Gwall Nesaf
Taflenni ("CRYNODEB"). Ysgogi
If Err <> 0 Then MsgBox msgstr "Methu actifadu CRYNODEB. Mae'n bosib ei fod wedi ei ddileu neu ei ailenwi."
Ar Gwall Ewch i 0
Is-End