แสดงกระทู้

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] 2
1
รับสอนทำนะครับ
ถ้าสนใจทักมาครับ

2
ช่องทางการติดต่อ
Tel. ศูนยฺ์81-906 ห้าสองเก้าหนึ่ง <-- เพื่อป้องกันพวกมิจ แอบเอาเบอร์ไปใช้ครับ
Line ID : 36202015  <-- ไม่ได้ตั้งค่าเป็น Auto AddFriend

สะดวกโทรมากกว่า Add Line

3
สวัสดีครับ
สำหรับเพื่อนสมาชิกท่านใดติดปัญหา mdb ไฟล์ชำรุด ฟ้อง Unrecognized database format
สามารถติดต่อมาที่ผมได้ครับผม


4
ห้อง Ms Access อื่นๆ / รับแกะ Password mdb File
« เมื่อ: 20 มี.ค. 67 , 13:33:35 »
สวัสดีครับ
สำหรับเพื่อนสมาชิกท่านใดติดปัญหา Password เวลาเปิดไฟล์หรือต้องการเข้าถึงข้อมูลไฟล์ mdb แล้วติดรหัสผ่าน
สามารถติดต่อมาที่ผมได้ครับผม


5
ในความเห็นของผม
ถ้าจะให้ถูกตามหลักการ เกี่ยวกับเลขที่ Inv ถ้าถูกใช้แล้ว หากต้องการยกเลิก ควรจะมีฟิลด์สักอันหนึ่งเป็นตัวมาร์คว่า  Cancel
เป็นต้นว่า InvCancel = (Y/N)
เพราะจะได้ทราบว่า Inv เลขที่ดังกล่าวโดน Cancel ในระบบไปแล้ว แต่ตัวเอกสารจริงอาจจะไปถึงมือ หรือ อยู่ในมือลูกค้า
หากมีประเด็นก็จะได้ทราบว่า เอกสาร เลขที่ดังกล่าวโดนยกเลิกไปแล้ว
ถ้าลบ ก็จะเป็นการลบร่องรอยของเอกสารที่ออกไป

6
ก็ลองทำเป็นตัวอย่างออกมาให้แกะตัวอย่างโค๊ต และนำไปประยุกต์ต่อนะครับ
ส่วนหนึ่ง ต้องลองฝึกแกะโค๊ตด้วยครับ จะได้เข้าใจหลักการ ไม่กล้าก็ไม่เกิดครับ


7
มีน้องอีกคน ไม่ทราบวิธี Save As ไฟล์จาก accdb --> mdb
ผมรบกวนเข้าไปแนะนำหน่อยครับ
https://www.thai-access.com/index.php?topic=2436.msg16060#new

8
ถ้า Save เป็น mdb ไฟล์ไมไ่ด้ผมก็คงช่วยไม่ได้
คงต้องรบกวน กูรูท่านอื่นครับผม

9
รบกวน Save as ไฟล์ตัวอย่างเป็น Accdb --> MDB ไฟล์ แล้ว Upload เข้ามาให้ด้วยครับ
พอดีผมใช้ access 2002

ข้างใน Zip ไฟล์ที่ส่งมายังเป็น Accdb อยู่ครับ ขอเป็น mdb ไฟล์ครับ

แต่เท่าที่อ่านดู ใจความสำคัญคือ นับวันอบรม ไม่นับวันอาทิตย์ Weekday()
โดยฟังค์ชั่นนี้ จะนับวันอาทิตย์ = 1 เรื่อยไป เสาร์ = 7

เราก็สามารถใช้ประโยช์จากตรงนี้มาประยุกต์ใช้งานได้ครับผม

10
ใช้ DAO ร่วมกับคำสั่ง Do While

Do while not rst1.EOF
   เงื่อนไขที่ 1

   เงื่อนไขที่ 2

   เงื่อนไขที่ 3

  rst1.movenext
Loop

