แสดงกระทู้

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 - สุภาพร

หน้า: [1]
1
ห้อง MS Access / : สร้าง QR Code
« เมื่อ: 15 พ.ค. 61 , 11:25:16 »
เจอวิธีทำจากลิงค์นี้ค่ะ จะลองทำตามดู


แต่อยากทราบว่าไฟล์ที่ใช้เป็น QR Codeสำหรับ 32บิต และ64บิต
ถ้าเครื่องเราเป็น64บิต ใช้ไฟล์64บิต เมื่อทำโปรแกรมเสร็จSaveเป็น .accde 
เมื่อนำไปเปิดเครื่องลอื่นที่เป็น 32บิต สามารถเปิดได้ไหม หรือต้องแก้ไขกันเกิดกรณีนี้ยังไงคะ

ตอนเขียนโค้ดตรงนี้จะระบุยังไง
โพสต์นี้ได้รับคำขอบคุณจาก: สุภาพร

2
แก้เป็น

[Forms]![ชื่อฟอร์มหลัก]![frmtbl_Purdet].[Form]![Part_desc].Requery


ตัวอย่างด้านล่าง
โพสต์นี้ได้รับคำขอบคุณจาก: สุภาพร

3
อ้างอิง control ใน subform ให้ลองใช้แบบนี้ครับ

Private Sub Form_Close()
   Forms.[ชื่อMain_Form].frmtbl_Purdet.Form.Part_desc.Requery
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: สุภาพร

4
ขอบคุณมากค่ะ

ลองทำดูแล้วพยายามแก้ code แต่มันขึ้น error  ตอนที่คำสั่งให้ Combo Box ทำ requery เนื่องจาก combo box อยู่ใน subform ชื่อ frmtbl_purdet จะต้องเขียนคำสั่งยังไงคะ




ตอนนี้เขียน code ตอนปิดฟอร์มที่บันทึกรายการอะไหล่ แล้วสั่งไป requery คอมโบ้บอกซ์ซี่งอยู่ใน subform ชื่อ frmtbl_purdet แล้วมันขี้น error ตลอด

 Private Sub Form_Close()
   Forms.frmtbl_Purdet.Part_desc.Requery
End Sub

รบกวนสอบถามอีกครั้งค่ะ

ถ้าพี่จะทำแค่เพิ่มรายการแล้วให้ requery ที่ Control ตัวนี้ให้แสดงรายการล่าสุดนั้น เพิ่ม ที่ ตัว Control ตัวนั้นเลยก็ได้ครับ
ที่ frmtbl_purdet ใส่คำสั่ง ที่ Control Part_desc ใน event GotFocus
โค๊ด: [Select]
Private Sub Part_desc_GotFocus()
me.Part_desc.requery
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: สุภาพร

5
อ้างถึง
1. Form Purchase order จะต้องเขียนคำสั่งใน combobox.afterupdate() อย่างไรคะ

ผมว่าถ้าต้องการจะหาค่าที่ไม่ได้อยู่ในรายการนั้นใช้ Event NotInList ดีกว่าครับดังในรายการนี้
เป็นคำสั่งที่กำหนดไว้ที่ตัว Combobox ครับ เมื่อไม่มีในรายการให้ แจ้งเตือน ถ้าตอบ Yes ก็จะเปิดฟอร์มที่ต้องการให้เรา
โค๊ด: [Select]
Private Sub ReviewParts_NotInList(NewData As String, Response As Integer)
   
    Dim i As Integer
    Dim Msg As String
 
    If NewData = "" Then Exit Sub
    Msg = "'" & NewData & "' ไม่มีในรายการ" & vbCr & vbCr
    Msg = Msg & "ต้องการเพิ่มรายการใหม่ ?"

    i = MsgBox(Msg, vbQuestion + vbYesNo, "ระบบตรวจสอบ")
    If i = vbYes Then
        DoCmd.OpenForm "frmAddtbl_product", acNormal
        Response = acDataErrAdd
        Else
        Me.ReviewParts.Undo
        Response = acDataErrContinue
               End If               
