แสดงกระทู้

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.


Messages - Eik Q Sang

หน้า: [1] 2 3 4 ... 10
1
ห้อง MS Access / : ACCESS เซฟเป็นโปรแกรม และ ทำปุ่ม เพิ่มไฟล์ excel เข้าไป ได้มั้ยครับ
« เมื่อ: 10 ก.ค. 67 , 11:11:41 »
1. access สามารถ ทำเป็นแบบโปรแกรมได้มั้ยครับ คือ
*มีไอคอนให้เรากดเปิดเหมือนโปรแกรมตัวหนึ่ง - ผมใช้วิธีสร้าง shortcut แล้วเปลี่ยนรูปครับ
*กดเปิดแล้วเด้งขึ้นมาเหมือนโปรแกรม
 แบบในภาพก็เอาพื้นเหลืองๆพอครับ ส่วนเมนูข้างบนอะไรนั้นไม่ต้องมี - ผมใช้ pop up แล้ว Onload ใส่โค้ด Mazimize ครับ

2
ห้อง MS Access / แสดงรูปภาพตาม User ID ที่ Log In เข้าระบบ
« เมื่อ: 05 ก.ค. 67 , 17:03:47 »
รบวนสอบถามครับผมทำหน้า Form Log In แล้วต้องการให้ แสดงรูปภาพตาม User ID (รูปภาพได้แนบไว้ใน Table ชื่อ tblUser ชื่อ ฟิลด์ Img) โดย Textbox User ID ชื่อ txt_UserN

จะต้องทำอย่างไรบ้างครับ ขอบพระคุณมากครับผม

3
ห้อง MS Access / : ต้องการ Copy เรคคอร์ดที่ต้องการไปเพิ่มในอีก Table
« เมื่อ: 01 ก.พ. 67 , 11:37:22 »
ได้แล้วครับ ขอบคุณครับ

4
ห้อง MS Access / ต้องการ Copy เรคคอร์ดที่ต้องการไปเพิ่มในอีก Table
« เมื่อ: 01 ก.พ. 67 , 11:05:05 »
ฟอร์ม ชื่อ frmEnvelopeLabel ในฟอร์มนี้ Select frmCabinetUse (ข้อมูล tblCabinetUse)

ต้องการ เมื่อกดปุ่ม จะให้ Copy เรคคอร์ดนั้น มาวางไว้ใน tblPrintByCIF ดูจากรูปแนบ

ขอบคุณครับผม

5
ห้อง MS Access / : สอบถามเรื่องการสร้าง Folder ตามเรคคอร์ดใน Table ครับ
« เมื่อ: 30 ส.ค. 66 , 17:26:39 »
อ้างจาก: UnKnown ที่ 30 ส.ค. 66 , 12:57:05
Private Sub Command32_Click()
Dim rst As DAO.Recordset
Dim sPathUser As String

sPathUser = Environ$("USERPROFILE") & "\my documents\"
Set rst = CurrentDb.OpenRecordset("SELECT [CustomerName] FROM Table_A", dbOpenSnapshot)

Do While Not rst.EOF
    MkDir (sPathUser & rst![CustomerName])
    rst.MoveNext
Loop

rst.Close
Set rst = Nothing

End Sub

ปล.ไม่ได้คิดเองนะแค่ไปเอาหลายๆวิธี หลายๆผลลัพธ์ที่ค้นเจอ แล้วเอามารวมกับที่ท่านต้องการนะครับ :shout:

ขอบคุณมากๆครับผม

6
ห้อง MS Access / รบกวนผู้รู้สอบถามเรื่องการสร้าง Folder ตามเรคคอร์ดใน Table ครับ
« เมื่อ: 29 ส.ค. 66 , 15:35:11 »
จากโค้ด
Private Sub Command32_Click()
Dim sPathUser As String
sPathUser = Environ$("USERPROFILE") & "\my documents\"
MkDir (sPathUser & "\Test")
End Sub

ถ้าต้องการให้สร้าง Folder โดยให้ตั้งชื่อ Folder ตามชื่อ Field ชื่อว่า CustomerName ใน Table A ต้องแก้อย่างไรบ้างครับ ขอบคุณมากครับผม

