แสดงกระทู้

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

หน้า: [1] 2 3
1
code คุณ TTT ใช้ได้เลยครับ

Private Sub Command1_Click()
Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Set db = CurrentDb
    Set tdf = db.CreateTableDef("department")
   
    tdf.Connect = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};Server=192.168.0.243;Database=dental_stock;UID=sa;PWD=sa1234;Option=3"
    tdf.SourceTableName = "department"
    db.TableDefs.Delete "department"
    db.TableDefs.Append tdf

    Set tdf = db.CreateTableDef("vendor")
   
    tdf.Connect = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};Server=192.168.0.243;Database=dental_stock;UID=sa;PWD=sa1234;Option=3"
    tdf.SourceTableName = "vendor"
    db.TableDefs.Delete "vendor"
    db.TableDefs.Append tdf

    db.Close: Set db = Nothing
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: Max, Naruemon Krunpuek

2
คลิกขวา เลือก preperty เลือก open with

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

3
docmd.runsql "Delete from BB where รหัส not in (select รหัส from AA)"
หรือ สร้าง Delete คิวรี่ จากตาราง BB ตรงฟิวด์รหัส ใส่ criteria not in (select รหัส from AA)
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa, 001Jetnipit

4
สร้าง อีก TextBox นึง แล้วต่อ String ="00" & [Text30] จากนั้นซ่อน visible Text30 Running Sum เลือก Over All
ถ้าข้อมูลมีหลาย record จะแสดง 001,002,...,0010,...
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

5
https://docs.microsoft.com/en-us/office/vba/api/access.docmd.movesize link
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak, Jiw Jewel

6
ลองตามนี้
วิธีที่1 control ตัวอื่นทั้งหมด กำหนด properties tabStop เป็น No
วิธีที่ 2 ใช้ setFocus ที่ control ที่ต้องการ
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

7
เปิดใช้งานได้เลย ถ้ามี microsoft office access
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

8
ยังไม่ได้ประกาศตัวแปร
โพสต์นี้ได้รับคำขอบคุณจาก: PNR, 001Jetnipit

9
DSum("ชื่อฟิวด์เก็บจำนวนเงิน","ชื่อตารางหรือคิวรี่","[ชื่อฟิวด์หมู่]=forms!ชื่อฟอร์ม!ชื่อ TextBox(หมู่)")
โพสต์นี้ได้รับคำขอบคุณจาก: oraaoi, chonsod1221

10
Me.rank คืออะไรครับ​ รับค่าจาก​ TextBox​ หรือเปล่า
แล้วตัวแปร​ rank ประกาศเพื่ออะไร
ส่งรูปมาให้ดูดีกว่าครับ​ นึกภาพไม่ออก
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown, pirin

11
ใช้​ BeforeUpdate event หลัง​ texbox อันที่2 ดีกว่าครับ

 If (not isnull(me. textbox_id) or me.textbox_id<>""​)​ and (not isnull(textbox_disease) or me. textbox_disease<>""​) then
        If dcount("*", "table_name", "id=forms! Formname!textbox_id and   disease =forms! Formname!textbox_disease" ) >0
       then
       Msgbox "ข้อมูลซ้ำ"
       Cancel=true
       End if
Else
Msgbox "ใส่ข้อมูลไม่ครบ"
End if
ลองประยุกต์ดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR, Tatchawin

12
ห้อง MS Access / : transection table สอบถามค่ะ
« เมื่อ: 12 มี.ค. 64 , 09:16:59 »
ขอเสนอไอเดียครับ
1.แบบไม่ต้องสร้างตาราง
*สร้างฟังก์ชั่นหาราคาล่าสุดของสินค้านั้นๆ( เช่น getLastPrice(รหัสสินค้า) ให้ return ราคาล่าสุด) จากตารางเสนอ เมื่อเลือกสินค้า ให้ set ราคาสินค้าล่าสุดใน TextField และสามารถแก้ไขได้ ก่อนบันทึก
ข้อดี การทำงานไม่ซับซ้อน แค่เรียกฟังก์ชั่นให้ทำงาน
ข้อเสีย อาจทำงานช้าลงเมื่อข้อมูลตารางเสนอ มากขึ้น
2.แบบสร้างตาราง
*ในตารางสินค้า ให้เพิ่มฟิวด์ที่เก็บราคาล่าสุดไว้ ในแบบฟอร์มเสนอ เมื่อเลือกสินค้า ให้ set ราคาสินค้าล่าสุดใน TextField จากฟิวด์ราคาล่าสุด (DLookup()) และสามารถแก้ไขได้ เมื่อกดบันทึกก็ให้ update ราคาล่าสุดไว้ในตารางสินค้า
ข้อดี ทำงานเร็วกว่าแบบ 1 เพราะค้นหาในตารางที่จำนวน record น้อยกว่า
ข้อเสีย การทำงานซับซ้อนขึ้นอีกนิดนึง
ข้อเสีย ต้อง update ทุกครั้ง
โพสต์นี้ได้รับคำขอบคุณจาก: Jiw Jewel

13
1.ฟอร์มย่อยสร้างจากคิวรี่ ที่ใส่เงื่อนไข type_job =forms!ชื่อฟอร์มหลัก!ชื่อTextฟิวด์ type_job
2.ฟอร์มหลัก ที่ช่องใส่ข้อมูลTextฟิวด์ type_job เขียน event after update ให้ฟอร์มย่อย requery
ยังมีอีกหลายวิธี รอท่านอื่นตอบนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Witthaya Soree

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

15
ออกแบบ UI สวยงามครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ittiphol

16
สมมุติ TextBox ที่คำนวณคงเหลือ ชื่อ Text_remain และ TextBox ที่คีย์จำนวนเบิกชื่อ TextAmt
if TextAmt> Text_remain then
msgbox "คงเหลือไม่พอให้เบิก"
else
// ทำการเบิก
end if
โพสต์นี้ได้รับคำขอบคุณจาก: Eakaluk Sansila

หน้า: [1] 2 3