11
Function GenInvNo()
    Dim rst1, rst2, rst3 As DAO.Recordset
    Dim vStkID, vInvID, vInv1, vInv2, IntMax, vValRef As Long
    Dim vStkNo, vInvNo, vInv As String
   
    Dim dbs As Database
    Set dbs = CurrentDb()
   
    If IsNull(Me.INvNo) Or (Me.INvNo = "") Then
        'สร้างเลขที่ Inv ใบใหม่
        vInv = "IV" & Format(Date, "yy") & Format(Date, "MM")
        If DCount("Val(Right([InvNo],4))", "[tbl_main]", "Mid([InvNo],1,6) = '" & vInv & "'") = 0 Then
            vInvNo = vInv & "0001"
           
        Else
            IntMax = DMax("Val(Right([InvNo],4))", "[tbl_main]", "Mid([InvNo],1,6) = '" & vInv & "'")
            vInvNo = vInv & Format(IntMax + 1, "0000")
           
        End If
       
        'ใส่ค่าลงไป
        Me.INvNo = vInvNo
   
    End If
   
End Function


12
อันนี้ต้องทำหน้าแยกเพิ่มขี้นมาอีกอันในการยกเลิกรายการ โดยอาศัยหลักการเดียวกัน เพียงแต่จากบวกเพิ่มเป็นลบ

      rst2.Edit
      rst2!Qty = rst2!Qty - 1
      rst2.Update

หรือจะไปกำหนดให้ User ไปแก้จำนวนเอาก็ได้ที่ SubForm โดยไปดูที่ Property ของ SubForm : Editting แต่มีความเสี่ยงตรงแก้ผิด
วิธีที่ปลอดภัยสุดคือ ยิงด้วยเลขที InvNo --> ยิงบาร์โค๊ต เพื่อให้ระบบวิ่งไปตรวจสอบความถูกต้องแล้ว ค่อยลดจำนวน

ลองฝึกทำครับ แค่ประสบการณ์จะบังเกิด

13
ผมมีปรับตัวอย่างเพิ่ม เป็น Sample3.Zip
หากต้องการลบ รายการไหนให้คลิ๊เลือกแบบนี้แล้วกด Del


14
ให้ Download ตัวอย่างไฟล์อีกครั้งครับ
ผมมีการปรับให้ใหม่แล้ว

16
ได้ทำตัวอย่างมาให้ศึกษาเป็นแนวทางแล้วนะครับ
โดยมีการแก้ไขซื่อฟิลด์ที่ซื่อ ID ในบาง Table เพื่อให้มือใหม่ได้ตามถูก
เนื่องจากตัวอย่างต้นฉบับที่ได้มาใช้ฟิลด์ ชื่อ ID เหมือนกันหลาย Table อาจจะทำให้เกิดความสับสนได้

โดยตัวอย่างที่ทำให้มีทำตัวอย่างฟังค์ชั่นอื่นเพิ่มให้นิดหน่อย เพื่อ่ให้มองเห็นภาพได้เร็วขี้น

17
สามารถทำได้ครับ โดยใช้ DAO ช่วยจะทำให้ง่ายขี้น
แต่เนื่องจากไฟล์ตัวอย่างที่ให้มานั้นเป็นเวอร์ชั่นใหม่ รบกวน Convert ลงเป็น Access2002
ที่มีนามสกุล mdb แล้ว Upload เข้ามาใหม่ครับ เพราะผมใช้เวอร์ชั่นเก่า เลยไม่สามารถทำเป็นตัวอย่างให้ได้ครับ

18
ไม่ทราบว่า น่าจะเคยใช้ App. ธนาคารกันทุกคน
โดย App. จะมีเมนูให้สร้าง QRCode : ThaiPayment เหมือนที่แม่ค้าทั่วไปเตรียมไว้ให้เรา Scan จ่าย
เราก็เพียง Cap หน้าจอนั้นเป็นรูป Save เป็นนามสกุล JPG แล้วไปครอบตัดในส่วนที่เป็น ส่วนที่เป็นหน้าตา QR Code
จากนั้นเอารูปที่ได้ไปแทรกลงฟอร์มหรือ บน Report เพื่อให้อำนวยความสะดวกให้ผู้ใช้สามารถ Scan ได้เลย

หรือหากต้องการสร้างบาร์โค๊ตที่เป็นรูปแบบของเราต้องการก็สามารถทำได้โดยทำการ Download Font QRCode มาติดตั้งเพิ่ม
ต้องหาในNet เอาครับ มีทั้งฟรีและไม่ฟรี แต่ที่ผมใช้อยู่คือ เอา QRCode ที่ไม่ฟรีมาแคร๊กเอา

ข้อดีของ QRCode คือ ยิงติดง่าย ต่างจากบาร์โค๊ตแท่ง แต๋เครื่องอ่านก็ต้องรองรับ QRCode ด้วยเช่นกัน

หน้า: [1] 2