แสดงกระทู้

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

หน้า: [1] 2 3 4
1
ห้อง MS Access / สอบถามการปิดเมนูบาร์
« เมื่อ: 27 พ.ค. 64 , 14:20:29 »
ผมใช้คำสั่งเพื่อปิดเนูบาร์ตอนเปิดฟอร์มตามนี้ครับ
Private Sub Form_Open(Cancel As Integer)
If SysCmd(acSysCmdAccessVer) > 11 Then
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
        Else
        DoCmd.ShowToolbar "Menu Bar", acToolbarNo
    End If
   
End Sub

หากผมต้องการให้เหลือไว้เฉพาะปุ่ม undo กับ Redo ตามรูป สามารถทำได้หรือเปล่าครับ ขอบคุณครับ



2
ตามรูปส่วนที่สีเหลืองต้องเขียนยังไงครับหากผมต้องการหาผลรวมของฟิวด์ TotalAmount ของคิวรี่ QProBudget2 โดยมีเงื่อนไขว่า ถ้าค่าในฟิวด์ BUYER = Customer_Name ของคิวรี่ Qbudget2

ปล.ฟิวด์ BUYER กับ Customer_Name เป็นแบบ text ครับ


3
รบกวนสอบถามครับ ถ้าในคิวรี่มี่2ฟิวด์คือ ฟิวด์A กับฟิวด์B
ต้องการให้ที่ฟิวด์B = ฟิวด์A ลบ(-) ฟิวด์Aของrecordก่อนหน้า ต้องใช้สูตรยังไงครับ

4
ห้อง MS Access / สอบถามคำสั่ง Docmd.Movesize
« เมื่อ: 10 ม.ค. 62 , 10:55:54 »
รบกวนสอบถามการสั่งให้ฟอร์มอีก1ฟอร์มไปแสดงผลอีกจออัตโนมัติโดยใช้คำสั่ง movesize ครับ
คือผมมีPC1ตัว ต่อออก2จอโดยตั้งเป็นแบบ Extend โดยที่
จอที่1(primary) 21.5" resolution 1920x1080 ต่อผ่านสาย DVI
จอที่2(secondary) 19.5" resolution 1600x900 ต่อผ่านสาย VGA

ที่โปรแกรม Access มี2ฟอร์ม
ฟอร์มที่1 ชื่อฟอร์ม FrmDbLine1_Eng1 ที่ On open ใส่ Call OpenBClient() เพื่อเรียกคำสั่ง Movesize ที่วางไว้ใน Module
ฟอร์มที่2 ชื่อฟอร์ม FrmDbLine2_Eng1 (คือฟอร์มที่ต้องการให้ออกจอ2)

ที่ Module ชื่อ Monitor ใส่ Code ดังนี้
Option Compare Database

Option Explicit

Public clnClient As New Collection

Function OpenBClient()
 
    Dim frm As Form
   
    Set frm = New Form_FrmDbLine2_Eng1
     frm.Visible = True
    frm.Caption = frm.hWnd & ", Opened " & Now()
   
   
    clnClient.Add item:=frm, Key:=CStr(frm.hWnd)
    DoCmd.MoveSize 20000, 0, 0, 0
    DoCmd.Maximize
     
    Set frm = Nothing
End Function

ผลคือฟอร์มที่2 FrmDbLine2_Eng1 ไม่ออกจอ2ครับ ไม่ทราบว่า ตรงcode movesize ต้องเป็นค่าเท่าไหร่ครับ

5
ห้อง MS Access / การใช้คำสั่ง iifซ้อน iif
« เมื่อ: 08 ธ.ค. 61 , 08:59:05 »
ผมรบกวนสอบถามหน่อยนะครับ มีคำสั่งอื่นแทนการใช้ iif ซ้อนไหมครับ ผมใช้ iif ใน expression แต่พอใช้ซ้อนหลายๆชั้นมันเหมือนเกินขีดจำกัด และขึ้น error ครับ พอจะมีคำสั่งอื่นใช้แทนหรือเปล่าครับ


Eff20Auto: IIf(Not IsNull([Eff20]),[Eff20],IIf(Not IsNull([Eff19]),[Eff19],IIf(Not IsNull([Eff18]),[Eff18],IIf(Not IsNull([Eff17]),[Eff17],IIf(Not IsNull([Eff16]),[Eff16],IIf(Not IsNull([Eff15]),[Eff15],IIf(Not IsNull([Eff14]),[Eff14],IIf(Not IsNull([Eff12]),[Eff12],IIf(Not IsNull([Eff11]),[Eff11],IIf(Not IsNull([Eff10]),[Eff10],IIf(Not IsNull([Eff9]),[Eff9],[%Efficiancy])))))))))))

6
คือรบกวนสอบครับ ผมสร้างฟอร์มแต่ต้องการให้เวลาไปเปิดกับจอขนาดอื่่น ให้มันแสดงผลพอดีกับหน้าจอ ต้องทำไงครับ

7
รบกวนสอบถามอาจารย์ทุกท่านนะครับ ผมมีข้อมูลที่ได้จากการ query ประมาณไม่น่าเกิน4record ต้องการให้แสดงบนฟอร์มทีละ1record โดยแสดงสลับกันไปแบบวนloop ไปเรื่อยๆต้องทำอย่างไรครับ ปัจจุบันใช้วิธีตามรูป แต่รู้สึกว่าบางครั้งมันจะแสดงซ้ำๆrecordเดิมหลายครั้งแล้วค่อยจะวนloopครับ


