แสดงกระทู้

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

หน้า: 1 ... 11 12 13 [14] 15 16 17 18
235
ฟอนต์ calibri ที่ผมมี ลองเอาไปลงทับทุกเครื่องดูครับ :shout:
หรือจะแบ่งไฟล์อัพมาให้ดูกันว่าใครลองเปิด+ลองปริ้นแล้วเป็นอย่างไรก็ดีนะ :smile:

236
จากรูปนี้ ในสายตาผมมองเห็นว่ามันใช้คนล่ะฟอนต์กันนะ ลองก๊อปฟอนต์ทั้งหมดไปลงอีกเครื่องดูครับ / หรือจะแก้ฟอร์มใหม่ให้ใช้ฟอนต์มาตรฐานที่คิดว่ามีทุกเครื่องก็จะดีนะ



เรื่องเวลา เป็นที่การตั้งค่าเวลาของเครื่องนั้นๆครับ หรือไม่ก็ต้องใช้วิธีเขียนมาโครตรวจสอบแล้วแก้ให้เมื่อปริ้นออกมาแล้วเป็นอย่างใดอย่างหนึ่งตรงกัน(อาจอธิบายไม่เก่ง ลองหาวิธีในเว็บนี้ดูครับ)

238
ทดสอบเปลี่ยนเดือน เลขสามตัวท้ายไม่กลับไปเริ่มนับ 001 นะครับ (ฉบับมาโครก็เช่นเดียวกัน)

  RunnungNum    myDate    Data 
  6107001   26-07-18    11
  6107002   26-07-18    22
  6108003   01-08-18    33
  6108004   01-08-18    44
  6109005   01-09-18    55
  6109006   01-09-18    66

239
ขอขอบคุณท่านปิ่นณรงค์ครับ :love: ใช้ได้สมบูรณ์ตรงตามเป๋าหมาย
ขอบคุณ อ.OddyWriter ด้วยครับ(จากมาโครเล็กๆ ต่อความมาซะยาวเลยนะนี่เรา :nice day:)
ขอบคุณ.preechaaesanan คุณ.Kxess ครับสำหรับแนวทางเพิ่มเติม :slobber:

240
ขออภัยด้วยครับ ที่ผมอยากให้มีผลคือเลข RunnungNum นะครับ
ตัวอย่าง
  รูปแบบเวลาของคอมพิวเตอร์    แสดงบน txtDate    RunnungNum  
Thailand
25-07-61
6107xxx
English
25-07-18
6107xxx

หรือก็คืออยากให้ RunnungNum เป็นปี พ.ศ.(61...)ไม่ว่าเครื่องๆนั้นจะใช้เวลาแบบใดนะครับ

241
สอบถามเพิ่มเติมครับ
"ทำอย่างไรให้ตรวจสอบว่าเครื่องๆนั้นใช้ปี ค.ศ. หรือ พ.ศ. ถ้าใช้ปี ค.ศ. ก็ให้บวกเป็นปี พ.ศ." เพื่อให้เลขที่บิลที่ออกมาไปแนวทางเดียวกันนะครับ
ปล.พยายามเอาโมดูลมาใช้กลับไปไม่เป็นซะงั้น :spook:
โค๊ด: [Select]
Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Public Declare Function GetLocaleInfo Lib "kernel32" _
   Alias "GetLocaleInfoA" _
(ByVal Locale As Long, _
   ByVal LCType As Long, _
   ByVal lpLCData As String, _
   ByVal cchData As Long) As Long

Public Function GetUserLocaleInfo(ByVal dwLocaleID As Long, ByVal dwLCType As Long) As String
   Dim sReturn As String
   Dim r As Long
   r = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Len(sReturn))
   If r Then
      sReturn = Space$(r)
      r = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Len(sReturn))
      If r Then GetUserLocaleInfo = Left$(sReturn, r - 1)
   End If
End Function

Public Function mYear(ByVal yourDate As Date) As Long
    mYear = Year(yourDate)
    If GetUserLocaleInfo(GetSystemDefaultLCID(), &H1009) = 7 Then mYear = Year(yourDate) - 543
End Function

Public Function bYear(ByVal yourDate As Date) As Long
    bYear = Year(yourDate)
    If GetUserLocaleInfo(GetSystemDefaultLCID(), &H1009) <> 7 Then bYear = Year(yourDate) + 543
End Function
เครดิต อาจารย์ TTT อ.yeadram อาจารย์ PichaiTC เช่นกันครับ

242
เป็นที่เครื่องจริงๆเอาไฟล์กลับไปใช้ที่บ้านใช้ได้ซะงั้น   :sweat:
เดี๋ยวพรุ้งนี้กลับไปแก้เครื่องเจ้าปัญหาตามท่าน OddyWriter อีกที :dizzy:


เปลี่ยนรูปแบบวันที่ของเครื่องที่ใช้จากแสดงชื่อเดือนด้วยตัวอักษร  เป็น--> แสดงชื่อเดือนเป็นตัวเลขสองหลัก = ใช้งานได้แล้วครับ  :fake smile:

243
ยังคงใช้ไม่ได้ครับ
เห็นฟ้อง 'Jul' หรือเป็นที่เครื่องผมตั้งค่าเวลาเป็นอังกฤษ ต้องแก้อย่างไรโดยยังคงรูปแบบเวลาใว้ครับนี่



