12
返回列表 上一主題 發帖

[發問] call 模組後符合條件時，如何停止程式碼執行?

reangame

帖子
66 
主題
16 
精華
0 
積分
99 
點名
0  
作業系統
Win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-12 
最後登錄
2023-10-26 
11# 跳轉到 »
發表於 2014-5-25 22:46 | 只看該作者
本帖最後由 reangame 於 2014-5-25 22:48 編輯

回復 10# c_c_lai

c_c_lai大大，您好：
經測試您提供的程式碼後出現錯誤，如下圖：
5555.jpg
錯誤出現在以下程式碼：
  1. Private Sub ComboBox2_Change()
  2.     ComboBox1.Clear
  3.     rday = Day((DateSerial(ComboBox3.Text, ComboBox2.Text + 1, 1) - 1))
  4.     For i = 1 To rday
  5.         ComboBox1.AddItem i
  6.     Next i
  7.     ComboBox1.Text = Day(Date)
  8.     Me.Label1.Caption = week
  9. End Sub
複製代碼
程式碼錯誤出現在第8行的week，
請您再指導一下！
我是斯多

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
12#
發表於 2014-5-26 07:27 | 只看該作者
本帖最後由 c_c_lai 於 2014-5-26 07:28 編輯

回復 11# reangame
你的 week() 函數並沒有帶入引數之故。
  1. Function week(Text3 As String, Text2 As String, Text1 As String) As String
  2.     week = Format(DateSerial(Text3, Text2, Text1), "[$-404]aaaa;@")
  3. End Function
複製代碼
舉例：
  1.     Me.Label1.Caption = week(ComboBox3.Text,ComboBox2.Text,ComboBox1.Text)
  2.     '   ComboBox3.Text 等為引入值，亦即可為任何之字串引數，或許它為不同表單之 "選擇收盤日期B.ComboBoxA.Text"
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
13#
發表於 2014-5-26 16:52 | 只看該作者
回復 9# reangame

表單中的程序，如下：
Function week() ......
還是很想知道表單中，程序所產生的值有什麼辦法可以讓模組直接取用???


釐清一下
tutu為模組中function，week為表單(選擇收盤日期)中function
要在tutu中呼叫week，需要前面掛上哪一個表單
如:
If 選擇收盤日期.week = "星期六" Or 選擇收盤日期.week = "星期日" Or md = "" Then

TOP

reangame

帖子
66 
主題
16 
精華
0 
積分
99 
點名
0  
作業系統
Win7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-12 
最後登錄
2023-10-26 
14#
發表於 2014-5-27 22:06 | 只看該作者
回復 12# c_c_lai
回復 13# stillfish00

c_c_lai大大、stillfish00大大：
不好意思昨天出差去了，沒辦法上網，
依照stillfish00大大所說的：在week前面加上表單名稱就抓取的到week的值了，
原來就這麼簡單，真是汗顏  =.=....
不過，也更加深了我的印象，還是很感謝兩位大大的指導，感謝唷！
我是斯多

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
12
返回列表 上一主題