UserForm表單相關問題

v03586

小弟嘗試撰寫一個庫存管理系統
希望使用者操作介面就在Main 這個資料欄就好

我目前寫出來的程式碼需要 跳到FMC Input Database 資料欄才能執行

Q1: 請問大大們如何修改呢?


我資料庫儲位的建立是用最笨的方式...(新手)
目前只先寫出卡類input 如修改無誤 應該只是複製貼上到另一個專線 input功能!!...

瀏覽完整內容，請先 註冊 或 登入會員

rr09192084

1. Private Sub UserForm_Initialize()
   
2.    Worksheets("Main").Activate  '停留在MAIN資料表
   
3.    OptionButton1.Value = True   '預設是選201，這是可以更改的
   
4. End Sub
   
5. 
   
6. Private Sub CommandButton2_Click()
   
7.    Unload Me     '點取消即離開程式
   
8. End Sub
   
9. 
   
10. Private Sub CommandButton1_Click()
    
11.    '--------------------------------------------------------
    
12.    '這段程式是檢查資料是否輸入完整
    
13.    Dim obj As Object
    
14.    For Each obj In Me.Controls
    
15.      If TypeName(obj) = "TextBox" Then
    
16.         If obj.Text = "" Then
    
17.            MsgBox obj.Tag + " 資料未輸入，這是必填的欄位！"
    
18.            Exit Sub
    
19.         End If
    
20.      End If
    
21.    Next
    
22.    '這段程式是檢查資料是否輸入完整
    
23.    '--------------------------------------------------------
    
24.    
    
25.    '--------------------------------------------------------
    
26.    '這段程式取出選取的OptionButton的值
    
27.    Dim MovementType As String
    
28.    For Each obj In Me.Controls
    
29.      If TypeName(obj) = "OptionButton" Then
    
30.         If obj.Value = True Then
    
31.            MovementType = obj.Caption
    
32.         End If
    
33.      End If
    
34.    Next
    
35.    '這段程式取出選取的OptionButton的值
    
36.    '--------------------------------------------------------
    
37.    '這段程式找到FMC Input Database的資料空白列(就是要放資料的地方)
    
38.    Dim i As Integer
    
39.    i = 1
    
40.    Do
    
41.      i = i + 1
    
42.    Loop While Worksheets("FMC Input Database").Cells(i, 1) <> ""
    
43.    '這段程式找到FMC Input Database的資料空白列(就是要放資料的地方)
    
44.    '--------------------------------------------------------
    
45.    '這段程式將資料填入FMC Inut Database
    
46.    Worksheets("FMC Input Database").Cells(i, 1) = MovementType
    
47.    Worksheets("FMC Input Database").Cells(i, 2) = TextBox1.Text
    
48.    TextBox1.Text = ""  '可以自行決定是否清除資料
    
49.    Worksheets("FMC Input Database").Cells(i, 3) = TextBox2.Text
    
50.    TextBox2.Text = ""  '可以自行決定是否清除資料
    
51.    Worksheets("FMC Input Database").Cells(i, 4) = TextBox3.Text
    
52.    TextBox3.Text = ""  '可以自行決定是否清除資料
    
53.    Worksheets("FMC Input Database").Cells(i, 5) = TextBox4.Text
    
54.    TextBox4.Text = ""  '可以自行決定是否清除資料
    
55.    Worksheets("FMC Input Database").Cells(i, 6) = TextBox5.Text
    
56.    TextBox5.Text = ""  '可以自行決定是否清除資料
    
57.    Worksheets("FMC Input Database").Cells(i, 7) = Now()
    
58.    '這段程式將資料填入FMC Inut Database
    
59.    '--------------------------------------------------------
    
60. End Sub

複製代碼

試試看吧，寫程式要有一些邏輯思考的能力，加油喔！
...

瀏覽完整內容，請先 註冊 或 登入會員

rr09192084

每一個TextBox的Tag屬性資料要在設計界面裡指定
或是寫在程式的Initialize區段裡，如

1. TextBox1.Tag = "Package"
   
2. TextBox2.Tag = "MO"
   
3. '......
   
4. '......

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

v03586

修改完成~~~~~~

1. Private Sub CommandButton1_Click()
   
2. Dim k&, Arr(1 To 7)　
   
3. For k = 1 To 5
   
4. 　　If k <= 3 Then If Me("OptionButton" & k) = True Then Arr(1) = Me("OptionButton" & k).Caption
   
5. 　　Arr(k + 1) = Me("TextBox" & k)
   
6. 　　
   
7. 　　If Arr(k + 1) = "" Then Arr(1) = "": Exit For
   
8. 
   
9. Next k
   
10. 　
    
11. If Arr(1) = "" Then MsgBox ("資料未輸入完整， 『 * 』 必須輸入" & vbCrLf & _
    
12. 　　　　　　"Data is not enter the full , 『 * 』 you must fill "): Exit Sub
    
13. 
    
14. 
    
15. Arr(7) = Now　
    
16. 
    
17. 
    
18. Sheets("FMC Input Database").Cells(Rows.Count, "A").End(xlUp)(2).Resize(1, 7) = Arr
    
19. 
    
20. 　
    
21. Unload Me
    
22. End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

Jeepluo

你可以測著用DEBUG功能偵測在那一行掛掉，再監控所帶出的參數或值是否正確，學著自己偵錯，不然再發生問題，別人也只能解決你當前的問題了。