แสดงกระทู้

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

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

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


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

23
ผมทำฟอร์มไว้ 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 จากบรรทัดบน มาโชว์ในบรรทัดถัดมา ขอบคุณมากครับผม

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

25
ห้อง 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 วันที่ทำรายการ รายการแรก ก็ได้ครับ
ต้องคิวรี่อย่างไรบ้างครับ ขอบคุณมากครับ


26
จากโค้ดด้านล่าง
โค๊ด: [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

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

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

28
ผมได้สร้าง 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 เฉพาะเรคคอร์ดบรรทัดนั้นๆบรรทัดเดียว ไม่ทราบต้องเขียนอะไรเพิ่มครับขอบคุณมากครับ

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

30
รบกวนสอบถามครับว่า เราจะสร้างฟอร์มค้นหาแบบมีหลายๆเงื่อนไข อย่างไรได้บ้างครับ ขอบคุณมากครับผม

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

Table1 มีฟิลด์ดังนี้
Years (ชนิดข้อมูล Text)
Months (ชนิดข้อมูล Text)
Sequence (ชนิดข้อมูล Text)
DocNo  (ชนิดข้อมูล Text)

ต้องการสร้างฟอร์ม โดยในฟอร์มมีรายละเอียดดังนี้
Years (เป็น ComboBox)
Months (เป็น ComboBox)
ปุ่ม (เป็น Button) เมื่อกดปุ่มจะเปิดฟอร์ม frmDocDetail
ซึ่งฟอร์ม frmDocDetail จะมีรายละเอียดฟิลด์ต่างๆใน Table 1 โดยฟอร์มนี้เมื่อเปิดมาจะเรียง Sequence ให้ด้วยครับ และทุกครั้งที่มีการคีย์ข้อมูลเข้าฟอร์มนี้ Sequence จะรันลำดับให้ออโต้ครับ

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

32
ผมจะเขียนฟอร์มกรอกข้อมูลเอกสาร โดยมีรายละเอียด ดังนี้ครับ

ตู้เอกสาร มีทั้งหมด 5 ชั้น ในแต่ละชั้น มี 12 บล็อค  ดังนี้

ชั้นของเอกสาร กำหนดให้ชั้นบนสุดเป็นชั้นที่ 1 ชั้นถัดลงมาคือ 2,3,4,5 โดยกำหนดปีตามชั้นดังนี้
ชั้นบนสุดหรือชั้นที่ 1 กำหนดให้เป็น ปี 2559
ชั้นถัดลงมาหรือชั้นที่ 2 กำหนดให้เป็น ปี 2560
ชั้นถัดลงมาหรือชั้นที่ 3 กำหนดให้เป็น ปี 2561
ชั้นถัดลงมาหรือชั้นที่ 4 กำหนดให้เป็น ปี 2562
ชั้นถัดลงมาหรือชั้นที่ 5 กำหนดให้เป็น ปี 2563

ในแต่ละชั้นมีบล็อคทั้งหมด 12 บล็อค โดยกำหนดเป็นเดือน ดังนี้
บล็อคที่ 1 กำหนดให้เป็นเดือน มกราคม
บล็อคที่ 2 กำหนดให้เป็นเดือน กุมภาพันธ์
ไปเรื่อยๆจนถึงบล็อคที่ 12 กำหนดให้เป็นเดือน ธันวาคม

โดยผมจะต้องบันทึกข้อมูลเอกสารในแต่ละชิ้นตามปีและเดือนโดยในแต่ละเดือนก็จะต้องเรียงตามลำดับด้วย

เช่น ในชั้นที่ 5 คือปี 2563 บล็อคที่ 1 คือเดือนมกราคม โดยผมจะเรียงเอกสารตามลำดับหรือ Sequence ไว้

โดยฟิลด์ที่กรอกประกอบด้วยฟิลด์ดังนี้
Year - ปี  เป็น ComboBox
Month - เดือน เป็น ComboBox
Sequence - ลำดับ
DocNo - เลขที่เอกสาร
CustomerNo - เลขที่ลูกค้า
CustomerName - ชื่อลูกค้า

ผมจะยกตัวอย่างนะครับ เช่น
เอกสารฉบับที่ 1
Year - 2559
Month - มกราคม
Sequence - 1
DocNo - 001
CustomerNo -01
CustomerName - นาย ก

เอกสารฉบับที่ 2
Year - 2563
Month - มกราคม
Sequence - 1
DocNo - 010
CustomerNo -05
CustomerName - นาย จ

เอกสารฉบับที่ 3
Year - 2559 
Month - มกราคม
Sequence - 2
DocNo - 002
CustomerNo -02
CustomerName - นาย ข

ฉะนั้น ในปี 2559 เดือนมกราคม จะมีเอกสาร
DocNo - 001
Sequence - 1

DocNo - 002
Sequence - 2

ผมต้องการให้เรียง Sequence Auto ตามปีและเดือนครับ

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

33
รบกวนสอบถามหน่อยคับ จากไฟล์ เมื่อเราคลิ๊กปุุ่ม Detail จากฟอร์ม frmMainMenu จะปรากฎฟอร์ม frmBoxDetail เพื่อกรอกข้อมูล

คำถามแรก คือ เมื่อเราเริ่มเรคคอร์ดใหม่ในบรรทัดใหม่ ที่ฟิลด์ Sequence ผมต้องการให้ ฟิลด์ SerialNo /BoxNo / Shelf จากบรรทัดใหม่ ให้เหมือนกับบรรทัดก่อนหน้านี้

คำถามที่สอง คือ อยากให้ฟิลด์ Sequence รันนัมเบอโดยเมื่อขึ้นบรรทัดใหม่ที่ฟิลด์ Sequence ให้รันเลขต่อจากบรรทัดก่อนหน้า โดยใช้ GotFocus จะเขียนโค้ดว่าอย่างไรบ้าง ขอบคุณมากครับผม

34
ผมสร้าง Table สำหรับบันทึกข้อมูล โดยกำหนดให้ฟิลด์ No เป็น AutoNumber รายละเอียดดังนี้

No        Code           CustomerName
1           001                   นาย ก
2           001                   นาย ก
3           001                   นาย ก
4           002                   นาย ข
5           002                   นาย ข
6           003                   นาย ค
7           004                   นาย ง
8           004                   นาย ง
9           004                   นาย ง
10         004                   นาย ง

ผลที่ต้องการคือ

Code
001
002
003
004

ผมต้องการข้อมูลรายละเอียดของฟิลด์ Code ซึ่งไม่ซ้ำกัน แต่มีเงื่อนไขว่า ต้องเรียง ตามลำดับการคีย์ข้อมูล ไม่ทราบว่าต้องทำอย่างไรบ้างครับ
ถึงจะให้ได้ผลตามที่ต้องการ ขอบคุณครับผม


35
ผมสร้างฟิลด์ เป็น Number แต่เวลาใส่จำนวนเงินที่เป็นทศนิยม ระบบปัดเศษให้เองครับ จะมีวิธีใดบ้างครับที่จะไม่ให้ระบบปัดเศษครับ ขอบคุณครับผม

36
ห้อง MS Access / สอบถามเรื่อง Dlookup ครับผม
« เมื่อ: 03 มิ.ย. 61 , 22:03:47 »
ผมได้สร้างตาราง tblBranch ประกอบด้วยฟิลด์
- BranchCode
- CostCenter
- BranchName
- BusinessBranch
- Area
ผมสร้างฟอร์มกรอกข้อมูลโดยมีรายละเอียดดังนี้ ผมสร้าง textbox ไว้ 4ตัว คือ
- txt_BranchCode
- txt_BranchName
- txt_Branch
- txt_Area

ตัว txt_BranchCode ผมทำเป็น Combobox ไว้ ผมต้องการให้เมื่อเลือกข้อมูลใน txt_BranchCode

แล้วให้ txt_BranchName , txt_Branch , txt_Area แสดงข้อมูล เหมือน Vlookup ใน excel น่ะครับ

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

หน้า: 1 [2] 3