244
จากไฟล์ตัวอย่างไหงผมรันแมโครไม่ได้ครับนี่ (เปิดใช้งานแมโครทั้งหมด by access 2013 แล้ว)


245
ห้อง MS Access / : การ run number โดยไม่ใช้ autonumber
« เมื่อ: 28 มิ.ย. 61 , 11:55:49 »
หรือลองดูแนวทางครับ ผลการค้นหา AutoNo = Format

246
Nz คือฟังก์ชั่นในการกำหนดว่าเมื่อค่าในตัวแปลที่1 มีค่าเท่ากับ Null หรือก็คือว่างไม่มีค่าอะไรเลยให้มีค่าเท่ากับตัวแปลที่2

ดังนั้น Nz(Me.Amount, 0) จึงเป็นการกำหนดว่าเมื่อ Me.Amount ว่างให้มีค่าเท่ากับ 0

หมายเหตุ ทุกการคำนวนของโปรแกรมต้องมีค่า จะมา 1+2+Null+4 ไม่ดี,ไม่ควร(หรือจะใช้ไม่ได้ด้วยซ้ำไปครับ) :dizzy: 
            เมื่อใช้ Nz มาช่วยจะกลายเป็น 1+2+0+4 โปรแกรมจึงจะหาผลลัพธ์(=7)ให้ครับ
            หรือจะเอาไปประยุกต์ใช้อย่างอื่นนอกเหนือจากแนวคำนวนก็ได้นะ https://www.techonthenet.com/access/functions/advanced/nz.php

247
ห้อง MS Access / : สร้าง runing number บนฟอร์ม
« เมื่อ: 22 พ.ค. 61 , 14:34:15 »
ใน query ที่ดึงออกมาตามรูปนั้นมีข้อมูลอื่นที่เป็นข้อมูลที่ไม่มีค่าซ้ำเช่น เลขที่บิล,เลขที่... อีกใหมถ้ามีในมุมมองออกแบบใส่มันเข้ามาแล้วไม่อยากให้ใครเห็นค่อยไปสั่งซ้อนในมุมมองแผ่นข้อมูลก็ได้
หรือไม่มีข้อมูลอะไรที่ไม่มีค่าซ้ำกันถ้าจะทำตามวิธีนี้ก็ไปทำให้มีครับ


จากนั้นในกล่อง No ตามรูปใส่โค้ด
โค๊ด: [Select]
=GetLineNumber([Form],"Bill_no",[Bill_No])

ก็จะได้เลข No โดยอัตโนมัติ

249
> ออกแบบรายงาน(Report)บนขนาดกระดาษ A6
> ออกแบบรายงาน(Report)บนขนาดกระดาษ A4 แต่ให้มีเนื้อหาจริงๆแค่ครึ่งของกระดาษ A4 แนวตั้ง (ถ้ามีการทำหัวท้ายด้วยที่จบครับ :ouch:)
> รายงานเดิมสั่งปริ้นเป็น PDF > เปิดไฟล์ PDF สั่งปริ้นบนขนาดกระดาษ A6 (โปรแกรมจะทำเหมือนย่อรูปให้เอง :cool:)


คิดง่ายๆแนวคนไม่เก่งอ่านะ

250
ลองดูตัวอย่าง,แนวทางโดยอาจารย์ TTT และท่าน Newbies จากกระทู้นี้ครับ
> สอบถามการใช้ combo Filter มากกว่า1รายการ หรือ การใส่ filter sort แต่ละ column

251
ผมขออนุญาตหลังไมค์ไปถามหน่อยได้ไหมครับ
ผมอยากทราบแนวทางการศึกษาต่อด้วยตัวเองนะครับ เพื่อจะได้ไม่เป็นการรบกวนสมาชิกท่านอื่นด้วยครับ

เว็บบอร์ดแห่งนี้มีใว้เพื่อแบ่งปันความรู้,แนวความคิด,ปัญหา,แนวทางแก้ปัญหา,ฯลฯ โพสต์ได้ไม่ต้องเกรงใจครับ :grin:
แค่ว่าโพสต์แล้วคำตอบตรงปัญหา,แก้ปัญหาได้ขนาดไหน ตรงใจหรือเปล่านั้นค่อยว่ากันครับ :shout: :shout: :shout:


@ เขียนคำถามให้ผู้ตอบเข้าใจ จะช่วยให้ผู้ถามได้คำตอบที่ชัดเจน และรวดเร็ว / @ คุณได้คำตอบที่ต้องการแล้วหรือยัง กลับมาอีกสักครั้งเพื่อแจ้ง ผู้ตอบ

252
 :vomit: ใจเย็นๆครับผู้ตอบมีไม่กี่ท่าน  :cool:
เมื่อ Status  |  ให้ Final
AA
A,DA
A,C,DA
DD
C,DD
P,DP

อืมเห็น Code - 004 มี Status A กับ P จะให้ Final เป็นอะไรครับ :want:

ปล.แค่มาช่วยถามนะ ไม่ได้ช่วยหาคำตอบ

หน้า: 1 ... 11 12 13 [14] 15 16 17 18