แสดงกระทู้

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 - Eik Q Sang

หน้า: [1] 2 3
1
ฟอร์ม ชื่อ frmEnvelopeLabel ในฟอร์มนี้ Select frmCabinetUse (ข้อมูล tblCabinetUse)

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

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

2
Table ชื่อ tblCustomer ประกอบด้วยฟิลด์ No และ CustomerName เช่น
No              CustomerName
1                        นาย ก
2                        นาย ข
3                        นาย ค
4                        นาง ง
5                        น.ส. จ

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

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

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

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

3
ใน frmRegister มี Textbox ชื่อ txt_Remark
เงื่อนไข
ถ้า txt_Remark =1 ให้บรรทัดนั้น ให้มีสีเหลืองหรือสามารถกำหนดโค้ดสีเองได้ครับ
ขอบคุณครับผม

4
สร้าง 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  แสดงผล  นาย สมชาย

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

5
Access Export Report มาเป็นไฟล์สกุล tiff ได้ไหมครับ และต้องทำอย่างไรบ้างครับ ขอบคุณครับ

6
คือผมจะให้บรรทัดที่เป็น New ด้านล่าง ให้มาอยู่บรรทัดข้างบนสุด ต้องเขียนโค้ดยังไงครับ ขอบคุณมากครับผม


7
ผมสร้างปุ่ม ไว้ที่ฟอร์ม ต้องการให้ เมื่อกดปุ่มแล้ว Export มาเป็น PDF โดยสามารถเลือกที่อยู่ที่จะ Save และเปลี่ยนชื่อไฟล์ที่จะ Save ได้ครับ

Report ผมชื่อ rptSugarOrder

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

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


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

8
เนื่องจากผมนำเข้าข้อมูลจาก Excel จำนวน 4 Sheet เป็นจำนวน 4 Table
Table ละ 500,000 เรคคอร์ด
พอจำเข้า Sheet ที่ 5 พบว่า เกิด error ดังรูป Compact ก้อแล้ว ไม่ทราบว่าจะต้องทำอย่างไรบ้างครับ ขอบคุณมากครับผม




9
Table มีฟิลด์ชื่อ CustomerName กับ Sequence

ที่ฟอร์ม
มี TextBox ชื่อ txt_CusName
มี TextBox ชื่อ txt_Sequence

เมื่อพิมพ์ชื่อแล้วกด Enter ให้ RunningNo Auto ต่อไปเรื่อยๆครับ ต้องทำอย่างไรบ้างครับ ขอบคุณมากครับผม

10
รบกวนสอบถามคำสั่ง เมื่อกดปุ่ม แล้วให้ TextBox1 มีสีแดง ใน VB ต้องเขียนว่าอะไรครับ ขอบคุณครับ

11
ปกติหากเราทำฟอร์มขึ้นมา ใน TextBox วันที่ เวลาเราจะพิมพ์ก็จะต้องพิมพ์เป็น ค.ศ.
ถ้าเราต้องการพิมพ์เป็น พ.ศ.แล้วให้ใน Table มองเป็น พ.ศ. ด้วยจะต้องทำอย่างไรครับ ขอบคุณมากครับผม

12
ใครมีตัวอย่างโปรแกรมตัดสต๊อคสินค้าหรือขายหน้าร้านไหมครับ ขอบคุณมากครับผม

13
หัว Title Bar ในคิวรี่หายครับ ดังรูปวงกลมสีแดงครับ ทำยังไงให้ขึ้นมาเหมือนเดิมครับ ขอบคุณมากครับผม


14
รบกวนสอบถามครับ คือ ในฟอร์มมีโค้ด Maximize เวลาเปิดฟอร์มขึ้นมา พอเอาเม้าส์ไปขยับ Title Bar พบว่า หน้าจอย่อลง
จะทำอย่างไรครับที่จะให้ฟอร์มไม่ย่อขนาดลง ผมอยากให้เต็มหน้าจอ ไม่ว่าเม้าส์จะไปขยับ Title Bar ก็อยากให้ฟอร์มยัง Maximize อยู่ครับ
ขอบคุณมากครับผม

15
ผมทำ SubForm เป็นฟอร์มค้นหา ใน frmMainMenu แล้วลองเทสค้นหาระบบฟ้องแจ้ง Error ไม่รู้ว่าผิดตรงไหน รบกวนตรวจสอบว่าจะต้องแก้ไขอะไรอย่างไงบ้างครับ ขอบคุณมากครับผม

