สมัครสมาชิก

แสดงกระทู้

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] 2 3
1
ห้อง MS Access / : การ Split database
« เมื่อ: 11 พ.ย. 62 , 09:07:04 »
กระทู้แนวทางการ Split Database เพื่อใช้งานหลายๆเครื่องครับ
https://www.thai-access.com/topic_post.asp?CategoryID=1&TopicID=771
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

2
กำหนดรูปแบบวันที่ของ text2 เพิ่มเข้าไปตามตัวอย่างครับ
โค๊ด: [Select]
=[text1] & Format([Text2]," d mmmm yyyy")
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI, jee007

3
ลองไปศึกษา & โพสถามต่อจากกระทู้นี้นะครับ
พิกัด ละติจูด-ลองติจูดผูกกับฐานข้อมูล ms access กับ google map ใครพอมีตัวอย่าง
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI

4
ลองศึกษาจากกระทู้นี้ดูครับ >วิธีการใช้งานฐานข้อมูล access ผ่าน internet
โพสต์นี้ได้รับคำขอบคุณจาก: Jirawat Karirat

5
แนะนำให้ใช้ Me.ToTalWeight = Nz([cal2], 0) + 0
และเพิ่มเดิมนั่นคือมีการเรียกใช้ CalculateTotal คำนวนชุดล่างอยู่แล้ว ดังนั้นชุดบนเปลี่ยนชื่อสักนิดตามรูปตัวอย่างครับ


โค๊ด: [Select]
Private Sub WeightPerPack_AfterUpdate()
Call CalculateTotal2
End Sub
Private Sub WeightPallet_Afterupdate()
Call CalculateTotal2
End Sub
Private Sub PackPerPallet_Afterupdate()
Call CalculateTotal2
End Sub

Sub CalculateTotal2()
Dim cal1, cal2 As Double
cal1 = Nz([WeightPerPack], 0) * Nz([PackPerPallet], 0)
cal2 = Nz([cal1], 0) + Nz([WeightPallet], 0)

Me.ToTalWeight = Nz([cal2], 0) + 0
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

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

7
เปลี่ยนจาก Autorun เป็นเขียนมาโครขึ้นมาใช้เองแทนครับ
ตัวอย่างจากกระทู้นี้เลย > อยากได้ตัวอย่าง access การทำ running number แบบ ปี เดือน รันเลข 3 ตำแหน่ง มือใหม
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI

8
การนำไปใช้กับ Query ฉบับสมบูรณ์รอดูผู้รู้มาชี้แนะอีกทีนะครับ :prettiness:
โพสต์นี้ได้รับคำขอบคุณจาก: taedaneen

9
ผมนำไฟล์อ.OddyWriter จากกระทู้ > อยากได้ตัวอย่าง access การทำ running number แบบ ปี เดือน รันเลข 3 ตำแหน่ง มาแก้ให้เป็น yymm-00000 เป็นที่เรียบร้อย ลองไปเปลี่ยนตัวแปรเพื่อใช้ใน Qeury ของท่านดูครับ

โค๊ด: [Select]
Private Sub Data_AfterUpdate()
    txtRunningNum = Format([txtDate], "yymm") & "-" & Right("00000" & DCount("[RunningNum]", "[tblRunningNumber]", "Left([RunningNum],4) = Format([txtDate],'yymm')") + 1, 5)
End Sub

ปล.รูปที่นำไปฝากตามเว็บเมื่อจะนำมาโพสกระทู้เว็บบอร์ดให้ใช้หรือ Copy BBCode มาครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Tonwrp, taedaneen

10
ห้อง MS Access / : เรียงลำดับใน SubForm
« เมื่อ: 05 ก.ค. 62 , 11:07:05 »
*****************************************************************************************
***ผมทำได้แล้วครับ โง่มากเลยผม ลองผิดลองถูกมาทั้งวัน เนื่องจากไม่มีพื้นฐาน ไม่ค่อยเข้าใจเรื่องเครื่องหมาย ' " ในคำสั่ง SQL ครับ***
*****************************************************************************************

อย่าพึ่งคิดว่าตัวเองโง่ครับ บางครั้งมันอยู่ที่"ความพยายาม"และมุมมองในการหาทางออกเท่านั้นเองล่ะ :enjoying:
โพสต์นี้ได้รับคำขอบคุณจาก: Teeyai

11
ห้อง MS Access / : สอบถามการใช้ Auto Number ครับ
« เมื่อ: 25 มิ.ย. 62 , 16:56:32 »
ไม่ต้องแทรกครับ ขึ้นเป็นลำดับใหม่ไปเลยครับ แล้วเมื่อครบ 25 แล้วอยยากให้มันขึ้นป้อนเลขใหม่เพื่อต่อจากเลขชุดที่แล้ว ครับ

