แสดงกระทู้

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 3 4 ... 6
1
โปรแกรมแจกฟรี (ส่งท้ายปีเก่า ต้อนรับปีใหม่) นี้ ใช้ชื่อว่า Q2RFree

เหมาะสำหรับผู้ทำอาชีพอิสระที่จำเป็นต้องออกพวกใบเสนอราคา/ใบแจ้งหนี้/ใบเสร็จ

ตัวโปรแกรมใช้ระบบ MS Access มีความสามารถดังนี้
1. เก็บข้อมูลลูกค้าได้
2. เก็บข้อมูลการออกเอกสารทุกรายการได้
3. สำเนารายการจากเอกสารที่มีอยู่ได้ สำหรับกรณีทำงานเดิมอีกครั้ง หรือจะสำเนาจากใบเสนอราคาไปเป็นใบแจ้งหนี้แล้วต่อด้วยใบเสร็จก็ได้
4. สามารถใส่ Logo ได้ (อย่าลืมไปจดทะเบียนเครื่องหมายการค้าก่อนนะครับ)
5. ถ้ายังไม่มี Logo ก็สามารถออกเอกสารแบบที่ไม่มี Logo ได้
6. เปลี่ยนสีหัวเอกสารได้ จะแดง/เขียว/น้ำเงิน/ชมพู/ฟ้า/เหลือง ได้หมด ไม่มีสีดำ เพราะทำแล้วดูไม่ได้
7. ทุกเอกสารมีให้เลือก 2 แบบ ตามความชอบ

ดาวน์โหลดได้เองเลยที่ลิงก์ด้านล่างนี้
https://1drv.ms/u/s!ArcuGeSfhpiQhwGsRn9TPBxFIpp-?e=c1NGeI

สุดท้ายอย่าลืมอ่านคู่มือก่อนนะครับ
ติดปัญหาอะไรอีเมลมาถามได้ ตอบทุกอีเมลแน่นอน ถ้าไม่ตอบก็รอหน่อย เมลอาจตกไปอยู่ใน Jung Mail

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

2
สร้าง Select Query แล้วเปลี่ยนเป็น Append Query กำหนดตารางที่จะส่งข้อมูลไป
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

3
คิวรี่กรองข้อมูลเดือนก่อนหน้ากำหนด Criteria เป็น
Year([ชื่อฟิลด์วันที่])* 12 + DatePart("m", [ชื่อฟิลด์วันที่]) = Year(Date())* 12 + DatePart("m", Date()) - 1

ทึีมา : ตัวอย่างการใช้วันที่เป็นเกณฑ์ในคิวรีของ Access
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

4
หนูได้สร้างคิวรี่A โดยกรองข้อมูลจากตารางA เอาไว้้เรียบร้อยแล้ว
และหนูก็ได้สร้างตารางB เอาไว้อีกตารางหนึ่งซึ่งมีโครงสร้างตรงกับคิวรี่A ทุกประการ

ความต้องการของหนูก็คือ
ต้องการคำสั่งที่จะโยนข้อมูลจากคิวรี่A เข้าสู่ตารางB เฉพาะเมื่อต้องการค่ะ
โดยที่หน้าฟอร์มจะมีปุ่มชื่อ "โยนข้อมูล" เพื่อเตรียมจะใส่คำสั่งดังกล่าวค่ะ
ตอบ ใช้ Append Query

ในคิวรี่ เราจะกรองข้อมูลย้อนหลัง เอาเฉพาะข้อมูลเดือนก่อนหน้าเดือนปัจจุบันเพียงหนึ่งเดือน ได้อย่างไรคะ
ตอบ กำหนด Criteria ให้วันที่เป็นวันที่ที่ต้องการ

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

5

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

6
คือผมจะให้บรรทัดที่เป็น New ด้านล่าง ให้มาอยู่บรรทัดข้างบนสุด ต้องเขียนโค้ดยังไงครับ ขอบคุณมากครับผม

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

7
เหมือนเดิมเลย
Left([ฟิลด์],InStr([ฟิลด์],'(')-1) & Mid([ฟิลด์],InStr([ฟิลด์],')')+1,Len([ฟิลด์]))
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

8
Option Compare Database

Function setNewText(text As String) As String
Dim strText As String
Dim newString As String
strText = Left(text, 3)

Select Case strText
Case "5-1": newString = Replace(text, strText, "A-")
Case "6-1": newString = Replace(text, strText, "B-")
Case "7-1": newString = Replace(text, strText, "C-")
Case "8-1": newString = Replace(text, strText, "D-")
Case "9-1": newString = Replace(text, strText, "E-")
Case Else: newString = "Error"
End Select
setNewText = newString
End Function
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

9
ลองฟังก์ชั่น Replace() ดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

