12
返回列表 上一主題 發帖

[發問] TEXTBOX保留輸入過的字元

apao2000

帖子
21 
主題
6 
精華
0 
積分
27 
點名
0  
作業系統
Window 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-3-6 
最後登錄
2020-7-24 
11# 跳轉到 »
發表於 2014-3-13 18:06 | 只看該作者
回復  apao2000
Hsieh 發表於 2014-3-13 15:54



    Thank you Hsieh的回覆，我所的方法是 commandbutton_click() 裡面加多一行 Me.TextBox1.Value = "" 都做到我的效果
   但又有另一個問題就是同樣commandbutton_click() 寫入以下程式，但點了ok後仍會執行print out動作，如何才可按了ok就停止，可讓我做回上一個動作，我太多問題了請各大大見諒
  If Sheet1.Cells(1,1) = "" Then
  MsgBox "Please choose location!", vbOKonly
  End If

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
257  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-28 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
12#
發表於 2014-3-13 18:27 | 只看該作者
回復 11# apao2000
只有片段程式碼，無法知道你的用意，如果單純結束這程序，加上exit sub即可
 If Sheet1.Cells(1,1) = "" Then
  MsgBox "Please choose location!", vbOKonly
exit sub
  End If
學海無涯_不恥下問

TOP

apao2000

帖子
21 
主題
6 
精華
0 
積分
27 
點名
0  
作業系統
Window 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-3-6 
最後登錄
2020-7-24 
13#
發表於 2014-3-13 21:45 | 只看該作者
Thank you Hsieh:
明天回公司試試吧，其實我一點VBA的知識都沒有，對很多語法都不懂，都是上網找一些類似的再自己改一改試試看，所以我都不太懂發問令到各位都模不着頭，但各位都盡力相助，感激萬分!

TOP

apao2000

帖子
21 
主題
6 
精華
0 
積分
27 
點名
0  
作業系統
Window 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-3-6 
最後登錄
2020-7-24 
14#
發表於 2014-3-13 22:07 | 只看該作者
回復  apao2000
只有片段程式碼，無法知道你的用意，如果單純結束這程序，加上exit sub即可
 If Sh ...
Hsieh 發表於 2014-3-13 18:27


因為我建立了三個optionbutton代表三個location "A樓" "B樓" "C樓"，然後在下面的textbox輸入入倉編號再按commandbutton指示列印 :例如802-14031301(location+in house no)
而之前如忘記點optionbutton，印出的label會沒有location的，所以想用方法阻止發生這個問題，而我做到只可以，如沒點optionbutton會彈出警告 "please choose location!"，但按ok後仍會繼續執行列印動作........希望你會明白我的意思

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
12
返回列表 上一主題