แสดงกระทู้

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 - assetthai

หน้า: [1] 2
1
รบกวนสอบถามครับ ถ้าจะทำ shortcut เปิดโปรแกรมและกำหนด version ในคอม เพื่อรัน msaccess จะต้องทำอย่างไร เพราะในเครื่องมีทั้ง 2013 และ 2019 พอเปิด 2013 ปุ่มฟอร์มจะใหญ่และเพี้ยน ๆ แต่พอเปิดกับ 2019 ปุ่มต่างจะตรงตามที่เรากำหนด ปัจจุบัน ต้องเลือก openwith เพื่อกำหนด access แบบ manual ครับ ผมอยากให้กำหนดใน shortcut และเลือก version ให้เป็น 2019่ ไปเลย (เครื่อง 64 bit ครับ)

2
ขอบคุณมากๆครับ ตรงจุดประสงค์ครับ  :love: :love: :love:

3
ข้อที่ 1. ผ่านครับ
ข้อที่ 2. คำนวณจากเงินต้น เช่นเงินต้น 55000 บาท(จำนวน) ตามที่ระบุ ข้อมูลตรงนี้ผมจะเป็นผู้กำหนด โดยอ้างอิงจาก textbox ใน ฟอร์ม เองครับ ใน code ผมยกตัวอย่างที่ 55000 โดยถ้า 36 งวด จะได้งวดละ 1528 และงวดสุดท้าย ตัวเลขต้องเป็น 1520 ถึงจะ sum รวม กันได้ 55000
ซึ่งงวดสุดท้าย จะน้อยกว่าทุก ๆ งวด แล้วแต่ เศษที่เหลือครับ

4
ผมได้ตัวอย่างในบอร์ดมาครับ จะทำคำนวณเงินต้นและดอกเบี้ย แต่งวดสุดท้ายถ้า Sum รวมกันแล้วมันเกินเงินต้นอยากให้งวดสุดท้าย รวมเศษที่เหลือทั้งหมดรวมกับค่างวดในงวดสุดท้ายนั้นด้วยครับ
ผมมีตาราง Table1 เก็บข้อมูลตาม Code ครับ

มีคำถาม 2 ข้อครับ
1. มีดิวกำหนดชำระทุกวันที่5 ถ้าบวก 30 วันที่จะไม่ตรง แต่อยากให้วันที่เป็นวันที่ 5 (หรือวันที่กำหนด) ทุกเดือน
2. อยากให้เอาเศษที่เหลือรวมงวดสุดท้าย เมื่อเอาเงินต้นมาหารงวด เศษที่เหลือเท่าไหร่เอารวมในงวดสุดท้ายครับ

ขอบคุณครับ

โค๊ด: [Select]
    Dim rs As DAO.Recordset
    Dim i As Integer
    Set rs = CurrentDb.OpenRecordset("Table1", dbOpenDynaset)
    '---------------เพิ่มเรคคอร์ดใหม่--------------
    For i = 1 To 36 ' ใส่จำนวนเรคคอร์ดที่ต้องการ
        rs.AddNew
    'ใส่ชื่อฟิลด์ที่ต้องการ และใส่ค่า โดยกำหนด Data Type ให้ถูกต้อง ถ้าเป็น Text ต้องมี "" คล่อม ถ้าเป็นตัวเลขไม่ต้องมี
        rs!รหัส = "001"
        rs!ชื่อสินค้า = "งวดที่ " & i
        rs!วันครบกำหนด = Date + (30 * i)
        rs!จำนวน = (55000) / 36
        rs!ดอกเบี้ย = (((55000 * 15) / 100) / 12)
        rs.Update
    Next i
    '-----------------------------------------
    rs.Close: Set rs = Nothing

5
รบกวนสอบถามครับ ถ้าใน query ผมอ้างอิง แบบนี้ครับ  [Forms]![frmdashboard]![Childdash].[Form]![cmdgroup] แต่ถ้าจะอ้างอิง แบบ VBA Code จะต้องอ้างอิงแบบไหนครับ ผม copy มาวางในส่วน VBA แล้ว ไม่มีอะไรเกิดขึ้นเลยครับ 

อธิบาย ในส่วน childdash ผมทำเป็น กรอบ Child ไว้ เมื่อกดปุ่ม จะดึง form เข้ามาแสดง ชื่อฟอร์ม ว่า frmsearch_all_table ใน formนี้จะมี textbox ชื่อว่า cmdgrop ครับ

ขอบคุณล่วงหน้าครับ

6
ขอบคุณมากๆ ครับ ได้ตามจุดประสงค์ ขอบคุณครับ :love: :love: :love:

7
ขอบคุณครับ เดี๋ยวผมรออาจารย์ท่านอื่นด้วยครับ

