แสดงกระทู้

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.


Topics - มาลี

หน้า: 1 [2]
19
งานเข้าแล้วค่ะ  ฮือๆๆๆ

หนูมีไฟล์โปรเจ็คอยู่ตัวหนึ่ง ซึ่งมีการใส่รหัสผ่านในการเข้าแก้ไข vba เอาไว้
มาวันนี้ ต้องการจะเข้าไปแก้ไข ใส่รหัสผ่านที่ตั้งไว้ ปรากฏว่า เข้าไม่ได้ค่ะ มันแจ้งว่าใส่รหัสผิด
แต่หนูก็มั่นใจว่าไม่ผิดนะ ลองหลายรอบแล้วก็ยังไม่ได้

ไม่ทราบว่าเกิดจากอะไรคะ สงสัยว่าคีย์บอร์ดจะเสีย เป็นไปได้ไหมคะ
ขอความช่วยเหลือด้วยค่ะอาจารย์

20
หนูต้องการจะทำปุ่มเพื่อจะส่งค่าจาก Text1จากฟอร์มย่อย ไปที่ Text2 ในฟอร์มหลักค่ะ

-ฟอร์มหลักหนูตั้งชื่อว่า Main ซึ่งมีเทคบ็อกชื่อ Text2 อยู่ในฟอร์มหลัก
-ฟอร์มย่อยหนูตั้งชื่อว่า Sub ซึ่งมีเทคบ็อกชื่อ Text1 อยู่ในฟอร์มย่อย

หนูทำปุ่มคำสั่งไว้ที่ ฟอร์มย่อย แล้วเขียนคำสั่งดังนี้
โค๊ด: [Select]
Text2 = Forms![Main]![Sub].Form![Text1] ปรากฏว่า มันนิ่งเฉย ส่งค่าไม่ไปค่ะ แต่ถ้าย้ายปุ่มกดไปอยู่ที่ ฟอร์มหลัก ด้วยคำสั่งเดียวกัน จะสามารถส่งค่าได้ปกติค่ะ

หนูอยากจะให้ปุ่มมันอยู่ที่ฟอร์ย่อยค่ะ ขอคำแนะนำด้วยนะคะ

21
หนูต้องการทำคิวรี่ เลือกเอาเฉพาะข้อมูลในฟีลด์(สมมติชื่อ ฟิลด์A) ที่มีการซ้ำกันข้ึ้นมาแสดงค่ะ
ข้อมูลไหนที่ไม่ได้ซ้ำกัน ก็ไม่ต้องแสดงค่ะ

เมื่อนานมาแล้ว หนูเคยได้ความรู้วิธีทำจากในบอร์ดนี้แหละ แต่ตอนนี้ หนูจำไม่ได้แล้วว่าทำอย่างไร
ขอรบกวนใหม่นะคะอาจารย์

22
ในฟอร์มนั้นสามารถทำได้ แต่ในคิวรี่ ทำได้ไหมคะอย่างไร
สมมติถ้าทำได้ เราจะเขียนคำสั่งให้ส่งค่าเข้าไปที่ฟิลด์ดังกล่าวได้หรือเปล่าคะ

23
หนูมีฟีลด์ข้อมูลอยู่หนึ่งฟิลด์ ซึ่งเก็บข้อมูล สมมติ เลข 1 ถึง 100

ทีนี้ หนูต้องการดึงเอาเฉพาะตั้งแต่ 5 ถึง 8 เท่านั้น
หนูก็สร้างฟร์อมชื่อ FrmSelect โดยมี Text-1 Text-2

ในฟิลด์เป้าหมายที่คิวรี่ หนูก็ใส่ Between ลงไปดังนี้ค่ะ
Between [Forms]![FrmSelect]![Text-1] And [Forms]![FrmSelect]![Text-2]
ที่ฟอร์ม FrmSelect [Text-1] หนูใส่เลข 5 และที่ [Text-2] หนูก็ใส่เลข 8

แต่ผลที่ออกมา แทนที่จะเป็น 5-6-7-8 เท่านั้น แต่มันได้เป็น 5-50-60-70-80 แล้วก็ 8 ค่ะ
แต่หากเป็นเลขสองหลัก อันนี้ได้ปกติค่ะ เป็นเฉพาะที่ใส่เลขหลักเดียวเท่านั้นค่ะ ไม่ทราบว่าหนูทำผิดตรงไหนบ้างคะ

24
หนูต้องการสั่งให้เฉพาะฟอร์มบางตัว มันยุบลงไป เพื่อไม่ให้เกะกะพื้นที่ ต้องเขียนคำสั่งอย่างไรคะ และก็คำสั่งให้เรียกมันกลับมาเช่นเดิมด้วยค่ะ
(เฉพาะฟอร์มที่เราระบุนะคะ)

25
หนูต้องการสั่งให้มัน โฟกัสไปที่ Text1 ซึ่งอยู่บนฟอร์มย่อย (Frm_Sub)
หนูก็เลยเขียนคำสั่งแบบนี้

Forms![Frm_Main]![Frm_Sub]![Text1].SetFocus

แต่มันขึ้น error บอกว่า ไม่มีเขตข้อมูล Frm_Sub ที่อ้างถึง ทั้งๆที่ก็มีอยู่ปกติ
ไม่ทราบว่าเกิดจากอะไรคะ

26
ความต้องการของหนูก็คือ ต้องการให้ insert ข้อมูลจากตารางหลัก (Tbl_A) จากไฟล์เป้าหมาย (Sample.mde) เข้ามาก่อน
จากนั้นจึง insert ข้อมูลจากตารางรองๆอีก 5 ตาราง (Tbl_B,C,D,E,F)  จากไฟล์เดียวกันเข้ามา โดยมีเงื่อนไขดังนี้

