ltc

帖子: 49
主題: 15
精華: 0
積分: 70
點名: 0
作業系統: W7
軟體版本: IE8
閱讀權限: 20
性別: 男
註冊時間: 2010-10-10
最後登錄: 2014-5-10

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-11-8 15:15 | 只看該作者

請問(執行階段錯誤 75)問題

工作表上有數個按鈕，可以執行各自表單
開啟檔案後進入執行，每個按鈕及表單都可正常執行
如果數分鐘都無執行任何動作後，再按某些按鈕
就會發生(執行階段錯誤 75)視窗
請問不知道有沒有人遇到過
或是知道如何處理
謝謝

執行階段錯誤 75.jpg (15.71 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-11-8 15:27 | 只看該作者

回復 1# ltc
路徑/檔案存取錯誤 (錯誤 75)
看不到程式碼????

TOP

ltc

中學生 Rank: 2

帖子: 49
主題: 15
精華: 0
積分: 70
點名: 0
作業系統: W7
軟體版本: IE8
閱讀權限: 20
性別: 男
註冊時間: 2010-10-10
最後登錄: 2014-5-10

論壇贊助勳章

3^#

發表於 2010-11-8 19:07 | 只看該作者

目前好像只有一台發生，將再多測幾台電腦試試

TOP

ltc

中學生 Rank: 2

帖子: 49
主題: 15
精華: 0
積分: 70
點名: 0
作業系統: W7
軟體版本: IE8
閱讀權限: 20
性別: 男
註冊時間: 2010-10-10
最後登錄: 2014-5-10

論壇贊助勳章

4^#

發表於 2010-11-8 19:08 | 只看該作者

再跟各位大大報告

TOP

ltc

中學生 Rank: 2

帖子: 49
主題: 15
精華: 0
積分: 70
點名: 0
作業系統: W7
軟體版本: IE8
閱讀權限: 20
性別: 男
註冊時間: 2010-10-10
最後登錄: 2014-5-10

論壇贊助勳章

5^#

發表於 2010-11-9 18:27 | 只看該作者

這是最新測試結果，已有多台電腦發生

另外補充：
1.黃色部分是出問題的程式碼
2.出現(路徑或檔案存取錯誤)視窗，是因為我點選了左邊視窗內的(工作時數輸入表單2)的結果
3.左邊視窗內的(工地基本資料表單)可點選
4.左邊視窗內的(工作時數輸入表單)點選後會出現，(路徑或檔案存取錯誤)視窗
5.關閉檔案後，再重新開啟，程式還是可以正常運作。
6.什麼時候會發生呢？>>使用者開啟檔案後數分鐘or十幾分鐘內未使用鍵盤及滑鼠就會發生

再麻煩各位大大解惑了
謝謝

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2010-11-9 18:31 | 只看該作者

回復 5# ltc
看不到完整程式碼如何幫你????

TOP

ltc

中學生 Rank: 2

帖子: 49
主題: 15
精華: 0
積分: 70
點名: 0
作業系統: W7
軟體版本: IE8
閱讀權限: 20
性別: 男
註冊時間: 2010-10-10
最後登錄: 2014-5-10

論壇贊助勳章

7^#

發表於 2010-11-9 19:05 | 只看該作者

不好意思，這是程式碼，不曉得夠不夠

另外補充：
1.並不是每台電腦都會發生
2.每台電腦安裝的軟體都差不多，也有剛裝好的
3.螢幕保護模式已關閉，電源設定一直開啟

Private Sub 工作時數輸入2_Click()
Call 工作時數輸入表單2_設定
工作時數輸入表單2.Show
End Sub

Sub 工作時數輸入表單2_設定()
Dim IA As Integer                      '整數 -32,768~32767

工作時數輸入表單2.年月選單區.Clear

For IA = Sheets("TEMP").Range("F9").Value To 11 Step -1
      工作時數輸入表單2.年月選單區.AddItem Sheets("TEMP").Range("F" & IA).Value
Next IA
工作時數輸入表單2.年月選單區.ListIndex = 0

Call 更新TEMP員工資料

工作時數輸入表單2.員工編號.Clear

With 工作時數輸入表單2.員工編號
      .Clear
      '.ColumnCount = MYRS.Fields.Count - 1
      .ColumnCount = 2
      .ColumnWidths = "1.5cm;3cm"

      For IA = 11 To Sheets("TEMP").Range("I9").Value
         .AddItem
         .List(IA - 11, 0) = Sheets("TEMP").Range("I" & IA).Value
         .List(IA - 11, 1) = Sheets("TEMP").Range("J" & IA).Value
      Next IA
End With

更新TEMP工地資料
With 工作時數輸入表單2.工地選單
      .Clear
      '.ColumnCount = MYRS.Fields.Count - 1
      .ColumnCount = 2
      .ColumnWidths = "1.5cm;3cm"

      For IA = 11 To Sheets("TEMP").Range("R9").Value
         .AddItem
         .List(IA - 11, 0) = Sheets("TEMP").Range("R" & IA).Value
         .List(IA - 11, 1) = Sheets("TEMP").Range("S" & IA).Value
      Next IA

End With

工作時數輸入表單2.時段.Clear
工作時數輸入表單2.時段.AddItem "日A"
工作時數輸入表單2.時段.AddItem "日B"
工作時數輸入表單2.時段.AddItem "上午"
工作時數輸入表單2.時段.AddItem "下午"
工作時數輸入表單2.時段.AddItem "加A"
工作時數輸入表單2.時段.AddItem "加B"
工作時數輸入表單2.時段.AddItem "加班"
工作時數輸入表單2.時段.ListIndex = 0

With 工作時數輸入表單2.起始時分
      .Clear
      .AddItem "0000"
      .AddItem "0030"
      .AddItem "0100"
      .AddItem "0130"
      .AddItem "0200"
      .AddItem "0230"
      .AddItem "0300"
      .AddItem "0330"
      .AddItem "0400"
      .AddItem "0430"
      .AddItem "0500"
      .AddItem "0530"
      .AddItem "0600"
      .AddItem "0630"
      .AddItem "0700"
      .AddItem "0730"
      .AddItem "0800"
      .AddItem "0830"
      .AddItem "0900"
      .AddItem "0930"
      .AddItem "1000"
      .AddItem "1030"
      .AddItem "1100"
      .AddItem "1130"
      .AddItem "1200"
      .AddItem "1230"
      .AddItem "1300"
      .AddItem "1330"
      .AddItem "1400"
      .AddItem "1430"
      .AddItem "1500"
      .AddItem "1530"
      .AddItem "1600"
      .AddItem "1630"
      .AddItem "1700"
      .AddItem "1730"
      .AddItem "1800"
      .AddItem "1830"
      .AddItem "1900"
      .AddItem "1930"
      .AddItem "2000"
      .AddItem "2030"
      .AddItem "2100"
      .AddItem "2130"
      .AddItem "2200"
      .AddItem "2230"
      .AddItem "2300"
      .AddItem "2330"
      .AddItem "2400"
End With
工作時數輸入表單2.起始時分.ListIndex = 16

With 工作時數輸入表單2.終止時分
      .Clear
      .AddItem "0000"
      .AddItem "0030"
      .AddItem "0100"
      .AddItem "0130"
      .AddItem "0200"
      .AddItem "0230"
      .AddItem "0300"
      .AddItem "0330"
      .AddItem "0400"
      .AddItem "0430"
      .AddItem "0500"
      .AddItem "0530"
      .AddItem "0600"
      .AddItem "0630"
      .AddItem "0700"
      .AddItem "0730"
      .AddItem "0800"
      .AddItem "0830"
      .AddItem "0900"
      .AddItem "0930"
      .AddItem "1000"
      .AddItem "1030"
      .AddItem "1100"
      .AddItem "1130"
      .AddItem "1200"
      .AddItem "1230"
      .AddItem "1300"
      .AddItem "1330"
      .AddItem "1400"
      .AddItem "1430"
      .AddItem "1500"
      .AddItem "1530"
      .AddItem "1600"
      .AddItem "1630"
      .AddItem "1700"
      .AddItem "1730"
      .AddItem "1800"
      .AddItem "1830"
      .AddItem "1900"
      .AddItem "1930"
      .AddItem "2000"
      .AddItem "2030"
      .AddItem "2100"
      .AddItem "2130"
      .AddItem "2200"
      .AddItem "2230"
      .AddItem "2300"
      .AddItem "2330"
      .AddItem "2400"
End With
工作時數輸入表單2.終止時分.ListIndex = 35
工作時數輸入表單2.時數.Value = 8
End Sub

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2010-11-9 19:18 | 只看該作者

回復 7# ltc
對不起還是請你附上檔案好了解

TOP

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 172
主題: 39
精華: 20
積分: 177
點名: 0
作業系統: Microsoft Windows XP
軟體版本: Microsoft Office 2003
閱讀權限: 100
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2023-3-19

論壇貢獻勳章帥哥勳章

9^#

發表於 2010-11-9 20:17 | 只看該作者

本帖最後由 Min 於 2010-11-9 20:18 編輯

"工作時數輸入表單2.年月選單區.Clear" 出錯
那你的"年月選單區" 是Sheet嗎? 還是object? ....
檢查一下"年月選單區"吧~

若是我回答，使您滿意，請您讓我知道！
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

ltc

中學生 Rank: 2

帖子: 49
主題: 15
精華: 0
積分: 70
點名: 0
作業系統: W7
軟體版本: IE8
閱讀權限: 20
性別: 男
註冊時間: 2010-10-10
最後登錄: 2014-5-10

論壇贊助勳章

10^#

發表於 2010-11-9 21:01 | 只看該作者

工作時數輸入表單2 是 UserForm
年月選單區是 ComboBox

感覺上不像是程式碼的關係
如是程式碼的關係如何解釋以下幾個疑點；
1.相同程式為何有些電腦可執行沒有問題
2.我覺得最大疑點是5樓的圖，其中的，出現(路徑或檔案存取錯誤)視窗，是因為我點選了左邊視窗內的(工作時數輸入表單2)的結果

為何我點選了左邊視窗內的(工作時數輸入表單2)，確出現(路徑或檔案存取錯誤)視窗，這應該跟程式碼沒有關係阿(PS.檔案關閉後再開啟就可以進入(工作時數輸入表單2))，真奇怪

程式碼錯誤應該不會這樣吧？

TOP