8
รบกวนสอบถามครับ ผมมีพนักงาน 5 คน  มีลูกค้าจำนวน 100 คน แต่ละคนจะมอบหมายงานให้ดูแลลูกค้าจำนวนไม่เท่ากัน โดย กำหนดจำนวน ตามรูปภาพ
ผมจะทำเป็นปุ่ม เมื่อกดแล้ว ให้ชื่อพนักงานเข้าไป update กับฟิวส์ Employee_Assign ข้อมูลเดิม ตามจำนวนของพนักงานที่ได้กำหนดไว้ซึ่งแต่ละคนจะไม่เท่ากัน โดยมีเงื่อนไขว่า จะต้องเรียงลำดับจากตารางลำดับที่1-100 (ตารางผมทำเป็น Qry เรียงลำดับไว้แล้ว)ชื่อพนักงาจะเข้าไปวนจนครบจำนวนของแต่ละพนักงานแต่ละคน ถ้าพนักงานคนใดเมื่อครบแล้วให้หยุดเท่ากับจำนวนที่ได้กำหนดไว้ ส่วนพนักงานที่ยังไม่ครบ ไล่ลำดับต่อไปเรื่อยๆ ตามจำนวนของแต่ละคน (โดยไม่ให้ชื่อพนักงานถูกเรียงต่อกัน ยกเว้นลำดับท้ายๆ ที่อาจจะมีพนักงานคนใดคนนึงได้รับจำนวนมากกว่าคนอื่น)  ขอบคุณล่วงหน้าครับ

9
รบกวนสอบถามครับ ทำฟอร์มแบบ popup ต้องการให้ popup มีขนาด เท่ากับที่เราต้องการกำหนดเท่านั้น ต้องเขียน code แบบไหนเมื่อเรียกใช้งานครับ

10
ขอโทษครับ ทำได้แล้วครับ ผมใส่ ฟิวส์ต้นทางไม่ครบเองครับ ลืมกำหนดต้นทางในส่วนของ datetimestamp และฟิวส์อื่นเข้าเหมือนกันครับ  ขอโทษครับ

11
รบกวนสอบถามการ add record จากฟอร์ม (ไม่ได้ link table เป็นฟอร์มสำหรับรับข้อมูลเข้าตาราง)  ครับ ผมทำปุ่มไว้ และ ใส่ code ด้านล่างนี้ไว้ ใช้ฐานข้อมูลเป็น sql server 2014 ฟิวส์อื่นสามารถเพิ่ม record เข้าตาราง sql ที่ link เข้ามาได้ ยกเว้นฟิวส์ ตรง now() เพื่อนำเข้าวันที่ แบบ "01/12/2020  11:11:11" และ ที่เป็นรูปแบบ วันที่ และ จำนวนเงิน  DATEPTP และ PTPAMT เข้าไม่ได้ครับ

เท่าที่สังเกตุดูจะเข้าได้ ในรูปแบบ TYPE ที่เป็น text (nvarchar) ครับ

ตัวอย่าง Code ครับ

Private Sub Command124_Click()
If IsNull([ACTIVITY]) Then
MsgBox "โปรดบันทึกข้อมูลก่อน save", , "ห้ามข้อมูลว่าง"
Else

CurrentDb.Execute " INSERT INTO tblactivity(CONTRACT_NO, USER_COLL_NOTE, USER_EXE_NOTE, DATECONTACT,DATEPTP,PTPAMT,ACTION_COLL,RESULT_COLL,RECALL_COLL,ACTIVITY)" & _
                            " VALUES (" & contract_NO & " ,'" & txtthisuser & "','" & USER_EXE_NOTE & "','" & Now() & "','" & DATEPTP & "','" & PTPAMT & "','" & ACTION_COLL & "','" & RESULT_COLL & "','" & RECALL_COLL & "','" & ACTIVITY & "')"

End If
End sub

ขอบคุณครับ

12
รบกวนครับ  ผมทำเมนูไว้ใช้งานจาก แมโคร แบบเมนูกำหนดเอง และ ตอนเข้าโปรแกรม กำหนด user แบบ plublic เป็น 2กลุ่ม 1.กลุ่ม admin 2.กลุ่มผู้ใช้ทั่วไป ต้องการกำหนดสิทธิ สำหรับเมนู แบบให้เห็นเมนูแต่คลิ้กเข้าไปทำงานได้ และ ไม่ได้ สำหรับ สิทธิ์ 2 กลุ่มนี้ สามารถเขียน code vba อย่างไรได้บ้างครับ

14
สอบถามครับ โดยแยกเป็นคำถามดังนี้ครับ หลังการ เพิ่ม record ใหม่แบบ(Append) หลังจากนำเข้าข้อมูลเรียบร้อยแล้ว อยากให้มีข้อความแจ้งจำนวนที่นำเข้าไปครับ และ คำถามที่ 2 เป็นการ update เช่นกันครับ อยากให้แจ้งจำนวน record ที่ได้มีการ update เข้าไป  เช่น  นำเข้าทั้งหมด xxx Record เรียบร้อยแล้ว ,  ปรับปรุงข้อมูลจำนวน xxx Record เรียบร้อยแล้ว  ประมาณนี้ครับ   ขอบคุณครับ

16
รบกวนสอบถามอาจารย์ครับ ผมต้องการทำ ปุ่ม เพื่อจะลบ table ชื่อ table1 ออกจากฐานข้อมูล อยากให้โปรแกรมตรวจสอบก่อนว่ามีตาราง table1 อยู่หรือไม่ ถ้าไม่มี ให้ข้ามไปทำขั้นตอนต่อไป ถ้ามีให้ลบก่อน แล้ว ทำตามขั้นอื่นตอนต่อไป ขอบคุณครับ

17
ขอขอบคุณมากครับ ทำได้แล้วครับ  :love: :love: :love:

18
 รบกวนครับ  ผมต้องการสร้าง Query กรองข้อมูลล่าสุดเพียง 1 รายการ จากตาราง โดยใช้เลขที่สัญญา กับ วันที่ และเวลา ครั้งล่าสุดครับ

หน้า: [1] 2