End Sub
ส่วน
อ้างถึง
2. Form frmaddtbl_product จะต้องกำหนด property อย่างไรบ้างเพื่อให้รับค่าจาก Purchase order แล้วส่งค่ากลับหลังจาก user ปิดฟอร์ม frmaddtbl_product
ผมใช้การทำให้แสดง รายการที่เพิ่มล่าสุดจากฟอร์ม frmAddtbl_product ลงไปในรายการใหม่โดยอัตโนมัติครับ
โค๊ด: [Select]
Private Sub Form_Close()
Dim i As String
Forms.form_main.ReviewParts = Me.ReviewParts
Forms.form_main.ReviewParts.Requery
Forms.form_main.ReviewParts.SetFocus
i = Forms.form_main.ReviewParts.ListCount - 1
Forms.form_main.ReviewParts = Forms.form_main.ReviewParts.ItemData(i)
End Sub

ตัวอย่างด้านล่างครับ
โพสต์นี้ได้รับคำขอบคุณจาก: สุภาพร

6
ผมได้สร้างตารางการยืมสมุด ซึ่งในตาราง Table1 ประกอบด้วย NameBorrow,DateDeadline ซึ่งผมได้สร้างคิวรี่การยืมเกินกำหนด ชื่อ qryOverdue โดยนำตาราง Table1 มาแสดงในคิวรี่และได้เพิ่มฟิลด์ Overdue: [DateDeadline]-Date()
คำถาม คือ ผมต้องการจะสร้าง Report โดยมี Combo Box ซึ่งมีลิสต์ให้เลือก ระหว่าง ไม่ถึงกำหนดคืน กับ เกินกำหนดคืน จะมีวิธีการอย่างไรบ้างครับ เพื่อให้รีพอตออกมาแบบนี้ครับ ขอบคุณมากครับ

ผมว่าตรง [DateDeadline]-Date()  เปลี่ยนเปนหาว่า เกินกำหนดคืน หรือยังดีกว่านะครับ
ซึ่งเราอาจจะใช้ฟังชั่น IIF เช่น
โค๊ด: [Select]
CheckOverdue: IIf([Datedeadline]>Date(),"ไม่เกินกำหนดคืน","เกินกำหนดคืน")ที่ช่อง Criteria ของ CheckOverdue ดังนี้
โค๊ด: [Select]
[Forms]![Form1]![CheckOverdue]แล้วสร้างฟอร์ม มา 1 form ผมตั้งชื่อว่า Form1 กับ ComboBox ชื่อ CheckOverdue โดย มี List ไม่เกินกำหนดคืน กับ เกินกำหนดคืน
แล้วกด ปุ่ม เพิ่มเปิดรายงานขึ้นมา

ขอบคุณมากครับผม
โพสต์นี้ได้รับคำขอบคุณจาก: สุภาพร

7
ผมเข้าใจว่าคงถามถึงการแปลงจาก Access ไป SQL Server ใช่หรือไม่ เราสามารถใช้โปรแกรม SQL Server Migration Assistant for Access https://docs.microsoft.com/en-us/sql/ssma/access/installing-sql-server-migration-assistant-for-access-accesstosql link ที่ไมโครซอฟท์มีให้เพื่อแปลงข้อมูลไปยัง SQL Server ได้  แต่อาจมีเงื่อนไขบางอย่างที่ไม่สามารถแปลงได้ ดูได้จากหัวข้อ Incompatible Access Features (AccessToSQL)   ส่วนประเภทข้อมูลว่าแปลงไปแล้วกลายเป็นประเภทไหน ในหัวข้อ Project Settings (Type Mapping) (AccessToSQL)ก็มีบอกไว้ครับ

