สมัครสมาชิก

แสดงกระทู้

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

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

2
ห้อง 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:
โพสต์นี้ได้รับคำขอบคุณจาก: ปิ่นณรงค์

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

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

4
ห้อง 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 หรือไม่
โพสต์นี้ได้รับคำขอบคุณจาก: สันติสุข

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


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

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

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

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

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

8
ปัญหาของท่านที่ภูมิภาค(GEOGRAPHY) แก้ BoundColumn = 1

แต่ถ้าต้องการให้เก็บภูมิภาคเป็นชื่อ GEOGRAPHY คง BoundColumn = 2 ใว้
มาแก้ Rowsource ของจังหวัดเป็น
โค๊ด: [Select]
SELECT tb_province.province_id, tb_province.Province_th, tb_geography.GEO_NAME FROM tb_province INNER JOIN tb_geography ON tb_province.geo_id = tb_geography.GEO_ID WHERE (((tb_geography.GEO_NAME)=[Forms]![Form1]![Cb_geography]));

อธิบายคือจากการที่เราสั่งให้ภูมิภาคบันทึกเป็นชื่อนั้น > ในส่วนของจังหวัดเราจึงต้องไปสั่งเปลี่ยนรูปแบบค่าที่รับมาด้วยนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: buakird

9
--> ขอไฟล์ของท่านมาดูได้หรือไม่ :question:

ท่านเอาไปใช้งานแนวไหนครับ
-> ใว้เพื่อใช้เพิ่มรายชื่อหน่วยงาน
-> ใว้เมื่อเลือกหน่วยงานแล้วกรองตัวเลือกออกมา เช่น กรมป่าไม้ > จังหวัด > อำเภอ > ตำบล > ที่อยู่ > ...

ลองแก้ตัวเลขในช่อง Bound Column หรือยังครับ


New ไฟล์ตัวอย่างที่ผมใช้เพิ่มชื่อที่อยู่ลูกค้า และเรียกมาดูครับ(ต้นฉบับผมเรียกมาใช้งาน)
โพสต์นี้ได้รับคำขอบคุณจาก: buakird, apirak

10
ถ้าคำนวนข้ามวันอย่างนี้คงต้องใส่วันที่เข้าไปด้วยนะครับ


ปล.ผมทำในคิวรี่ ทำไมสั่งคำนวนในเทเบิ้ลไม่ได้ครับนี่
โพสต์นี้ได้รับคำขอบคุณจาก: Nick_1234

11
นำไปใช้ การลงข้อมูล ชื่อ - ที่อยู่ลูกค้า ครับ

ไฟล์ตัวอย่างใช้ Combo box หลายตัว โดยทุกตัวมีความหมายเหมือนกันเพียงแค่เมื่อเลือกแล้วส่งค่ากลับไปยัง Combo box อื่นๆ เอาไปศึกษาแนวทางการนำไปใช้ดูครับ :yuush:
โค๊ด: [Select]
Private Sub Cus_ID_Click()
        Cus_Tax_ID.Value = Cus_ID.Column(9)
        Cus_Name.Value = Cus_ID.Column(1)
        Cus_addess.Value = Cus_ID.Column(2) & "  " & Cus_ID.Column(3) & Cus_ID.Column(4) & "  " & Cus_ID.Column(5) & "  " & Cus_ID.Column(6) & Cus_ID.Column(7) & "  " & Cus_ID.Column(8) '& "."
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

12
ห้อง MS Access / : Missing: Microsoft Excel 14.0 Object Library
« เมื่อ: 07 พ.ค. 62 , 13:38:39 »
vbforums link บอกแนวว่าเครื่องนั้นก็ต้องลง(หรือมี) Ms Excel ด้วยนะครับ

https://stackoverflow.com/questions/10730300/connect-references-toolsreferences-with-vba-code-macros link
โพสต์นี้ได้รับคำขอบคุณจาก: suaccess

13
งงปัญหาของคุณว่าใช้ตรงไหน-อย่างไรถึงใช้ไม่ได้ -->   @ เขียนคำถามให้เข้าใจ จะช่วยให้ได้คำตอบที่ชัดเจนและรวดเร็ว / สามารถอัพโหลดภาพ หรือไฟล์ตัวอย่างได้ที่"ตัวเลือกเพิ่มเติม..."

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

14
1. ProductIDs ของท่านคืออะไร
2. " [Product]![ProductName]" ลองชิดติดกัน > "[Product]![ProductName]"

สอบถามเรื่อง Dlookup ครับผม
[SOLVED] Default values using DLookup - Access World Forums link
โพสต์นี้ได้รับคำขอบคุณจาก: Phongphak Tongvongtrakul

15
ที่ปุ่มคำนวนของท่านปิ่นณรงค์ใส่ +1ไปครับ
โค๊ด: [Select]
Me.totalDay = DateDiff("d", ([Forms]![TableReport]![BeginDate]), ([Forms]![TableReport]![EndDate]) + 1) & "  วัน"
ปล.ตอบมาแบบ...อ่านะครับ ไม่รู้ใช้คำตอบหรือแนวทางแก้ปัญหาจริงๆใหมช่วยชี้แจงมาด้วยนะครับ(จะได้แจ้งลบ --.--)
โพสต์นี้ได้รับคำขอบคุณจาก: ปิ่นณรงค์, apirak, ittiphol

16
x \ y = จำนวนเต็มของ x / y
x Mod y = เศษเหลือจาก x / y เป็นจำนวนเต็ม

ตัวอย่างการนำไปใช้ (1วัน = 24ชั่วโมง = 1440นาที)

Text1 = 1500 นาที

Text2 = [Text1]\1440          = 1 วัน
Text3 = ([Text1]\60) Mod 24    = 1 ชั่วโมง

หมายเหตุ จากตัวอย่างจะเป็นการปัดเศษนาทีทิ้งทั้งหมดครับ (59นาที=0ชม.)
มาแถม [Text1] Mod 60 = เศษนาทีที่เหลือ
แถม2 Text2 =[Text1]\1440 & " วัน " & ([Text1]\60) Mod 24 & " ชั่วโมง" = 1 วัน 1 ชั่วโมง
โพสต์นี้ได้รับคำขอบคุณจาก: สันติสุข

หน้า: [1] 2 3