PDA

View Full Version : นำค่าตัวแปรจาก UserForm ไปใช้ใน Module ไม่ได้



aaaaaaaaa
15 Jul 2007, 02:41
ตัวอย่างโค้ดใน UserForm1 บางส่วน
Sub Test()
'CbB = ComboBox ที่ 1 ถึง 3 ใช้รับค่าข้อมูลชนิดวันที่
Static DD: DD = CbB1.Value: Static MM: MM = CbB2.Value: Static YY: YY = Right(CbB3.Value, 2) : Static PathName: Static File1
PathName = "C:\RGInter\Input"
File1 = Dir(PathName & "\" & DD & MM & YY.txt")
UserForm1.Hide
.
.
.
ตัดไปที่โค้ดใน Module1 เลยนะครับ
.
.
.
If UserForm1.Test.File1 = "" Then MsgBox "..."
.
.
..............................................................................
ปัญหาก็คือ ใน Module1 ไม่รู้จักค่าตัวแปร File1 ของ UserFrom1 ไม่ทราบว่าต้องเขียนโค้ดอย่างไรจึงจะสามารถในงานตัวแปร File1 ในขณะรันโปรแกรมอยู่ใน Module1 ได้ ขอบคุณครับ

ittaVB
18 Jul 2007, 10:49
ประกาศตัวแปร File1 ไว้ยังไงครับ ถ้าเป็น local อาจจะไม่รู้จัก น่าจะเป็น global ครับ
Global File1 As String
และถ้า File1 ของคุณเป็นชื่อไฟล์ ที่คุณเขียนมา
File1 = Dir(PathName & "\" & DD & MM & YY.txt")
ต้องเป็น
File1 = Dir(PathName & "\" & DD & MM & YY & ".txt")
เพิ่มที่เป็นสีแดงเข้าไปถึงจะเป็นชื่อไฟล์ครับ
ลองดูนะครับ

aaaaaaaaa
19 Jul 2007, 21:21
ขอบคุณครับ แต่ว่ายังไม่ได้ผลครับ
ขอรบกวนผู้รู้แนะนำเพิ่มเติมหรือเป็นแนวทางแบบอื่นให้ด้วยครับ:confused::confused::confused: