แสดงกระทู้

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 - Jiw Jewel

หน้า: [1]
1
ห้อง MS Access / set style ใน excel ผ่าน access vba
« เมื่อ: 14 ธ.ค. 63 , 10:41:41 »
รบกสรสอบถามค่ะ คือพอดีว่าจะเปลี่ยนสีตรง conditional formatting ใน cell ตามเงื่อนไขให้เป็น  style Bad ค่ะ แต่ไม่ทราบcode ว่าทำอย่างไรหาในเน็ตแล้วไม่เกิดผลเลยค่ะ

ปล.ลองเทียบสีปกติแล้วเพี้ยนค่ะ ซึ่งไม่ทราบว่าเพราะอะไรค่ะ

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

ส่วนข้างล่างเป็นตัวอย่างหน้าจอค่ะ


3
คืออยากให้query แสดงข้อมูลตามนี้ค่ะ
ถ้าเรามี table 1 และ table 2 ตามนี้
Table1
Id|Name |age
1 | Hill    | 3
2 | Golf   |
3 | Soya  | 5

Table2

Id|Name|age
1 | Hill   | 5
2 | Golf  | 4
3 | Soya |
4 | Jin    | 9


Query Results

Id|Name|age
1 | Hill   |5
2 | Golf  |4
3 | Soya |5

ต้องทำอย่างไรคะ ทางนี้ลอง Left Join แล้ว Union ค่าที่ออกมาซ้ำเป็น2 แถวค่ะเช่น

Id|Name|age
1 | Hill   |3
1 | Hill   |5
2 | Golf  |
2 | Golf  |4
3 | Soya |5
3 | Soya |


รบกวนผู้รู้ช่วยทีนะคะ

4
ทำโปรแกรมหาค่ามาแทนโดยการใช้ loop ค่ะ ซึ่งพอดรากดปุ่มใน main form โปรแกรมจะเริ่มมทำงานค่ะ     ตารางเป็น subform อยู่อีกทีค่ะ ไม่ทราบว่าเราทำผิดหลักอะไรไปหรือเปล่าคะ  ส่วนด้านส่างคือcodeค่ะ

Private Sub update_data_Click()
'เป็นตัวแปลเก็บ ID เอกสารค่ะ (primary key)
fff = Me.proAssess_ID

'เงื่อนไขให้เข้าทำหรือไม่ทำการวนลูปค่ะ
If Not IsNull(Me.Esub_proAssess_Details) Then
Me![Esub proAssess Details].SetFocus

'เงื่อนไขการออกจากลูปค่ะ
Do Until IsNull(Me.Esub_proAssess_Details!Product_ID)
p_id = Me.Esub_proAssess_Details!Product_ID

'คำสังให้หาค่าจากในoracle ลงมาแทนค่าในตารางค่ะ
p_cost = DLookup("ITEM_COST", "[PRICE WITH PRO NORMAL]", "SKU_ID ='" & p_id & "'")
Detail].proRequest_ID)='" & fff & "') AND (([proAssess Detail].Product_ID)='" & p_id & "'));"
Me.Esub_proAssess_Details![Ex-vat] = DLookup("OPERAND", "[PRICE WITH PRO NORMAL]", "SKU_ID ='" & p_id & "'")
Me.Esub_proAssess_Details![In-vat] = DLookup("IN_VAT", "[PRICE WITH PRO NORMAL]", "SKU_ID ='" & p_id & "'")
Me.Esub_proAssess_Details![Pro_normal] = DLookup("REV_IN_VAT", "[PRICE WITH PRO NORMAL]", "SKU_ID ='" & p_id & "'")
DoCmd.GoToRecord , , acNext
Loop
End If
End Sub


ปล.รบกวนด้วยนะคะ

5
คือว่าสิ่งที่ทำตอนนี้คือ การดึงข้อมูลจากในฐานข้อมูลอื่นมาคำนวณ แล้วบันทึกข้อมูลลงในตารางของเครื่องเราค่ะ

แต่ทีนี้

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

เช่น เมื่อวานสินค้า AA ราคาขาย 30 บาท
แต่ พอมาวันนี้ข้อมูลมีการอัปเดต สินค้า AA ราคาขาย 40 แต่เมื่อเปิดขึึ่นมาทำต่อ สินค้าAA ก็ยังมีราคาขายอันเดิม จะมีวิธีไหนทำให้ข้อมูลมีการการอัปเดตบ้างคะ โดยที่จะอัปเดตเฉพาะสินค้าที่มีสถานะกำลังทำเนินการ