ส่วนเรื่องของตัวโปรแกรมฝั่ง Access เองก็อาจต้องมีการปรับแก้ ขึ้นอยู่กับต้องการให้เรียกใช้คุณสมบัติของ SQL Server มากน้อยแค่ไหน เช่น การล็อคอินเข้าไปยัง SQL Server, การกำหนดไม่ให้ ODBC หรือตัว SQL Server ตัดการติดต่อหรือยกเลิกงานเพราะ Timeout, การเรียกใช้ Stored Procedure (โค้ดที่เขียนบน SQL Server เอง) ฯลฯ
โพสต์นี้ได้รับคำขอบคุณจาก: สุภาพร

8
เว็บบอร์ดใหม่มีอะไรบ้าง

: ใครๆก็ทำได้/ใช้ได้
> ดู/อ่าน ค้นหากระทู้ ข้อความ (ค้นหาโดย Google(ขวาบน) สามารถค้นหาเจอทั้งบอร์ดนี้ และบอร์ด อ.yeadram/อ.สุภาพ ครับ)
> (18 ธ.ค. 62)ปรับปรุงให้หน้าเว็บรองรับการใช้งานบนมือถือ(responsive forum)

: สำหรับสมาชิก (กดที่นี้สมัครเลย สามารถเชื่อมผ่านไอดี Facebook Google/Gmail instagram twitter ก็ได้ครับ)
> ชื่อนั้นเป็นของคุณ (สมัครเข้าใช้งานครั้งแรกระบบจะใช้ชื่อล็อคอินเป็นชื่อที่แสดงหน้าบอร์ด จึงเปิดให้สามารถเข้าไปแก้ชื่อที่จะให้แสดงได้
                         ข้อมูลส่วนตัว->account setting -> ชื่อ... ได้ 60ตัวอักษร *ขอสุภาพๆนะ )
> ตั้งกระทู้ใหม่,โพสถาม-ตอบ
> ตั้งกระทู้สำรวจความคิดเห็น(โพลล์) , โหวต
> ไม่ต้องพิมพ์รหัส Verification
> ไม่ให้แสดง E-mail ได้ Allow users to email me =
> แนบไฟล์/อัพโหลดภาพ (รูปภาพเก็บใว้ให้ไม่มีวันลบ *สคริปโหลดช้าหน่อยอยู่ด้านล่างกล่องโพส & อัพได้ทีล่ะรูป แต่ในหนึ่งโพสจะใส่กี่รูปก็ได้นะ)
--->> ขอให้ใจเย็นๆในการอัพรูป กดอัพแล้วรอ>เสร็จแล้วคัดลอกลิงค์มาใส่ในโพส(ทำเหมือนไปใช้เว็บฝากรูปที่อื่นอ่านะ)แล้วค่อยกดอัพใหม่ครับ
> แทรกข้อความเป็น http,www จะถูกแปลงเป็นลิ้งให้โดยอัตโนมัติ (ระวังกันเองนะ)
> แทรกคลิบ youtube กดเล่นได้เลย  (htps://พพพ.youtube.com/w....) หรือ [youtube.] url [/youtube ]
> มีปุ่ม ขอบคุณ อยู่ตรงแถบเครื่องมือด้านขวาบนของโพสนั้นๆ  (สมาชิก-สมาชิก)
--->> เพื่อเป็นเกียจติให้กับท่านที่ช่วยคุณ สมัครแล้วมากดขอบคุณกันตามความสะดวกครับ
> PM ข้อความส่วนตัว (สมาชิก-สมาชิก)
> ส่งอีเมลแจ้งเตือนกระทู้ที่สมาชิกเปิดแจ้งเตือนใว้
> แก้ไขข้อความเวลาโพสหรือตอบผิด
> ฟังก์ชั่นเก็บกระทู้ที่สนใจ

โพสต์นี้ได้รับคำขอบคุณจาก: สุภาพร

หน้า: [1]