1
ห้อง MS Access / : dlookup แล้วมีแต่ชื่อคนเดิมขึ้นทุกบรรทัด
« เมื่อ: 29 ส.ค. 66 , 09:40:24 »
สร้าง Query แล้วให้ subform ผูกกับ Query ดีกว่ามั้ยครับ
แสดงกระทู้
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.
2
ห้อง MS Access / : เเบ่งเเสดง จำนวนRecrodระหว่าง ชายกับหญิง
« เมื่อ: 05 ก.ค. 66 , 16:10:51 »
ไม่เข้าใจคำถาม แต่เดาว่า ต้องการ count โดยแยกเพศ ชาย/หญิง ใน Textbox ของฟอร์มมั้ยครับ ฟังก์ชั่น count สามารถใส่เงื่อนไขได้ เช่น Textbox 1 แสดงจำนวนเพศชาย ก็ nz(count("*","ตารางxxx","[ชื่อฟิวด์เพศ]='ชาย'"),0)
3
ห้อง MS Access / : ขอตัวอย่าง code upload รูปภาพ ลง server
« เมื่อ: 05 ก.ค. 66 , 16:05:18 »
ยังเลยครับ
4
ห้อง MS Access / ขอดูตัวอย่างการเขียน code vba office 32 และ 64 bit ครับ
« เมื่อ: 07 มิ.ย. 66 , 11:55:09 »
ขอความรู้เรื่องการเขียน code vba สำหรับรันได้ทั้ง office 32 และ 64 บิต ครับ ส่วนตัวเขียนเฉพาะ 32 บิต แต่คอมรุ่นใหม่ๆติดตั้ง office 64 บิต ซึ่งโปรแกรมจะรันไม่ได้ ต้องติดตั้ง office ใหม่ หากจะเขียน code ให้ทำงานได้ทั้ง 2 ระบบ ต้องเขียนอย่างไรครับ
5
ห้อง MS Access / : อ้างชื่อไฟล์มาตรวจสอบในตาราง
« เมื่อ: 31 พ.ค. 66 , 10:10:59 »
ลองเอาไปประยุกต์ดูนะครับ
6
ห้อง MS Access / : อ้างชื่อไฟล์มาตรวจสอบในตาราง
« เมื่อ: 31 พ.ค. 66 , 09:23:44 »
วน loop อ่านชื่อไฟล์ใน folder แล้วเอาชื่อไฟล์ตัด .txt ออก
จากนั้น ไป count record
count=DCount("*","table","[cid]="' & cid จากชื่อไฟล์ &"'")
if count=0
msgbox
end if
จากนั้น ไป count record
count=DCount("*","table","[cid]="' & cid จากชื่อไฟล์ &"'")
if count=0
msgbox
end if
7
ห้อง MS Access / ขอตัวอย่าง code upload รูปภาพ ลง server
« เมื่อ: 26 พ.ค. 66 , 09:59:11 »
มีตัวอย่าง code วิธี upload รูปภาพลง images server แล้วนำภาพมาแสดงในฟอร์มหรือ Report เครื่องลูก (Client) มั้ยครับ
สิ่งที่ออกแบบไว้ คือ เก็บ path ลงใน database server แล้ว upload รูปภาพเก็บใน images server
หรือมีวิธีอื่นพอจะแนะนำมั้ยครับ ขอบคุณครับ
สิ่งที่ออกแบบไว้ คือ เก็บ path ลงใน database server แล้ว upload รูปภาพเก็บใน images server
หรือมีวิธีอื่นพอจะแนะนำมั้ยครับ ขอบคุณครับ
8
ห้อง MS Access / : โปรแกรมมันขึ้นว่า 'Id' is not an index in this table เกิดจากอะไรค่ะ
« เมื่อ: 02 มี.ค. 66 , 10:16:46 »
ผมเคยเจอแบบนี้ หาวิธีแก้ไม่ได้ ถ้าไม่มี backup น่าจะต้องทำใจเลยครับ
9
ห้อง MS Access / : ในคิวรี่ สามารถแทนที่ตัวเลขด้วยตัวอักษรตามเงื่อนไขได้ไหมคะ
« เมื่อ: 09 ก.พ. 66 , 11:04:11 »
Option Compare Database
Function setNewText(text As String) As String
Dim strText As String
Dim newString As String
strText = Left(text, 3)
Select Case strText
Case "5-1": newString = Replace(text, strText, "A-")
Case "6-1": newString = Replace(text, strText, "B-")
Case "7-1": newString = Replace(text, strText, "C-")
Case "8-1": newString = Replace(text, strText, "D-")
Case "9-1": newString = Replace(text, strText, "E-")
Case Else: newString = "Error"
End Select
setNewText = newString
End Function
Function setNewText(text As String) As String
Dim strText As String
Dim newString As String
strText = Left(text, 3)
Select Case strText
Case "5-1": newString = Replace(text, strText, "A-")
Case "6-1": newString = Replace(text, strText, "B-")
Case "7-1": newString = Replace(text, strText, "C-")
Case "8-1": newString = Replace(text, strText, "D-")
Case "9-1": newString = Replace(text, strText, "E-")
Case Else: newString = "Error"
End Select
setNewText = newString
End Function
10
ห้อง MS Access / : ในคิวรี่ สามารถแทนที่ตัวเลขด้วยตัวอักษรตามเงื่อนไขได้ไหมคะ
« เมื่อ: 09 ก.พ. 66 , 09:49:37 »
ลองฟังก์ชั่น Replace() ดูครับ
11
ห้อง MS Access / : แสดงรูปภาพบนฟอร์ม จาก url เว็บ ได้มั้ยครับ ทำอย่างไร
« เมื่อ: 25 ม.ค. 66 , 12:06:31 »
ทำได้แล้วครับ ประยุกต์ตามกระทู้นี้
https://www.thai-access.com/index.php?topic=1005.0
https://www.thai-access.com/index.php?topic=1005.0
12
ห้อง MS Access / แสดงรูปภาพบนฟอร์ม จาก Url เว็บ ได้มั้ยครับ ทำอย่างไร
« เมื่อ: 24 ม.ค. 66 , 10:55:22 »
create Image object บนฟอร์ม อยากให้แสดงภาพที่ได้มาจาก URL เว็บไซต์ ครับ
13
ห้อง MS Access / : สอบถามเรื่อง Set Focus ครับ
« เมื่อ: 08 พ.ย. 65 , 11:50:51 »
setFocus ที่ Textbox อื่นก่อน แล้วมา setFocus ที่ TX08
เช่น
...
Me.TX10.SetFocus
Me.TX08.SetFocus
เช่น
...
Me.TX10.SetFocus
Me.TX08.SetFocus
14
ห้อง MS Access / : รบกวนช่วยดู code สำหรับสร้าง link table ให้หน่อยครับ
« เมื่อ: 12 ก.พ. 65 , 16:26:24 »
code ที่เห็น ใช้กับ mysql database ครับ จะ link ตารางใหม่
หลักการคือ สร้างตารางเก็บ config server connection ได้แก่ server ip,database name,user,password,driver
ที่เหลือแล้วแต่จะประยุกต์ใช้ทำอะไร ผมใช้กับ Form Login Event On_Form_load ให้ link ตารางให้ใหม่ ตาม config หรือ set config ใหม่เมื่อมีการเลี่ยนแปลง เช่น เปลี่ยน server ,database ง่ายดีครับ สามารถ connect ได้ทันที หรือ ให้ลบ link เมือ Login ไม่ผ่านก็ได้นะครับ เพิ่มความปลอดภัยของโปรแกรมได้ระดับนึง ต้องขอบคุณผู้รู้ที่ให้คำตอบผมในกระทู้ทุกท่านด้วยนะครับ
https://www.thai-access.com/index.php?topic=1961.msg8198#new
หลักการคือ สร้างตารางเก็บ config server connection ได้แก่ server ip,database name,user,password,driver
ที่เหลือแล้วแต่จะประยุกต์ใช้ทำอะไร ผมใช้กับ Form Login Event On_Form_load ให้ link ตารางให้ใหม่ ตาม config หรือ set config ใหม่เมื่อมีการเลี่ยนแปลง เช่น เปลี่ยน server ,database ง่ายดีครับ สามารถ connect ได้ทันที หรือ ให้ลบ link เมือ Login ไม่ผ่านก็ได้นะครับ เพิ่มความปลอดภัยของโปรแกรมได้ระดับนึง ต้องขอบคุณผู้รู้ที่ให้คำตอบผมในกระทู้ทุกท่านด้วยนะครับ
https://www.thai-access.com/index.php?topic=1961.msg8198#new
15
ห้อง MS Access / : รบกวนช่วยดู code สำหรับสร้าง link table ให้หน่อยครับ
« เมื่อ: 02 ก.พ. 65 , 15:30:14 »
code คุณ TTT ใช้ได้เลยครับ
Private Sub Command1_Click()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
Set tdf = db.CreateTableDef("department")
tdf.Connect = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};Server=192.168.0.243;Database=dental_stock;UID=sa;PWD=sa1234;Option=3"
tdf.SourceTableName = "department"
db.TableDefs.Delete "department"
db.TableDefs.Append tdf
Set tdf = db.CreateTableDef("vendor")
tdf.Connect = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};Server=192.168.0.243;Database=dental_stock;UID=sa;PWD=sa1234;Option=3"
tdf.SourceTableName = "vendor"
db.TableDefs.Delete "vendor"
db.TableDefs.Append tdf
db.Close: Set db = Nothing
End Sub
Private Sub Command1_Click()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
Set tdf = db.CreateTableDef("department")
tdf.Connect = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};Server=192.168.0.243;Database=dental_stock;UID=sa;PWD=sa1234;Option=3"
tdf.SourceTableName = "department"
db.TableDefs.Delete "department"
db.TableDefs.Append tdf
Set tdf = db.CreateTableDef("vendor")
tdf.Connect = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};Server=192.168.0.243;Database=dental_stock;UID=sa;PWD=sa1234;Option=3"
tdf.SourceTableName = "vendor"
db.TableDefs.Delete "vendor"
db.TableDefs.Append tdf
db.Close: Set db = Nothing
End Sub
16
ห้อง MS Access / : รบกวนช่วยดู code สำหรับสร้าง link table ให้หน่อยครับ
« เมื่อ: 02 ก.พ. 65 , 15:02:17 »
@SJS Windows 10 64 bit,Office 2010 32 bit,Mysql ครับ
มันสร้าง link ให้นะครับ แต่จะเปิดหน้าต่างให้เลือก DNS ทุกครั้งต่อทุกๆ link table สิ่งที่ต้องการคือ ให้สร้าง link table ทันที ตาม server ที่ set ใน vba ครับ
มันสร้าง link ให้นะครับ แต่จะเปิดหน้าต่างให้เลือก DNS ทุกครั้งต่อทุกๆ link table สิ่งที่ต้องการคือ ให้สร้าง link table ทันที ตาม server ที่ set ใน vba ครับ
17
ห้อง MS Access / : รบกวนช่วยดู code สำหรับสร้าง link table ให้หน่อยครับ
« เมื่อ: 02 ก.พ. 65 , 10:10:15 »
@SJS ลอง code แล้ว ปัญหาเหมือนเดิม คือ จะต้องเลือก DNS เสมอ จึงจะสร้าง link ให้ครับ
18
ห้อง MS Access / : รบกวนช่วยดู code สำหรับสร้าง link table ให้หน่อยครับ
« เมื่อ: 02 ก.พ. 65 , 09:46:59 »
@SJS code นี้ต้องอาศัย DNS ใช่มั้ยครับ
เดี๋ยวลองดู ขอบคุณครับ
เดี๋ยวลองดู ขอบคุณครับ
