แสดงกระทู้

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 - 001Jetnipit

หน้า: 1 [2] 3 4 5 ... 10
19
เหมือนกัน Autonumber ครับ แต่ผมจะเอาใส่ใน VBA ตัวเองผมก็คิดไม่ได้ด้วย  :dizzy: :dizzy: :dizzy:

20
ได้แล้วครับ ใช้วิธีตั้งเชื่อมกันโดยเลือกติ๊กแค่ Enforce Referential Integrity แต่ Tbl 1 และ 2 ตั้ง ID เป็น Number ส่วน Tblmain ID ให้เป็น Autonumber เมื่อเวลา User New record ใน form ก็ใช้ VBA จับ ID มาเพิ่มทั้ง Tbl 1 และ 2 หลังจาก User กดเซฟ

21


1. 3 ตารางนี้เชื่อมความสัมพันธ์กันอยู่ ฟิลด์ ID ของ Tblmain ไม่สามารถเลือกแบบ Autonumber ได้ เวลา User กรอก ต้องกรอกทั้ง NameTH และ ID ด้วย สามารถตั้งเป็น Autonumber ได้ไหม
2. เป็นไปได้ไหมที่จะให้ Tbl 1 และ 2 อัปเดตค่าล่าสุดตาม Tblmain

22


ผมลองทำแบบนีัใน Query



แต่ว่าข้อมูลไม่มาครับ มาแต่จำนวน Record ไม่ทราบว่าต้องใช้วิธีไหนครับ

23
Dim sql As String
sql = "UPDATE TblPI INNER JOIN Tbl_PI_PTT ON PI.[Code1] = Tbl_PI_PTT.[Code1] SET Tbl_PI_PTT.NameTH = [PI]![NameTH];"
DoCmd.SetWarnings False
DoCmd.RunSQL sql
DoCmd.SetWarnings True


ตรงตัวหนังสือสีแดง ถ้าหากจะเอาข้อมูลจาก TblPI ไปยัง Tbl_PI_PTT ได้นั้น Tbl_PI_PTT ต้องมี Code1 ที่ตรงกันก่อนทั้ง 2 ตาราง ข้อมูลถึงจะมา ถ้าเราอยากให้มันไม่มีเงื่อนไขตรง Code อยากให้มันมาทั้งหมดเลย ต้องแก้โค้ดยังไงครับ ขอบคุณครับ

24


การลิงค์ข้อมูลตาราง ไม่ว่า Tbl A หรือ Tbl B จะเพิ่มข้อมูลอะไร โปแกรมก็จะอัพเดตให้ข้อมูล 2 ตารางเหมือนกันตลอด
ถ้าผมอยากต้องการแค่ถ้าหาก Tbl A กรอกข้อมูลเพิ่มก็อัพเดตมา Tbl B แต่ไม่ว่า Tbl B จะเพิ่มข้อมูลอะไร ก็ไม่สามารถเพิ่มกลับไปยัง Tbl A ได้แบบนี้ต้องใช้วิธีไหนหรอครับ

25
ไม่มีครับ ผมเช็คแล้ว เมื่อกี้ก็เช็คแล้วครับ

ขอบคุณครับผม

27




ผมให้ตรวจสอบว่าถ้าว่างให้ใส่ -
แต่ไม่สามารถตรวจสอบได้ แปลว่าค่ามันไม่ว่างหรอครับ หรือต้องใส่ยังไงครับ เพื่อให้มันตรวจว่า "ถ้าว่างให้ใส่ -"

28
สอบถามครับ ผมรู้สึกว่าโมดูล มีผลกับขนาด Print preview หรือเปล่าครับ เพราะลองเอาออกแล้วเปิด Print preview ใหม่ ก็ขนาด Size ปกติครับ แต่พอใส่ โมดูลไป Print preview ก็กลับมาเล็กครับ


29
On Error GoTo Err_cmdDelete_Click

  DoCmd.SetWarnings False
  If MsgBox("ยืนยันลบข้อมูล?", vbQuestion + vbYesNo + vbDefaultButton2, "ลบข้อมูล?") = vbYes Then
    DoCmd.RunCommand acCmdDeleteRecord
  End If

Exit_cmdDelete_Click:

  DoCmd.SetWarnings True
  Exit Sub

Err_cmdDelete_Click:

  MsgBox Err.Description
  Resume Exit_cmdDelete_Click


ลองดูก่อนนะครับ

ขึ้นแบบนี้ครับ


30




ผมใช้ Macro แต่จะเพิ่มโค้ดบางอย่างเข้าไป แต่เกะจาก Macro ไม่ค่อยเข้าใจครับผม ขอบคุณครับ

31
ขอบคุณอาจารย์มากๆครับผม เป็น Module ที่สุดยอดมากเลยครับ ตรงต้องความต้องการเป๊ะเลยครับ

32


มันขึ้น Error แบบนี้ครับ



ผมต้องไปเปิดอะไรหรือเปล่าครับ

33
64 bit ครับผม

34
ขอบคุณทุกท่านมากครับผม แต่ขัดตรงที่เวลาเปิด มันไปอยู่หน้าต่างล่างสุดของโปรแกรมเลย ต้องพับโปรแกรมที่เปิดไว้ก่อนหน้า ถึงจะเห็นตัวโปรแกรม แต่น่าจะทำไม่ได้หรือเปล่าครับ ขอบคุณครับผม  :question: :question:

35
ผมตั้ง Minimize ตรง Run แล้วครับ แต่โปรแกรมันก็แสดง Minimum ปกติเลยครับ

36




พอจะมีวิธีทำให้ตัวโปรแกรม Access มันย่อไปแบบนี้ลงแบบนี้ไหมครับ

ข้อดี
1.จะให้เราสามารถเปิด 2 โปรแกรมพร้อมกันได้
2. Popup form จะมาอยู่หน้าสุดของทุกโปรแกรมเวลาเปิด

ขอบคุณครับ

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