แสดงกระทู้

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 4
1
Table มีข้อมูลดังนี้
ฟิลด์ CIFNo คือ เลขที่ลูกค้า
ฟิลด์ ACF คือ วงเงินลูกค้า
ฟิลด์ ACCCloseDate คือ วันที่ปิดบัญชี

โดย ใน 1 CIFNo มี หลาย ACF เช่น

CIFNo     ACF     ACCCloseDate
001          1         15/02/2000
001          2         20/08/2021
001          3         27/06/2021

ต้องการคิวรี่ หรือต้องเขียน SQL วันที่ปิดบัญชีล่าสุด ของแต่ละรายลูกค้า  ต้องทำอย่างไรบ้างครับ ขอบคุณมากครับผม

2
ผมสร้างฟอร์มกรอกข้อมูล โดยรันนัมเบอร์ไว้ ผมต้องการให้ Record สุดท้ายที่เป็น New ในวงกลมสีแดงในรูป Textbox ให้เป็น Not Enable เพื่อไม่ให้ User เพิ่มเรคคอร์ดเอง
ต้องทำอย่างไรบ้างครับ ขอบคุณมากครับผม

3
เมื่อเราสร้างฟอร์มเพิ่มข้อมูลขึ้นมา เมื่อเรานำเม้าส์ไปคลิ๊กที่ Textbox ใดๆ ระบบจะทำการเพิ่มข้อมูลให้เอง โดยที่เรายังไม่ได้กดปุ่ม เพิ่ม
ตรงนี้แก้ไขอย่างไรได้บ้างครับ ขอบคุณมากครับผม

4
เมื่อกดปุ่ม เพิ่ม เรคคอร์ด ถ้า Textbox ชื่อ txt_Message ว่าง จะไม่สามารถเพิ่มเรคคอร์ดได้ ต้องเขียนโค้ด VB ยังไงครับ ขอบคุณมากครับผม

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




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

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

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

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

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

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

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


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

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

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

14
รบกวนสอบถามการรันเลขตู้ครับ คือผมได้สร้าง 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
ไปเรื่อยๆน่ะครับ

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

15
ผมสร้างฟอร์ม 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

16
ในหน้าฟอร์มหากเราดับเบิ้ลคลิกที่ไตเติ้ลบาร์ฟอร์มก็จะย่อหดลงมา แต่ผมต้องการให้ดับเบิ้ล์คลิกที่ไตเติ้ลบาร์แล้วไม่ให้หน้าต่างมันย่อมาน่ะครับ ต้องทำอย่างไรบ้าง หากไม่ใช้ You can change the Border Style property of the form to Dialog. ครับ ขอบคุณมากครับ

หน้า: [1] 2 3 4