1
ห้อง MS Access / ต้องการ Loop ชื่อตาราง ชื่อฟิลด์ โดยใช้ชื่อจากตาราง tbTarang1 ดังรูป
« เมื่อ: 14 ต.ค. 63 , 13:16:45 »
แสดงกระทู้
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
หน้า: [1]
2
ห้อง MS Access / ต้องการ Loop เพื่อ update ข้อมูลจาก tb2 มายัง tb1 ดังรูป
« เมื่อ: 28 ส.ค. 63 , 11:12:22 »
3
ห้อง MS Access / เชื่อมต่อ Mysql ด้วย ODBC แถวที่เป็นตัวอักษรภาษาไทย แสดงผล #Deleted
« เมื่อ: 24 ก.ค. 62 , 11:55:21 »
เชื่อมต่อ Mysql ด้วย ODBC ฟิลด์ Username ที่เป็นตัวอักษรภาษาไทย แสดงผล #Deleted เป็นเฉพาะตารางเดียว ตารางอื่นไม่เป็นไร
มีวิธีแก้ไขยังไงครับ ตารางเป็น InnoDB
มีวิธีแก้ไขยังไงครับ ตารางเป็น InnoDB
4
ห้องสนทนาทั่วไป / Access จากเดิมรันได้ อยู่มาวันหนึ่งก็รันไม่ได้ (โปรแกรมเดิม Code เดิม)
« เมื่อ: 24 ต.ค. 61 , 11:20:21 »
ผมเคยเจอปัญหา Access จากเดิมรันได้ อยู่มาวันหนึ่งก็รันไม่ได้
(โปรแกรมเดิม/Code เดิม ปล.โปรแกรมมีการใช้ ActiveX)
ลองถอนการติดตั้งแล้วลง Access ใหม่ แบบปกติก็แล้ว แบบแอดวานด์ก็แล้ว จัดการ Registry ก็แล้ว
แต่ก็ไม่สามารถรันได้ สุดท้ายคือลงวินโดว์ใหม่ ถึงรันได้
...กรณีแบบนี้ท่านทั้งหลายมีวิธีแก้ไขอย่างไรครับ โดยที่ไม่ต้องติดตั้งวินโดว์ใหม่...
(โปรแกรมเดิม/Code เดิม ปล.โปรแกรมมีการใช้ ActiveX)
ลองถอนการติดตั้งแล้วลง Access ใหม่ แบบปกติก็แล้ว แบบแอดวานด์ก็แล้ว จัดการ Registry ก็แล้ว
แต่ก็ไม่สามารถรันได้ สุดท้ายคือลงวินโดว์ใหม่ ถึงรันได้
...กรณีแบบนี้ท่านทั้งหลายมีวิธีแก้ไขอย่างไรครับ โดยที่ไม่ต้องติดตั้งวินโดว์ใหม่...
5
ห้อง MS Access / ค้นหาไฟล์ที่ระบุแบบเจาะจง ในทุกโฟลเดอร์/สับโฟลเดอร์ หาในgoogleแต่ใช้ไม่เป็น
« เมื่อ: 14 ก.ย. 61 , 22:06:39 »
ต้องการค้นหาไฟล์ที่ระบุแบบเจาะจง เช่นต้องการค้นไฟล์ abc.doc ในทุกโฟลเดอร์/สับโฟลเดอร์ หาในgoogleแต่ใช้ไม่เป็น รันไม่ผ่าน 
มี code นึงเหมือนจะได้ รันผ่าน แต่เป็นการอ่านชื่อโฟลเดอร์ ส่วนการค้นหาไฟล์ผมไปต่อไม่เป็น
Private Sub Command3_Click()
Dim MyPath, MyName As String
MyPath = "C:\Program Files (x86)\"
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
' Display entry only if it's a directory.
MsgBox MyName
End If
MyName = Dir() ' Get next entry.
Loop
End Sub
ใครมี Code มีลิงค์ รบกวนขอด้วยครับ
มี code นึงเหมือนจะได้ รันผ่าน แต่เป็นการอ่านชื่อโฟลเดอร์ ส่วนการค้นหาไฟล์ผมไปต่อไม่เป็น
Private Sub Command3_Click()
Dim MyPath, MyName As String
MyPath = "C:\Program Files (x86)\"
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
' Display entry only if it's a directory.
MsgBox MyName
End If
MyName = Dir() ' Get next entry.
Loop
End Sub
ใครมี Code มีลิงค์ รบกวนขอด้วยครับ
6
ห้อง MS Access / ผมต้องการเปลี่ยนฟิลด์ text ให้เป็น Integer แต่ไม่ได้
« เมื่อ: 31 ส.ค. 61 , 20:04:05 »
Private Sub Command0_Click()
DoCmd.SetWarnings False
Dim db As DAO.Database
Dim tbl As TableDef
Dim fld As DAO.Field
Dim strSQL As String
Set db = CurrentDb
strSQL = "ALTER TABLE testFieldType ALTER COLUMN fieldA Integer;"
db.Execute strSQL
Set fld = Nothing
Set tbl = Nothing
Set db = Nothing
End Sub
ผลออกมามันเป็น Long Integer ทำไมมันไม่เป็น Integer ช่วยด้วยครับ
DoCmd.SetWarnings False
Dim db As DAO.Database
Dim tbl As TableDef
Dim fld As DAO.Field
Dim strSQL As String
Set db = CurrentDb
strSQL = "ALTER TABLE testFieldType ALTER COLUMN fieldA Integer;"
db.Execute strSQL
Set fld = Nothing
Set tbl = Nothing
Set db = Nothing
End Sub
ผลออกมามันเป็น Long Integer ทำไมมันไม่เป็น Integer ช่วยด้วยครับ
หน้า: [1]