แสดงกระทู้

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
จากความตั้งใจ จะ 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 »

4
ก่อนอื่นต้องขอขอบคุณอาจารณ์ทุกท่านนะครับ ที่ได้แก้ไขปัญหาต่างๆ ในการทำ Code  ....
สำหรับโพสนี้ ก็หวังว่าท่านที่ต้องการทำแบบผม กำลังมองหาวิธีการต่างๆนานา (เหมือนผม)
จะได้รับประโยชน์ครับ

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

8
เชื่อมต่อ Mysql ด้วย ODBC ฟิลด์ Username ที่เป็นตัวอักษรภาษาไทย แสดงผล #Deleted เป็นเฉพาะตารางเดียว ตารางอื่นไม่เป็นไร
มีวิธีแก้ไขยังไงครับ  ตารางเป็น InnoDB

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

10
ต้องการค้นหาไฟล์ที่ระบุแบบเจาะจง เช่นต้องการค้นไฟล์ 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
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]