กล่าวคือแนวคิดนั้นจะทำเป็นระบบกึ่งออโต้ทั้งหมดโดยที่ สามตัวหน้าเป็นเลขชุด+สองตัวหลัง 01-25 เช่น
ท่านใส่         00101   = 00101-25 จนครบ25
ออโต้รันต่อที่   00201   = 00201-25 จนครบ25
ออโต้รันต่อที่   00301   = 00301-...
ท่านเปลี่ยนมา         10101   = 10101-25 จนครบ25
ออโต้รันต่อที่   10201   = 10201-...
ใช้แนวคิดแบบนี้ใหมครับนี่ :question:
โพสต์นี้ได้รับคำขอบคุณจาก: ปิ่นณรงค์

12
โดยทั่วไปเมื่อเราบันทึกข้อมูลเข้าไปใหม่ = มันก็สมควรแล้วที่มันจะขึ้นบรรทัดใหม่ *ยกเว้นว่าเราจะสั่งเปิดข้อมูลชุดเดิมเพื่อมาแก้ไขแล้วเพิ่มเวลา Time Out เข้าไปนั้นล่ะมันถึงจะอยู่บรรทัดเดิม

หรือใช้วิธีแยกฟอร์มโดย ฟอร์ม1.รันลำดับที่+ลงเวลาเริ่ม / ฟอร์ม2.ดึง&เปิดลำดับที่ๆรันไปแล้วนั้นมาแก้เพื่อลงเวลาจบ,ปิดงาน
โพสต์นี้ได้รับคำขอบคุณจาก: Phaphimon

13
ห้อง MS Access / : สอบถามการใช้ Auto Number ครับ
« เมื่อ: 23 มิ.ย. 62 , 19:40:41 »
คือประมาณว่าท่านจะทำระบบกึ่งออโต้ลำดับที่ใช้ใหมครับ นั่นคือ
ลำดับที่อันแรกท่านจะใส่เอง สมมุติใส่ 11156 พอรายการต่อๆมาให้มัน +1 ออโต้ไปเรื่อยๆเลยจนครบ 25รายการโดยที่ท่านไม่ต้องมานั่งใส่เลขเองใช้หรือไม่ครับ :question:(25รายการถ้านับรวม 11156ด้วยจะจบที่ 11180นะ)
แล้วเมื่อมันครบ25แล้วล่ะ อยากให้มัน... :question:
แล้วแนวการใส่เลขคุณเป็นอย่างไร  :question:
คือประมาณว่า
ชุดที่1 เริ่ม 11156-11180
ชุดที่2 เริ่ม 22221-22245
ชุดที่3 เริ่ม 20001-20025 < ลำดับแทนที่ดันไปแทรกกลางชุด1-2 หรือไม่
โพสต์นี้ได้รับคำขอบคุณจาก: สันติสุข

14
มีภาพของปัญหาใหมครับ หรือสามารถทำ/แยกไฟล์ที่มีปัญหามาให้ดูได้ใหมครับ :question:
(คีย์บอร์ดมีปุ่ม PrintScreen > วินโดว์มีโปรแกรม Paint > เว็บนี้"อัพโหลดภาพ" & อัพไฟล์ฟรีไม่มีวันลบ)


หรือลองดูคำสั่ง  DateDiff() -ผลการค้นหาจาก Google
Operation Time & Down Time by อ.PichaiTC
โพสต์นี้ได้รับคำขอบคุณจาก: Phaphimon

15
มิน่าล่ะ เวลาหนูเขียนคำสั่งตรวจสอบหลายเงื่อนไข มันจึงฟ้องให้ต้องใส่ End if ซ้อนกันในตอนท้ายเสมอ

เขาจึงนิยมใช้ ElseIf กันมากกว่านะครับ
> vba if else - ค้นหาด้วย Google link
> คำสั่งเลือกเงื่อนไข If Else ElseIf และ Select Case ในภาษา Visual Basic - MarcusCode link

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

16
ลองโหลดไฟล์ท่านปิ่นณรงค์จากกระทู้ > การบันทึกข้อมูลลงตารางจากการใช้แบบฟอร์ม ไปแกะดูครับ ซึ่งจะมีทั้ง
- คีย์ข้อมูลหลายๆข้อมูลในฟอร์ม
- เมื่อกดบันทึกแล้วให้ข้อมูลที่อยู่ในหน้าฟอร์มนั้นหายไปเพื่อรอรับข้อมูลที่จะคีย์เข้าไปใหม่
โพสต์นี้ได้รับคำขอบคุณจาก: ปิ่นณรงค์, superdog

หน้า: [1] 2 3