8
สอบถามนะครับ เราสามารถกำหนดให้ user แต่ละสิทธิพอloginเข้าแล้วให้เปิดฟอร์มของตัวเองตามที่กำหนดได้หรือเปล่าครับ
เช่นการตลาด loginแล้วเข้าฟอร์มการตลาด
จัดซื้อ login แล้วเข้าฟอร์มจัดซื้อ
ซึ่งปัจจุบันผมใช้การกำหนดสิทธิที่ปุ่มเมนูแทน โดยการ Enable=false เป็นต้น

9


ที่ฟิวด์ TotalOutput ในกรณีที่เลขที่ BOM เดียวกัน ให้นำ OutputPerDay ไปรวมกับ Record ก่อนหน้าได้ยังไงอะครับ


10
ตามรูปผมจะมี2ฟอร์ม
ฟอร์ม1 สำหรับป้อนข้อมูล
ฟอร์ม2 สำหรับแสดงผล เปิดformนี้ไว้ตลอด (ให้แสดงหน้าไลน์ผลิต)
database อยู่ที่เครื่อง Server
ต้องการให้คีย์ข้อมูลที่ฟอร์ม1 เช่น เป้าหมายต่อชั่วโมง แล้วให้ไปแสดงที่ฟอร์ม2 ที่เปิดฟอร์มทิ้งไว้อีกเครื่องหนึ่งทันที จะต้องทำยังไงครับ ซึ่งตอนนี้ที่ฟอร์มแสดงผลที่เปิดทิ้งไว้ก็เปลี่ยนนะครับ แต่จะนานประมาณ1นาทีหลังจากคีย์ข้อมูล( จะตั้งให้ form 2 refreshบ่อยๆก็กลัวเครื่องจะทำงานหนักเกินไป ไม่รู้ผมเข้าใจถูกหรือเปล่า)

form1 (สำหรับป้อนข้อมูล)


form2 (แสดงผลต้องเปิดทิ้งไว้ตลอด)


11
ห้อง MS Access / รบกวนสอบถาม Query error ครับ
« เมื่อ: 11 ต.ค. 61 , 08:58:12 »
ผมเรียกquery ซึ่งมี record ประมาณสี่หมื่นกว่าrecord แล้วมันขึ้นerrorตามรูปครับ (database ตั้งเป็นแบบ link table) ไม่รู้ว่ามันมี record เยอะหรือเปล่าทำให้เรียกขึ้นมาช้าเลยทำให้ error ซึ่งในอนาคตคิดว่า record มันต้องเยอะขึ้นกว่านี้อีกมาก หรือ queryนี้มันมาจากหลายๆquery ครับ
**แต่ผมลองตั้งค่า databaseเป็นแบบ local table จะไม่ขึ้น error ครับ แต่จะช้าหน่อยแค่นั้นเอง





12


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

13
รบกวนช่วยบอกสูตรการ sum ค่าตัวเลขจาก Query ที่กรองแล้วหน่อยครับ เนื่องจากผมต้องการนำตัวเลขนั้นไปเข้าสูตรอื่นต่อครับ ส่วน Dsum เข้าใจว่าน่าจะเป็นการรวมค่าทั้งหมดของฟิวด์นั้นครับไม่น่าจะใช้ได้ เพราะผมต้องการแค่ยอดรวมเฉพาะที่เรากรองจาก Query แล้วเท่านั้น

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


15
ในหนึ่งPOสั้งซื้อจะต้องใช้กับหลายStyle ผมก็เลยกำหนดให้ User ป้อนชื่อstyle ในช่องหมายเหตุ โดยมีกี่style ก็ใส่ไปเลย(อาจมีถึง10 style) ตามรูป


สิ่งที่ผมต้องการคือที่หน้าสรุปรายการ(ดึงมาจากหน้าPO) ผมจะสามารถค้นหาแต่ละ style จากcombo box ได้หรือไม่ครับ เพราะมันจะแสดงแค่บันทัดแรกอย่างเดียว
รบกวนด้วยนะครับ

16
รบกวนขอไอเดียเรื่องการป้องกันการCopyข้อมูลแล้วไม่editแก้ไขข้อมูลที่copyมาครับ คือผมสร้างฟอร์มOrderสินค้า แล้วสร้างปุ่มcopyเพื่อสะดวกสำหรับผู้ใช้งาน หากมีรายละเอียดของorderเหมือนๆเดิม ก็ให้copyมาเลย แล้วค่อยมาแก้ไขข้อมูลแค่บางอย่าง แต่บังเอิญคนcopy ข้อมูลมา แต่ลืม edit แก้ไข ทำให้ข้อมูลมันซ้ำกันทุกๆฟิวด์ พอจะมีแนวทางหรือเปล่าครับ
ปล. บางฟิวด์จะมีค่าเหมือนกันมากกว่า1Record จึงไม่สามารถเขียนดักว่าห้ามซ้ำได้ แต่ที่ผมคิดได้ตอนนี้คือ สมมติเราcopyมาแล้วแต่ไม่มีแก้ไข จะไม่ยอมให้ save อะไรประมาณนี้ครับ หรือให้โปรแกรมมองว่าห้ามข้อมูลที่เหมือนกันทุกฟิวด์มีมากกว่า1Record เป็นต้น
 
หน้าตาโปรแกรมตามรูปครับ และผมแนบข้อมูลมาให้ช่วยดูครับ

หน้า: [1] 2 3 4