แสดงกระทู้

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

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

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

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

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

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

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

7
ห้อง MS Access / รบกวนสอบถาม QR Code ครับ
« เมื่อ: 30 ม.ค. 63 , 10:17:03 »
ใครพอจะมีโปรแกรมสร้าง QR Code บ้างไหมครับผม ขอบคุณมากครับ

8
รบกวนสอบถามฟอร์มค้นหาครับ ผมอยากได้ฟอร์มค้นหาแบบหลายๆเงื่อนไขตามรูปน่ะครับ คือ จะค้นหา เฉพาะรหัสลูกค้า แล้วแสดงข้อมูลออกมา หรือจะค้นหาจากทุกฟิลด์แล้วแสดงข้อมูลออกมาน่ะครับ ไม่ทราบว่าต้องทำตรงไหนอย่างไรบ้างครับ ถ้ามีไฟล์ตัวอย่างก็จะดีมากครับ ขอบคุณมากครับผม


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

10
ผมทำฟอร์มไว้ 2 ฟอร์ม
ชื่อฟอร์ม frmLGSearch (รูปที่ 1)

ชื่อฟอร์ม frmLGDocDep (รูปที่ 2)


เมื่อผมกรอกข้อมูลใน frmLGSearch แล้วกดปุ่ม Search จะแสดงรายการ แล้วเมื่อผมกดปุ่ม Detail ก็จะเปิดฟอร์ม frmLGDocDep
โดยปุ่ม Detail ผมสร้างปุ่ม ใช้ Command Button Wizard ซึ่งใช้ Open the form and find specific data to display

หลังจากกดปุ่ม Detail จะปรากฎฟอร์ม frmLGDocDep ปัญหาคือ ในฟอร์มนี้ เมื่อผมขึ้นเรคคอร์ดใหม่ แล้วฟิลด์ Address มันเป็นว่างๆอ่ะครับ
อยากรู้ว่าจะทำอย่างไรให้ Copy Address จากบรรทัดบน มาโชว์ในบรรทัดถัดมา ขอบคุณมากครับผม

11
รบกวนขอตัวอย่างฟอร์มกำหนดสิทธิ์การใช้งานว่าแต่ละฟอร์มจะให้ยูสเซอร์ไหนใช้งานได้บ้างครับ ขอบคุณมากครับผม

12
ห้อง MS Access / สอบถามคิวรี่ครับผม
« เมื่อ: 25 มิ.ย. 62 , 10:45:04 »
สอบถามเรื่องคิวรี่หน่อยครับ คือผมมีข้อมูลดังนี้

Table A

ชื่อบริษัท         วงเงิน          วันที่ทำรายการ

บริษัท A         100 บาท      01/04/2561
บริษัท A         200 บาท      10/10/2561
บริษัท A         300 บาท      21/07/2562
บริษัท B         600 บาท      01/05/2562
บริษัท B         800 บาท      09/07/2562
บริษัท C         900 บาท      21/07/2562

คำถาม ผมต้องการเอา วันที่ทำรายการ (วันที่เริ่มทำรายการ รายการแรก) ของแต่ละบริษัท โดยลิสมาว่ามีบริษัทไหนบ้าง
หรือสร้างฟิลด์เพื่อ Remark วันที่ทำรายการ รายการแรก ก็ได้ครับ
ต้องคิวรี่อย่างไรบ้างครับ ขอบคุณมากครับ


13
จากโค้ดด้านล่าง
โค๊ด: [Select]
Private Sub Form_Current()
    DoCmd.Maximize
    DoCmd.GoToRecord , , acNewRec
End Sub

Sub Ark()
Dim box As String
txt_CIF.SetFocus
box = MsgBox("คุณต้องการบันทึกข้อมูลหรือไม่?", vbQuestion + vbYesNo, "Save Confirmation!!")
If box = vbYes Then
Call checkNull
Else
Call delete
frmCabinatUsed.Requery
End If
End Sub
Sub delete()
On Error Resume Next
DoCmd.SetWarnings False
    DoCmd.GoToControl Screen.PreviousControl.Name
    Err.Clear
    If (Not Form.NewRecord) Then
        DoCmd.RunCommand acCmdDeleteRecord
    End If
    If (Form.NewRecord And Not Form.Dirty) Then
        Beep
    End If
    If (Form.NewRecord And Form.Dirty) Then
        DoCmd.RunCommand acCmdUndo
    End If
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
    End If
cmdDeleteRecord_Click_Exit:
    Exit Sub
cmdDeleteRecord_Click_Err:
    MsgBox Error$
    Resume cmdDeleteRecord_Click_Exit
End Sub

Sub checkNull()
If IsNull(txt_CIF) Then
MsgBox "กรุณาระบุ CIF !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_TONo) Then
MsgBox "กรุณาระบุ TO No. !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_DocCode) Then
MsgBox "กรุณาระบุรหัสเอกสาร !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_DocTypeCode) Then
MsgBox "กรุณาระบุรหัสประเภทเอกสาร !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_DocName) Then
MsgBox "กรุณาระบุชื่อเอกสาร !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_DocDate) Then
MsgBox "กรุณาระบุวันที่เอกสาร !!", vbOKOnly, "Warning !!"
End If
DoCmd.GoToRecord , , acNewRec
Me.frmKeyData01.Requery
End Sub

คำถาม ผมต้องการให้เมื่อไม่กดปุ่มบันทึก ก็ไม่ต้องบันทึกหน้านี้เข้าตาราง ต้องแก้ไขอย่างไรบ้างครับ ขอบคุณมากครับ

14
ผมสร้างฟอร์ม ชื่อ frmMain1 มี text box ชื่อ txt_No1 ในฟอร์มนี้มีปุ่มเปิดฟอร์ม ชื่อ frmMain2 ในฟอร์มนี้มี textbox ชื่อ txt_No2
คำถาม ผมต้องการให้ frmMain1 เมื่อกดปุ่มเปิดฟอร์ม frmMain2 ให้ txt_No1= txt_No2 ต้องเขียนโค้ดใน vb ว่าอย่างไรบ้างครับ ขอบคุณมากครับ

15
ผมได้สร้าง Continue Form โดยเขียนโค้ดดังนี้

Private Sub Command27_Click()
    Me.txt_DateClose = Now()
    Me.cb_Status = "¨จบงาน"
    Me.cb_DocEnvelope.Enabled = False
    Me.txt_OrderID.Enabled = False
    Me.txt_CIF.Enabled = False
    Me.txt_DocTypeCode.Enabled = False
    Me.txt_DocName.Enabled = False
    Me.cb_Status.Enabled = False
   
End Sub

เวลาผมกดปุ่มปรากฎว่า Enabled = False ทั้งหน้าเลยครับ คื่อผมต้องการให้ Enabled = False เฉพาะเรคคอร์ดบรรทัดนั้นๆบรรทัดเดียว ไม่ทราบต้องเขียนอะไรเพิ่มครับขอบคุณมากครับ

16
ใครพอมีตัวอย่างฟอร์มค้นหาแบบมีหลายๆเงื่อนไขบ้างครับ ขอบคุณมากครับผม

หน้า: [1] 2 3