10
ถ้า Format มันชัดแบบนี้ ทำไมไม่ใช้ Left Right หล่ะครับ แล้วก็ใส่ IIF ไปตามเงื่อนไข
IIF(Left([ฟิลด์],3)='8-1','A-'&Right([ฟิลด์],3),'B-'&Right([ฟิลด์],3))
ไม่รู้ใช่แบบนี้ป่าว
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

11
ใช้งานได้ปกติ มีการ Update ใหม่เป็นระยะๆ ทำให้โปรแกรม 365 ทันสมัยอยู่เสมอ ไม่มีปัญหากับรุ่นอื่นๆ ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

12
วิธีการ 1: ดาวน์โหลด Comdlg32.dll และติดตั้งด้วยตนเอง
  • คัดลอกไฟล์ไปยังไดเร็กทอรีการติดตั้งโปรแกรมหลังจากที่ไม่มีไฟล์ DLL
  • หรือย้ายไฟล์ DLL ไปยังไดเร็กทอรีของระบบของคุณ (C:\Windows\System32 และสำหรับ 64 บิตใน C:\Windows\SysWOW64\)
  • ตอนนี้คุณต้องรีบูตเครื่องคอมพิวเตอร์

วิธีการ 3: ติดตั้งหรือติดตั้ง Microsoft Visual C ++ Redistributable Package ใหม่
  • ข้อผิดพลาด Comdlg32.dll อาจปรากฏขึ้นเนื่องจาก Microsoft Visual C ++ Redistributable Package คุณควรตรวจสอบการอัปเดตและติดตั้งซอฟต์แวร์ใหม่ ใช้ Windows Updates ค้นหาการดำเนินการนี้ เมื่อคุณพบ Microsoft Visual C ++ Redistributable Package คุณสามารถอัปเดตหรือลบเวอร์ชันที่ล้าสมัยและติดตั้งโปรแกรมใหม่ได้

ที่มา : Download Comdlg32.dll for Windows 10, 8.1, 8, 7, Vista and XP - 32 Bit and 64 Bit
https://windll.com/th/dll/microsoft-corporation/comdlg32
https://www.exefiles.com/th/dll/comdlg32-dll  / WinThruster เป็นโปรแกรมที่เว็บเขาโฆษณาจะลองดูไหมแล้วแต่นะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

13
ใช้งานได้เป็นอย่างดี ประหยัดเวลาทำงานไปอีกเยอะเลยครับ
ขอบพระคุณอาจารย์มากครับ  /|\
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

14
ลองดูคลิปตัวอย่างเผื่อช่วยเป็นไอเดียได้ครับ

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

15
ผมทำหน้าฟอร์มสลิปเงินเดือนมา 1 ฟอร์ม
เปิดฟอร์มมา มีข้อมูลครบแล้ว
อยากได้คำสั่งในปุ่มให้
Click แล้ว คำสั่งแรก กดปุ่มที่คีบอร์ด Alt+Printsceen
แล้วเอาไฟล์ที่ได้วางเป็นรูปภาพนามสกุล Jpg. (ตรงนี้ไม่รู้ทำได้ป่าว)
คำสั่งต่อไปคือเปิด หน้าต่างให้เลือกที่วางไฟล์ และตั้งชื่อเอง

ขอบพระคุณอาจารย์ทุกท่านที่ชี้แนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

16
กำหนด Data Type ก็ป้องกันได้แล้วครับ ไม่ต้องทำอะไรเลย
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

17
หายไปตั้งนาน
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

18
อ้างถึง
สิ่งที่หนูต้องการคือจะแยกเอาเฉพาะ ข้อความแรก มาใช้เท่านั้น
โดยหนูคิดวางแผนว่าจะดักจับเอาช่วงที่เขาเริ่มเว้นวรรคหรือช่วงที่เขาเริ่มใส่วงเล็บ ประมาณนี้ค่ะอาจารย์

ใช้การสร้างฟังชั่นในการแสดงผลในคิวรี่นะครับ
วิธีการ
1 สร้าง Module ใส่ Code
โค๊ด: [Select]
Public Function GetString(FieldTarget As String) As String
Dim CuttingString As String

If Not (InStr(FieldTarget, "(") = 0) Then
CuttingString = Left(FieldTarget, InStrRev(FieldTarget, "(") - 1)
ElseIf Not (InStr(FieldTarget, " ") = 0) Then
CuttingString = Left(FieldTarget, InStrRev(FieldTarget, " ") - 1)
ElseIf Not (InStr(FieldTarget, "") = 0) Then
CuttingString = FieldTarget
End If

GetString = Trim(CuttingString)
End Function

2.ที่คิวรี่ใส่แบบนี้
โค๊ด: [Select]
คำทักทาย: GetString([ทักทาย])
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

หน้า: [1] 2 3 4 ... 6