7
ห้อง MS Access / สอบถามเรื่องการสร้าง Folder ตามเรคคอร์ดใน Table ครับ
« เมื่อ: 28 ส.ค. 66 , 15:15:08 »
Table ชื่อ tblCustomer ประกอบด้วยฟิลด์ No และ CustomerName เช่น
No              CustomerName
1                        นาย ก
2                        นาย ข
3                        นาย ค
4                        นาง ง
5                        น.ส. จ

สร้างฟอร์ม ชื่อ frmMain ในฟอร์มประกอบด้วย ปุ่ม ชื่อ btnExport

ต้องการ เมื่อกดปุ่ม ให้ระบบ สร้าง Folder ตามจำนวนรายลูกค้า พร้อม Rename Folder ตามนี้ No CustomerName เช่น

1.นาย ก
2.นาย ข
3.นาย ค
4.นาง ง
5.น.ส. จ

ขอบคุณมากครับผม

8
ห้อง MS Access / : ต้องการให้บรรทัดเปลี่ยนสีได้ตามเงื่อนไข Backcolor
« เมื่อ: 24 ก.ค. 66 , 09:26:05 »
อ้างจาก: UnKnown ที่ 22 ก.ค. 66 , 15:03:25
1.เปลี่ยนแค่ตัวกล่องข้อความ
โค๊ด: [Select]
Private Sub txt_Remark_AfterUpdate()
If Me.txt_Remark = 1 Then
    Me.txt_Remark.BackColor = vbYellow
Else
    Me.txt_Remark.BackColor = RGB(255, 255, 255)
End If
End Sub

ขอบคุณมากครับผม

2.เปลี่ยนทั้งแถวผมใช้วิธีตามนี้ ->สอบถามวิธีเปลี่ยนสีพื้นหลังรายการใน Continuous Forms

3.อันนี้เขาเปลี่ยนสีตามเช็คบล็อค


9
ห้อง MS Access / ต้องการให้บรรทัดเปลี่ยนสีได้ตามเงื่อนไข Backcolor
« เมื่อ: 21 ก.ค. 66 , 15:21:18 »
ใน frmRegister มี Textbox ชื่อ txt_Remark
เงื่อนไข
ถ้า txt_Remark =1 ให้บรรทัดนั้น ให้มีสีเหลืองหรือสามารถกำหนดโค้ดสีเองได้ครับ
ขอบคุณครับผม

10
ห้อง MS Access / ให้ Textbox แสดงผลฟิลด์ต่าง Form
« เมื่อ: 31 พ.ค. 66 , 11:05:21 »
สร้าง Table ที่ 1 ชื่อ tblOrder ประกอบด้วย OrderNo,Date
สร้าง Table ที่ 2 ชื่อ tblOrderDetail ประกอบด้วย OrderNo,No,CustomerName

สร้างฟอร์มชื่อ frmOrder สร้าง textbox ชื่อ txt_OrderNo และ txt_Date ตัวอย่าง   
OrderNo   Date
001         15/2/2566
002         10/4/2566
003         23/1/2566

สร้างฟอร์มชื่อ frmOrderDetail สร้าง textbox ชื่อ txt_OrderNo2 , txt_No , txt_CustomerName2 ตัวอย่าง
OrderNo    No     CustomerName
001           1        นาย ก
001           2        นาย ข
001           3        นาย ค
002           1        นาย A
003           1        นาย สมชาย
003           2        นาย สมหวัง

โดยใน frmOrder สร้าง Textbox ตั้งชื่อ txt_CustomerName

ต้องการให้ txt_CustomerName แสดงผลฟิลด์ CustomerName โดยแสดงชื่อ ในลำดับแรก ของแต่ละ Order 
เช่น Order 001  แสดงผล  นาย ก
     Order 002  แสดงผล  นาย A
     Order 003  แสดงผล  นาย สมชาย

ต้องทำอย่างไรบ้างครับ ขอบคุณมากครับผม