หากไม่พบตาราง (Tbl_A) จากไฟล์เป้าหมาย ก็ให้ขึ้น msg แจ้งเตือน
พร้อมกับยุติการ insert ข้อมูลจากตารางรองๆ ทั้งหมด และ ออกจากคำสั่ง

แต่หากพบตาราง (Tbl_A) จากไฟล์เป้าหมาย ก็ให้ทำการ insert ข้อมูล (Tbl_A )เข้ามาตามปกติ
พร้อมทั้ง insert ข้อมูลจากตารางรอง ตามเข้ามาทั้งหมด โดยที่แม้ว่า ตารางรอง บางตารางอาจไม่มีอยู่ ก็ไม่เป็นไร ให้ผ่านได้ โดยไม่ต้องขึ้น error

เบื้องต้น หนูได้ทดลองสร้างคำสั่งไว้ดังนี้

DoCmd.RunSQL "insert into Tbl_A´ select * from Tbl_A´ in ""C:\Sample.mde"""
DoCmd.RunSQL "insert into Tbl_B´ select * from Tbl_B´ in ""C:\Sample.mde"""
DoCmd.RunSQL "insert into Tbl_C´ select * from Tbl_C´ in ""C:\Sample.mde"""
DoCmd.RunSQL "insert into Tbl_D´ select * from Tbl_D´ in ""C:\Sample.mde"""
DoCmd.RunSQL "insert into Tbl_E´ select * from Tbl_E´ in ""C:\Sample.mde"""
DoCmd.RunSQL "insert into Tbl_F´ select * from Tbl_F´ in ""C:\Sample.mde"""

แต่การจะทำให้เป็นตามเงื่อนไขดังกล่าว หนูยังทำไม่ได้ค่ะ รบกวนขอคำแนะนำด้วยนะคะ

27
การแสดงผลข้อมูลในคอลั่มของคิวรี่ เราสามารถกำหนดตำแหน่งข้อความ ให้มันชิดซ้าย กึ่งกลาง หรือ ชิดขวา ตามใจเราได้ไหมคะ

แบบว่าบางคอลั่ม ก็อยากให้มันแสดงชิดซ้าย ชิดขวา หรือ กึ่งกลาง อะไรทำนองนี้ค่ะ

28
Class Module กับ Module

อยากทราบว่า Module สองแบบนี้ มีความหมาย ต่างกันอย่างไรคะ
ใช้แทนกันได้ไหม

เมื่อใดจะต้องใช้ Class Module
และเมื่อใดจะต้องใช้ Module แบบธรรมดา

ขอบคุณค่ะ

29
ขอเรียนถามดังนี้นะคะ

หนูสั่ง Export ข้อมูลจาก Quary to Excel มันก็ได้ข้อมูลแบบตรงไปตรงมาได้ตามปกติค่ะ
แต่ทีนี้ หนูเกิดกิเลสหนาอยากให้ได้ไฟล์ Excel ที่มีการผสานเซล พร้อมระบุชื่อเรื่องลงไปด้วย
ถัดลงมาก็ให้เป็นแถวข้อมูลที่เรา Export ข้อมูลจาก Quary ตามปกติค่ะ

ไม่ทราบว่าสามารถทำได้หรือไม่อย่างไรคะ (ตามรูปตัวอย่างค่ะ)
ID : pbr39o-9aa58e
2018-07-12 18:15:24

30
เวลาผู้ใช้เปิดฟอร์มแล้ว ไม่อยากให้ใช้ลูกกลิ้งเมาส์ ในการขึ้นระเบียนใหม่ค่ะ
ต้องการให้ผู้ใช้คลิกที่ปุ่มขึ้นหน้าใหม่ ที่ได้เตรียมไว้ให้แล้วเท่านั้นค่ะ

แต่ถ้าเป็นฟอร์มสำหรับพรีวิว อันนี้ อนุญาตให้ใช้ลูกกลิ้งเมาส์เพื่อเลื่อนสกอร์ได้ค่ะ

31
ขอเรียนสอบถามนะคะ

ในตารางเดิม หนูเก็บข้อมูลวันที่เอาไว้ เป็นแบบ วัน/เดือน/ปี
ที่นี้ หนูอยากให้แสดงผลใน Query โดยให้แสดงปีก่อน เป็นดังนี้ค่ะ ปี/เดือน/วัน

ไม่ทราบว่าสามารถทำใน Query ได้หรือไม่
ในฟอร์ม หนูสามารถทำได้โดยอ้างอิง Text1 ดังนี้ =Format(CDate(Forms![Frm_Date]!Text1)," yyyymmdd")
ได้ผลตาที่ต้องการ
แต่พอจะทำใน Query ไม่ทราบว่าจะอ้างอิงจากอะไร อย่างไรคะ พยายามทำยังไม่สำเร็จค่ะ

32
If IsNull(Me.Text1) Then

Me.Text2.Enabled = False
Me.Text3.Enabled = False
Me.Text4.Enabled = False
Me.Text...Enabled = False
Me.Text...Enabled = False
Me.Text...Enabled = False
Me.Text50.Enabled = False

หนูอยากได้คำสั่งให้ False รวมตั้งแต่ Text2 ถึง Text50 แบบเขียนบรรทัดเดียวค่ะ

หลังจาก Else

ก็สั่งให้เป็น True ตั้งแต่ Text2 ถึง Text50 แบบเขียนบรรทัดเดียวเช่นกันค่ะ

หน้า: 1 [2]