แสดงกระทู้

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.


Topics - nonc31

หน้า: [1]
1
ห้อง MS Access / USB DriveType มีค่าเป็น 2 (Fixed) ทำไมไม่เป็น 1 (Removable)
« เมื่อ: 22 เม.ย. 65 , 22:38:43 »
จากความตั้งใจ จะ copy ไฟล์ไปยัง USB อัตโนมัติตอนปิดโปรแกรม โดยปกติ USB ค่า DriveType=1  แต่เครื่องผมดันเป็น 2 (มองเป็นฮาร์ดดิสก์)  มีวิธิแก้ไขมั๊ยครับ หรืออาจจะเช็คค่าอื่นแทน DriveType

Function getUSBDrive()

Set fso = CreateObject("Scripting.FileSystemObject")

For Each Drive In fso.Drives
    If Drive.IsReady Then
        MsgBox Drive.DriveLetter & " - " & Drive.VolumeName & " - " & Drive.DriveType
    End If
Next
   
End Function

2
ห้อง MS Access / จะอ้างอิงค่าจาก record บน
« เมื่อ: 29 มี.ค. 65 , 17:30:44 »

3
ห้อง MS Access / Loop ในคิวรี่ที่มีเงื่อนไขพารามิเตอร์จากฟอร์มแล้ว Error ต้องแก้ไขยังไงครับ
« เมื่อ: 13 ม.ค. 65 , 15:16:49 »

4
ห้อง Ms Access อื่นๆ / แจกตัวอย่างการ Loop เพื่อลำดับ แยกตามชื่อ
« เมื่อ: 12 พ.ย. 63 , 13:41:37 »
ก่อนอื่นต้องขอขอบคุณอาจารณ์ทุกท่านนะครับ ที่ได้แก้ไขปัญหาต่างๆ ในการทำ Code  ....
สำหรับโพสนี้ ก็หวังว่าท่านที่ต้องการทำแบบผม กำลังมองหาวิธีการต่างๆนานา (เหมือนผม)
จะได้รับประโยชน์ครับ

5
ห้อง MS Access / Access เชื่อมต่อ MySQL มันช้าจัง
« เมื่อ: 04 พ.ย. 63 , 15:31:19 »
ปัจจุบันผมใช้ ODBC 8.0 เชื่อมต่อกับ MySQL 5.6 ในข้อมูลจำนวนหลักแสน-ล้าน รู้สึกว่ามันจะประมวลผลช้า  แต่สังเกตว่า Navicat ประมวลผลเร็วกว่า ไม่ทราบว่ามีวิธีอะไรยังไง  ให้ Access ประมวลผลได้ใกล้เคียง Navicat ได้บ้างครับ  มีเครื่องมือไหนพอช่วยได้บ้าง

6
ห้อง MS Access / ต้องการ Loop ชื่อตาราง ชื่อฟิลด์ โดยใช้ชื่อจากตาราง tbTarang1 ดังรูป
« เมื่อ: 14 ต.ค. 63 , 13:16:45 »

7
ห้อง MS Access / ต้องการ Loop เพื่อ update ข้อมูลจาก tb2 มายัง tb1 ดังรูป
« เมื่อ: 28 ส.ค. 63 , 11:12:22 »

8
ห้อง MS Access / เชื่อมต่อ Mysql ด้วย ODBC แถวที่เป็นตัวอักษรภาษาไทย แสดงผล #Deleted
« เมื่อ: 24 ก.ค. 62 , 11:55:21 »
เชื่อมต่อ Mysql ด้วย ODBC ฟิลด์ Username ที่เป็นตัวอักษรภาษาไทย แสดงผล #Deleted เป็นเฉพาะตารางเดียว ตารางอื่นไม่เป็นไร
มีวิธีแก้ไขยังไงครับ  ตารางเป็น InnoDB

9
ห้องสนทนาทั่วไป / Access จากเดิมรันได้ อยู่มาวันหนึ่งก็รันไม่ได้ (โปรแกรมเดิม Code เดิม)
« เมื่อ: 24 ต.ค. 61 , 11:20:21 »
ผมเคยเจอปัญหา Access จากเดิมรันได้ อยู่มาวันหนึ่งก็รันไม่ได้
(โปรแกรมเดิม/Code เดิม ปล.โปรแกรมมีการใช้ ActiveX)
ลองถอนการติดตั้งแล้วลง Access ใหม่ แบบปกติก็แล้ว แบบแอดวานด์ก็แล้ว จัดการ Registry ก็แล้ว
แต่ก็ไม่สามารถรันได้ สุดท้ายคือลงวินโดว์ใหม่ ถึงรันได้
...กรณีแบบนี้ท่านทั้งหลายมีวิธีแก้ไขอย่างไรครับ โดยที่ไม่ต้องติดตั้งวินโดว์ใหม่... :sweat:

10
ห้อง MS Access / ค้นหาไฟล์ที่ระบุแบบเจาะจง ในทุกโฟลเดอร์/สับโฟลเดอร์ หาในgoogleแต่ใช้ไม่เป็น
« เมื่อ: 14 ก.ย. 61 , 22:06:39 »
ต้องการค้นหาไฟล์ที่ระบุแบบเจาะจง เช่นต้องการค้นไฟล์ abc.doc ในทุกโฟลเดอร์/สับโฟลเดอร์ หาในgoogleแต่ใช้ไม่เป็น รันไม่ผ่าน :ouch:
มี code นึงเหมือนจะได้ รันผ่าน แต่เป็นการอ่านชื่อโฟลเดอร์ ส่วนการค้นหาไฟล์ผมไปต่อไม่เป็น :cry:

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 มีลิงค์ รบกวนขอด้วยครับ

11
ห้อง 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  ช่วยด้วยครับ

หน้า: [1]