6
อยากทราบว่ามี function ไหนบ้างใน vba ที่ใช้กับ view แบบ datasheet ได้ค่ะ

รบกวนด้วยนะคะ

7
สวัสดีค่ะ มีเรื่องสอบถามค่ะ คือตอนนี้ต้องการจัดกลุ่มข้อมูลค่ะ ขออธิบายก่อนว่า เราเก็บข้อมูลที่มีเลขที่ใบเสร็จไม่ซ้ำค่ะ แต่(ราคาลด) ซ้ำได้ [**** ราคาลดคือ ราคาขายจริงเวลาลูกค้าเสนอมาน่ะค่ะ แต่ก็มีที่เก็บราคาจริงอยู่] สมมติว่าลูกค้าซื้อสินค้า 10 ชิ้น รหัส P1-P10 แล้วมี P5 กับ P9 ที่ลูกค้าเสนอราคาให้ลด เราก็เลยอยากจะรู้ว่าใน P5 และ P9 มีราคาไหนบ้างที่เคยเสนอไปค่ะ แต่ถ้าราคาปกติไม่ลดก็จะไม่แสดงรายงานที่หน้า 2 ค่ะ

table ที่เก็บก็จะประมาณนี้ค่ะ
รหัสใบสั่งซื้อ|รหัสสินค้า|ราคาปกติ|ราคาลด
V001       | P1       |25       |25
V001       | P2       |20       |15
V001       | P3       |15       |15
V001       | P4       |40       |25
V001       | P5       |25       |20
V002       | P4       |40       |35
V002       | P5       |25       |20
V003       | P1       |25       |25
V003       | P4       |40       |30
V003       | P5       |25       |15


รายงานก็จะประมาณนี้ค่ะ


ใบเสร็จเลขที่ V001
เอกสารหน้าที่ 1

รายการสินค้า
รหัสใบสั่งซื้อ|รหัสสินค้า|ราคาปกติ|ราคาลด
V001       | P1       |25       |25
V001       | P2       |20       |15
V001       | P3       |15       |15
V001       | P4       |30       |25
V001       | P5       |25       |20


เอกสารหน้าที่ 2

รหัสสินค้า    P5    ราคาลด 20  ของใบเสร็จเลขที่ V001  (head group)
รหัสใบสั่งซื้อ|ราคาลด    (details)
V003       | 20
V003       | 15

รหัสสินค้า    P4    ราคาลด 25  ของใบเสร็จเลขที่ V001  (head group)
รหัสใบสั่งซื้อ|ราคาลด    (details)
V004       | 35
V003       | 30

8
สวัสดีค่ะ พอดีเป็นมือใหม่เลยอยากจะสอบถามผู้รู้หน่อยค่ะว่า ในdatasheet มันจะมีฟังก์ชั่น Totals ให้เราใช้เช่นพวก sum count อะไรพวกนี้ค่ะ แล้วอยากได้เพิ่มค่ะ คือต้องการให้ sum ของ column 1 และ column 2 มาหารกันค่ะ สามารถทำได้ไหมคะ แล้วถ้าไม่ได้มีแนวทางไหนบ้างคะ ขอบคุณค่ะ

[/img]

9
ห้อง MS Access / สอบถามเรื่องDCount ค่ะ
« เมื่อ: 10 ก.ย. 63 , 16:48:56 »
คือจะทำการกรอกข้อมูลแล้วมีกล่องข้อความบอกว่าซ้ำกัน โดยมีเงื่อนไขว่า 1.ราคาตรงกับที่มีอยู่ และ 2.ช่วงเวลาต้องเป็นช่วงเวลาเดียวกันค่ะ

รบกวนด้วยนะคะ เพิ่งหัดทำค่ะ  ส่วนข้างล่างคือcode ค่ะ

Pro_pro--> ชื่อฟิลด์ก็บราคา ตรงกับเงื่อนไขที่ 1 ค่ะ
proReq_start_date--> ชื่อฟิลด์ก็บราคา ตรงกับเงื่อนไขที่ 2 ค่ะ


Dim com_price

com_price = DCount("[Pro_pro]", "qry_Assess with details", "([Pro_pro]= " & Pro_pro & ") And ([proReq_start_date]=" & Me.proReq_start_date & ")")

If com_price > 0 Then
MsgBox "คุณมีราคานี้อยู่แล้ว"
End If


ปล. code ไม่มี error ค่ะ แต่ค่าที่ได้คือ 0 เลยไม่เข้าเงื่อนไขค่ะ แต่แก้ยังไงก็ไม่ได้

หน้า: [1]