16
รบกวนสอบถามครับ ผมสร้างฟอร์มและบนฟอร์มมี TextBox ชื่อ txt_01 โดยมีปุ่มอยู่ข้างๆชื่อ btn_01
ผมต้องการให้ เมื่อคลิ๊กที่ปุ่มครั้งที่ 1 ให้ใส่เลข 1 ลงใน txt_01
และเมื่อคลิ๊กครั้งที่ 2 ให้ใส่เลข 0 ลงใน txt_01
คือผมต้องการให้เวลาคลิ๊กที่ปุ่มในแต่ละครั้งให้ใส่ตัวเลข 1 หรือ 0 สลับไปมาตามที่เราคลิ๊กที่ปุ่มครับ เหมือนสวิชปิดเปิดไฟน่ะครับ
ไม่ทราบว่าต้องเขียนโค้ดอย่างไรบ้างครับ ขอบคุณมากครับผม

17
รบกวนสอบถามการรันเลขตู้ครับ คือผมได้สร้าง Table ตู้เก็บเอกสาร โดย Table ชื่อ tblDepDoc มีฟิลด์ชื่อ
Cabinet - ตู้
Shelf - ชั้น
Seq - ลำดับ
DocDetail
ผมได้สร้างฟอร์ม ชื่อ frmSearchDoc ฟอร์มนี้ จะไว้กดค้นหาตู้


และเมื่อเลือกตู้แล้วกดปุ่มจะไปที่ฟอร์ม ชื่อ frmDepDoc โดยฟอร์มนี้จะมี textbox ดังนี้
txt_Cabinet
txt_Shelf
txt_Seq
และ
txt_DocDetail ให้กรอกรายละเอียด
โดยเมื่อกรอกรายละเอียดเสร็จ จะกดปุ่ม เพิ่มข้อมูล ตู้จะรันลำดับให้ เช่น
1/1/1
1/1/2
1/1/3
ไปเรื่อยๆน่ะครับ

ตรงนี้ต้องเขียนอะไรอย่างไรบ้างครับ ขอบพระคุณมากครับผม

18
ผมสร้างฟอร์ม Login ขึ้นมาหนึ่งฟอร์ม ผมต้องการสร้าง Table สำหรับเก็บ Log การ Login ว่า User Login เวลาไหน Logout เวลาไหน
เปิดฟอร์มไหนบ้าง และเปิดฟอร์มนั้นอัพเดทล่าสุดกี่โมง ต้องทำอย่างไรบ้างครับ

ปุ่ม Login มีโค้ดดังนี้ครับ

Private Sub cmdOK_Click()
Dim UserLevel As String
Dim WorkerName As String
Dim TempLoginID As String
Dim strDivision As String
Dim strLocation As String
If IsNull(Me.txt_Username) Then
    MsgBox "กรุณาใส่ชื่อผู้ใช้", vbInformation, "ชื่อผู้ใช้"
    Me.txt_Username.SetFocus
ElseIf IsNull(Me.txt_Password) Then
    MsgBox "กรุณาใส่รหัสผ่าน", vbInformation, "รหัสผ่าน"
    Me.txt_Password.SetFocus
Else
    If (IsNull(DLookup("UserLogin", "tblUser", "UserLogin ='" & Me.txt_Username.Value & "'"))) Or (IsNull(DLookup("Password", "tblUser", "Password ='" & Me.txt_Password.Value & "'"))) Then
        MsgBox "ชื่อผู้ใช้หรือรหัสผ่านไม่ถูกต้อง"
    Else
            TempLoginID = Me.txt_Username.Value
            WorkerName = DLookup("UserName", "tblUser", "UserLogin ='" & Me.txt_Username.Value & "'")
            UserLevel = DLookup("UserSecurity", "tblUser", "UserLogin ='" & Me.txt_Username.Value & "'")
           
                If UserLevel = "Admin" Or UserLevel = "Mod" Then
                    DoCmd.OpenForm "frmSetup"
                    Forms![frmSetup]![txt_Login] = TempLoginID
                    Forms![frmSetup]![txt_User] = WorkerName
                    Forms![frmSetup]![txt_Division] = cb_Division.Column(1)
                    Forms![frmSetup]![txt_Location] = cb_Location.Column(1)
                    DoCmd.Close acForm, "frmLogin"
                Else
                    DoCmd.OpenForm "frmMainMenu"
                    Forms![frmMainMenu]![txt_Login] = TempLoginID
                    Forms![frmMainMenu]![txt_User] = WorkerName
                    Forms![frmMainMenu]![txt_Division] = cb_Division.Column(1)
                    Forms![frmMainMenu]![txt_Location] = cb_Location.Column(1)
                    DoCmd.Close acForm, "frmLogin"
                End If
    End If
End If
End Sub

หน้า: [1] 2 3