11
ห้อง MS Access / : Access Export Report มาเป็นไฟล์สกุล tiff
« เมื่อ: 31 พ.ค. 66 , 10:48:03 »
ขอบคุณมากครับผม

12
ห้อง MS Access / Access Export Report มาเป็นไฟล์สกุล tiff
« เมื่อ: 29 พ.ค. 66 , 15:20:30 »
Access Export Report มาเป็นไฟล์สกุล tiff ได้ไหมครับ และต้องทำอย่างไรบ้างครับ ขอบคุณครับ

13
ห้อง MS Access / ต้องการให้ New Record อยู่บรรทัดบนสุด
« เมื่อ: 29 พ.ค. 66 , 13:54:38 »
คือผมจะให้บรรทัดที่เป็น New ด้านล่าง ให้มาอยู่บรรทัดข้างบนสุด ต้องเขียนโค้ดยังไงครับ ขอบคุณมากครับผม


14
ห้อง MS Access / : สร้างปุ่ม Export PDF แบบเลือกที่อยู่
« เมื่อ: 24 พ.ค. 66 , 08:54:10 »
ขอบคุณมากครับผม

15
ห้อง MS Access / สร้างปุ่ม Export PDF แบบเลือกที่อยู่
« เมื่อ: 23 พ.ค. 66 , 16:34:18 »
ผมสร้างปุ่ม ไว้ที่ฟอร์ม ต้องการให้ เมื่อกดปุ่มแล้ว Export มาเป็น PDF โดยสามารถเลือกที่อยู่ที่จะ Save และเปลี่ยนชื่อไฟล์ที่จะ Save ได้ครับ

Report ผมชื่อ rptSugarOrder

ผมลองเขียนโค้ดด้านล่างนี้ แต่พอกดปุ่ม ระบบจะให้เลือกที่อยู่ที่ต้องการ Save พอผมลองกด Cancel มัน Error นะครับ ต้องแก้ไขโค้ดอย่างไรบ้างครับ

Private Sub Command13_Click()
DoCmd.OutputTo acOutputReport, "rptSugarOrder", _
acFormatPDF, ""
End Sub


ขอบคุณมากครับผม

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

17
ห้อง MS Access / : นำข้อมูลจาก Excel เข้า Access พบว่า เกิด Error ครับ
« เมื่อ: 24 ก.พ. 65 , 17:27:22 »
อ้างจาก: OddyWriter ที่ 24 ก.พ. 65 , 10:44:50
ปัญหานี้เกิดเกิดได้จากหลายสาเหตุ

ที่เคยเจอ
1. ไม่ได้เปิด Excel มาเพื่อ Reformat ตารางให้เหมาะสมสำหรับการนำเข้า Access เช่น มีข้อมูลอยู่ในคอลัมน์ A ถึง G แล้วก็มีขยะโผล่มาใน J20, K300 และอื่นๆ
2. ข้อมูลแถวแรกใน Excel (ไม่นับ Header) เป็นตัวเลข แล้ว แถวถัดไปเป็น Text เกิดจากความฉลาด (หรือสาระแน) ของ Access ที่คิดว่าข้อมูลทั้งหมดต่อจากนี้เป็นตัวเลข พอไม่เป็นตัวเลขก็เลย Error
3. ไฟล์ Excel ไม่ใช่ Excel

ขอบคุณมากครับ จะลองนำไปตรวจสอบดูครับผม

18
ห้อง MS Access / นำข้อมูลจาก Excel เข้า Access พบว่า เกิด Error ครับ
« เมื่อ: 23 ก.พ. 65 , 17:26:55 »
เนื่องจากผมนำเข้าข้อมูลจาก Excel จำนวน 4 Sheet เป็นจำนวน 4 Table
Table ละ 500,000 เรคคอร์ด
พอจำเข้า Sheet ที่ 5 พบว่า เกิด error ดังรูป Compact ก้อแล้ว ไม่ทราบว่าจะต้องทำอย่างไรบ้างครับ ขอบคุณมากครับผม




หน้า: [1] 2 3 4 ... 10