แสดงกระทู้

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

หน้า: 1 ... 10 11 12 [13] 14 15 16 ... 18
217
ห้อง MS Access / : วิธีเพิ่มภูมิภาค(ภาคเหนือ,กลาง,ใต้,ออก,ตก,อีสาน)เพื่อคัดกรองจังหวัด
« เมื่อ: 08 มิ.ย. 62 , 15:11:24 »
--> ขอไฟล์ของท่านมาดูได้หรือไม่ :question:

ท่านเอาไปใช้งานแนวไหนครับ
-> ใว้เพื่อใช้เพิ่มรายชื่อหน่วยงาน
-> ใว้เมื่อเลือกหน่วยงานแล้วกรองตัวเลือกออกมา เช่น กรมป่าไม้ > จังหวัด > อำเภอ > ตำบล > ที่อยู่ > ...

ลองแก้ตัวเลขในช่อง Bound Column หรือยังครับ

New ไฟล์ตัวอย่างที่ผมใช้เพิ่มชื่อที่อยู่ลูกค้า และเรียกมาดูครับ(ต้นฉบับผมเรียกมาใช้งาน)

218
ห้อง MS Access / : ทำการค้นหาหลายๆค่าในครั้งเดียวค่ะ
« เมื่อ: 26 พ.ค. 62 , 18:40:14 »
คุณ Supanida ผู้กำเนิดกระทู้ > การทำการเบิกหลายรายการโดยที่เราทำการเลือกโดยเหมือนการติ๊กเลือกแล้วลิ้งค์ไปยังฟอร์มการเบิกค่ะ
จากกระทู้เดิมนั้นคือต้องการให้สามารถเลือกของหลายๆอย่างจากรายการในฟอร์ม1 > แล้วส่งรายการที่เลือกหลายๆอย่างนั้นไปยังฟอร์ม2เพื่อเบิก
กระทู้ใหม่นี้เพิ่มเติมมาคือ หน้ารายการในฟอร์ม1แทนที่จะเลื่อนรายการหานั้นสามารถทำกล่องค้นหาเพื่อค้นหาหลายๆอย่างในครั้งเดียวเช่น ปากกา,ดินสอ,.. ถ้ามีก็ให้แสดงแค่นี้ที่เหลืออย่างอื่นไม่ต้องแสดง จะได้กดเลือกและส่งไปยังฟอร์ม2เพื่อเบิกเป็นอันจบได้หรือไม่ & อย่างไร

ผมตีความประมาณนี้ถูกหรือไม่ถูกก็ชี้แจงมาเลยนะครับ จะได้ช่วยท่านได้อย่างเที่ยงตรงไม่งั้นจะกลายเป็นกระทู้ลอยแพ :sweat:

219
ห้อง MS Access / : ปัญหาการบวกลบเวลา 2 เวลาให้ออกมาเป็นค่า hh:mm [มีรูป]
« เมื่อ: 21 พ.ค. 62 , 12:18:06 »
ถ้าคำนวนข้ามวันอย่างนี้คงต้องใส่วันที่เข้าไปด้วยนะครับ


ปล.ผมทำในคิวรี่ ทำไมสั่งคำนวนในเทเบิ้ลไม่ได้ครับนี่

220
ห้อง MS Access / : มี Combo box หลายตัว อยู่ในฟอร์ม
« เมื่อ: 10 พ.ค. 62 , 13:42:48 »
อ้างจาก: suaccess ที่ 10 พ.ค. 62 , 08:12:29
นำไปใช้ การลงข้อมูล ชื่อ - ที่อยู่ลูกค้า ครับ

ไฟล์ตัวอย่างใช้ Combo box หลายตัว แต่ล่ะตัวแบ่งส่วนกันไป(ID,ชื่อ,ที่อยู่,...)โดยเมื่อเลือกแล้วจะส่งค่าที่อยู่ในชุดเดียวกันนั้นกลับไปยังส่วนอื่นๆด้วย :yuush:
โค๊ด: [Select]
Private Sub Cus_ID_Click()
        Cus_Tax_ID.Value = Cus_ID.Column(9)
        Cus_Name.Value = Cus_ID.Column(1)
        Cus_addess.Value = Cus_ID.Column(2) & "  " & Cus_ID.Column(3) & Cus_ID.Column(4) & "  " & Cus_ID.Column(5) & "  " & Cus_ID.Column(6) & Cus_ID.Column(7) & "  " & Cus_ID.Column(8) '& "."
End Sub

221
ห้อง MS Access / : Missing: Microsoft Excel 14.0 Object Library
« เมื่อ: 07 พ.ค. 62 , 13:38:39 »
vbforums บอกแนวว่าเครื่องนั้นก็ต้องลง(หรือมี) Ms Excel ด้วยนะครับ
https://stackoverflow.com/questions/10730300/connect-references-toolsreferences-with-vba-code-macros

222
ห้อง MS Access / : ใช้ฟังก์ชั่น Date() ไม่ได้ แก้ได้ไหม
« เมื่อ: 05 พ.ค. 62 , 10:41:37 »
งงปัญหาของคุณว่าใช้ตรงไหน-อย่างไรถึงใช้ไม่ได้ -->   @ เขียนคำถามให้เข้าใจ จะช่วยให้ได้คำตอบที่ชัดเจนและรวดเร็ว / สามารถอัพโหลดภาพ หรือไฟล์ตัวอย่างได้ที่"ตัวเลือกเพิ่มเติม..."


223
ห้อง MS Access / : ใช้ Dlookup ในช่อง Default Value ไม่ได้ครับ
« เมื่อ: 27 เม.ย. 62 , 12:10:58 »
1. ProductIDs ของท่านคืออะไร
2. " [Product]![ProductName]" ลองชิดติดกัน > "[Product]![ProductName]"
สอบถามเรื่อง Dlookup ครับผม
[SOLVED] Default values using DLookup - Access World Forums

224
ห้อง MS Access / : สอบถามวิธีสั่งพิมพ์บิล สั่งครั้งเดียว ให้บิลออกทั้งต้นฉบับ และสำเนา
« เมื่อ: 20 เม.ย. 62 , 15:49:05 »
อ้างจาก: kunlek ที่ 20 เม.ย. 62 , 11:20:48
ขึ้น compile error:  expected: end of statement ครับ
ปัญหาที่เกิดขึ้นอันนี้ผมก็ไม่ทราบว่าเกิดจากอะไรนะครับ(ต้องมีการเปิดฟอร์มมาเพื่อดึงข้อมูลก่อนการสั่งปริ้นหรือเปล่าครับ)

ที่มาบอกกล่าวนี้คือผมใช้วิธีสั่งปริ้นจากรีพอร์ตนะครับ โดยของผมมีการดึงค่าบางส่วนจากหน้าฟอร์มที่เปิดอยู่ด้วย
โค๊ด: [Select]
Private Sub PrintB_Click()
On Error GoTo Err_PrintB_Click

    T_total.Value = T_total_au.Value
    T_total_text.Value = T_BAHTTEXT_auto.Value
    DoCmd.RunCommand acCmdSaveRecord

    Dim stDocName As String

    stDocName = "R_Bill"      'ชื่อรีพอร์ตที่ต้องการให้สั่งปริ้น
    DoCmd.OpenReport stDocName, acNormal

Exit_PrintB_Click:
    Exit Sub

Err_PrintB_Click:
    MsgBox Err.Description
    Resume Exit_PrintB_Click

End Sub


หรือตัวอย่างโค้ดฉบับย่อที่ผมใช้ปุ่มเดียวสั่งปริ้นรีพอร์ตหน้าต้นฉบับ,สำเนา ครับ
'สังให้เปิดรีพอร์ต "ชื่อรีพอร์ต" ,acNormal = สั่งปริ้นเลย / acPreview =เปิดหน้าแสดงตัวอย่าง
โค๊ด: [Select]
Private Sub Print_CusCopy_Click()
    Me.txtBilltype = "ต้นฉบับ"
    DoCmd.OpenReport "R_vaBill_meNameCus", acNormal 
    Me.txtBilltype = "> สำเนา <"
    DoCmd.OpenReport "R_vaBill_meNameCus", acNormal
End Sub

225
ห้อง Ms Access อื่นๆ / : รบกวนสอบถามเกี่ยวกับฟังก์ชั่น วันที่ครับ
« เมื่อ: 15 เม.ย. 62 , 11:03:26 »
ที่ปุ่มคำนวนของท่านปิ่นณรงค์ใส่ +1ไปครับ
โค๊ด: [Select]
Me.totalDay = DateDiff("d", ([Forms]![TableReport]![BeginDate]), ([Forms]![TableReport]![EndDate]) + 1) & "  วัน"
ปล.ตอบมาแบบ...อ่านะครับ ไม่รู้ใช้คำตอบหรือแนวทางแก้ปัญหาจริงๆใหมช่วยชี้แจงมาด้วยนะครับ(จะได้แจ้งลบ --.--)

226
ห้อง MS Access / : ขอสูตร แสดง จำนวน วัน และ ชม. ในการทำงานจากเวลารวมเป็นนาที
« เมื่อ: 02 เม.ย. 62 , 12:07:06 »
อ้างจาก: สันติสุข ที่ 01 เม.ย. 62 , 23:20:19
x \ y = จำนวนเต็มของ x / y
x Mod y = เศษเหลือจาก x / y เป็นจำนวนเต็ม

ตัวอย่างการนำไปใช้ (1วัน = 24ชั่วโมง = 1440นาที)

Text1 = 1500 นาที

Text2 = [Text1]\1440          = 1 วัน
Text3 = ([Text1]\60) Mod 24    = 1 ชั่วโมง

หมายเหตุ จากตัวอย่างจะเป็นการปัดเศษนาทีทิ้งทั้งหมดครับ (59นาที=0ชม.)
มาแถม [Text1] Mod 60 = เศษนาทีที่เหลือ
แถม2 Text2 =[Text1]\1440 & " วัน " & ([Text1]\60) Mod 24 & " ชั่วโมง" = 1 วัน 1 ชั่วโมง

227
ห้อง MS Access / : รบกวนสอบถามการอ่านเลขบัตรประชาชนทีครับ
« เมื่อ: 31 มี.ค. 62 , 10:30:13 »
ลองศึกษาแนวทางจากกระทู้นี้ครับ --> ต้องการนำเครื่องอ่านบัตรประชาชนเพื่อนำข้อมูลลงในตาราง ACCESS

228
ห้อง MS Access / : เปลี่ยนสีพื้นหลังช่องตามรหัสสีที่เรากำหนด
« เมื่อ: 23 มี.ค. 62 , 10:41:51 »
จากเดิมที่ -->
อ้างถึง
*ในเทเบิ้ล "JPMA" มีชื่อคอลัมน์ RGB ซึ่งมันเป็นชื่อซ้ำกับตัวแปลไปแก้เป็นชื่ออื่นซะเป็นอันจบครับ
เมื่อเรามีการแก้ชื่อคอลัมน์ไปนั้น ในฟอร์มที่มีการลิ้งเทเบิ้ลดังกล่าวจะต้องมาทำทีเป็นว่าสั่งลิ้งเทเบิ้ลนั้นใหม่/ที่กล่องข้อความที่มีการลิ้งคอลัมน์ก็เช่นกัน(แม้เราจะเห็นว่ามันเปลี่ยนไปอัตโนมัติแล้วแต่บางที่โปรแกรมมันเอ้อครับ)

ส่วนเรื่องแปลง RGB เป็น HEX แล้วมาใช้โค้ดแปลงกลับมาเป็น RGB อีกนั้นเพื่ออะไรครับ :question:
คือจะบอกว่าที่ท่านใช้ให้อ่าน RGB จากกล่องข้อความมาเลยนั่นล่ะใช้ได้แล้วครับ

ไฟล์ที่ผ่านการแก้ไขชื่อเทเบิ้ลเป็น cRGB และแก้หน้าฟอร์มแล้ว & เปิดใช้สคลิปอ่านค่าสี RGB ของท่านด้วย

229
ห้อง MS Access / : เปลี่ยนสีพื้นหลังช่องตามรหัสสีที่เรากำหนด
« เมื่อ: 22 มี.ค. 62 , 17:38:54 »
*ในเทเบิ้ล "JPMA" มีชื่อคอลัมน์ RGB ซึ่งมันเป็นชื่อซ้ำกับตัวแปลไปแก้เป็นชื่ออื่นซะเป็นอันจบครับ

230
ห้อง MS Access / : เปลี่ยนสีพื้นหลังช่องตามรหัสสีที่เรากำหนด
« เมื่อ: 10 มี.ค. 62 , 17:08:48 »
โดยทั่วไป Ms Access จะใช้โค้ดสีที่ต่างจากพวก > Hex / RGB / MS Access Color Values
แต่สามารถกำหนดใช้เป็น RGB ได้เช่น Me.TextBox.BackColor = RGB(255, 255, 255) เป็นต้น

ดังนั้นการที่จะนำโค้ดสีที่เป็น Hex มาใช้ได้ก็ต้องแปลงให้กลายไปเป็น RGB ก่อนด้วย Module ตัวอย่างของท่านปิ่นณรงค์
หรือ > https://stackoverflow.com/questions/40588470/setting-access-colour-codes-in-vba/50523021#50523021
โค๊ด: [Select]
Public Function Color_Hex_To_Long(strColor As String) As Long
    Dim iRed As Integer
    Dim iGreen As Integer
    Dim iBlue As Integer

    strColor = Replace(strColor, "#", "")
    strColor = Right("000000" & strColor, 6)
    iBlue = Val("&H" & Mid(strColor, 1, 2))
    iGreen = Val("&H" & Mid(strColor, 3, 2))
    iRed = Val("&H" & Mid(strColor, 5, 2))

    Color_Hex_To_Long = RGB(iRed, iGreen, iBlue)
End Function
หรือ > https://stackoverflow.com/questions/51292169/how-to-set-background-of-a-form-to-a-hexidecimal-color-in-ms-access-vba
ซึ่งวิธีนี้สามารถแปลงออกมาได้เลยไม่ต้องใช้โมดูล ผมจึงขอนำไฟล์ตัวอย่างของท่านปิ่นณรงค์มาทดสอบได้ผลตามไฟล์ตัวอย่างครับ
โค๊ด: [Select]
Me.Detail.BackColor = RGB("&H" & Left$(s, 2), _
                          "&H" & Mid$(s, 3, 2), _
                          "&H" & Right$(s, 2))
โค๊ด: [Select]
Me.Detail.BackColor = "&H" & Right$(s, 2) & Mid$(s, 3, 2) & Left$(s, 2)

231
ห้องสนทนาทั่วไป / : จะออกแบบระบบงานแบบนี้ได้ยังไงครับ
« เมื่อ: 13 ก.พ. 62 , 14:13:43 »
สวัสดีครับ
เริ่มแรกในรูปแบบผมมองออกไปเป็นแนวการเหมือนทำแบบฟอร์มกรอกที่อยู่แล้วใส่รหัสไปรษณีย์ให้อัติโนมัติ ซึ่งก็จะมีการทำเทเบิ้ลเพื่อแยกแต่ล่ะส่วน(tb_geography,tb_province,tb_amphur,tb_district)ใว้ก่อน
ดังนั้นการที่จะมีชั้นลึกเข้าไปอย่างไม่จำกัดคงจะเป็นไปไม่ได้ ยกเว้นว่าจะออกแบบให้มีเทเบิ้ลเปล่ารอใว้ก่อนตามจำนวนที่คิดว่าจะลึกเข้าไปไม่เกินนี้(และโปรแกรมรองรับด้วยอ่านะ)
โดยในแต่ล่ะเทเบิ้ลนั้นก็ต้องมีการอ้างถึงเทเบิ้ลชั้นก่อนหน้าด้วยเช่น ตำบลนี้ อยู่ในอำเภอนี้ จังหวัดนี้ และภูมิภาคนี้ เป็นต้น เท่ากับว่าถ้าข้อมูลลึกลงไป100ชั้น ในเทเบิ้ลชั้นที่100ก็จะมีการผูกว่าเกี่ยวข้องกับใครบ้างในเทเบิ้ลตั้งแต่ 1-99เลย


ที่นี้เมื่อจะมีการเพิ่มข้อมูลลงไป เช่นว่ามีภูมิภาคใหม่ก็ทำฟอร์มลิ้ง tb_geography เพื่อเพิ่มข้อมูลลงไปตรงๆได้เลย
ถ้าจะเพิ่มตำบลล่ะโอเครว่าลิ้ง tb_district แต่ก็ต้องมีการให้ไล่ใส่ข้อมูลมาตั้งแต่ต้นด้วยว่าอยู่ในภูมิภาค->จังหวัด->อำเภออะไร เป็นต้น :shout:
แต่นี้คือมีการระบุ/คิดใว้ล่วงหน้าก่อนแล้วว่าข้อมูลที่จะเพิ่มเข้าไปนั้นอยู่ในชั้นไหนต้องเปิดฟอร์มใดเพื่อมาเพิ่มข้อมูลนั้นๆ หรือจะให้เป็นว่าเมื่อเปิดดูรายการใดๆแล้วให้แสดงรายการย่อยด้านล่างในฟอร์มย่อยแล้วให้สามารถเพิ่มรายการใหม่สดๆลงไปได้เลยลองหาวิธี,หาแนวทางทำดูครับ

ขอจบแนวทางเบื้องต้น(ประสาคนผ่านมาเห็น)ใว้เพียงเท่านี้ครับ :meaw:

232
ห้อง MS Access / : ช่วยแนะนำการเขียนคำสั่ง VBA ใน Acess
« เมื่อ: 05 ม.ค. 62 , 11:17:23 »
อ้างจาก: buakird ที่ 22 ธ.ค. 61 , 11:24:48
รบกวนเพิ่มเติมครับ...
ได้นำคำแนะนำทั้งหมดมาลงทำงานในตารางโดยผ่านฟอร์ม...ปรากกฏว่า..ฟอร์มกับตารางไม่ค่อยจะสัมพันธ์กัน...พิมพ์ข้อมูลบนฟอร์มแต่ไม่ปรากฏในตารางต้องปิดตารางแล้วเปิดมาใหม่จึงจะปรากฏข้อมูล...ไม่ทราบผิดพลาดตรงไหนครับ

ติดตามต่อได้ที่กระทู้นี้เน้อ > การบันทึกข้อมูลลงตารางจากการใช้แบบฟอร์ม

233
ห้อง MS Access / : วิธีเพิ่มภูมิภาค(ภาคเหนือ,กลาง,ใต้,ออก,ตก,อีสาน)เพื่อคัดกรองจังหวัด
« เมื่อ: 19 ธ.ค. 61 , 14:48:24 »
อ้างถึง
ไม่ให้ช่องภูมิภาคเป็นช่องหลัก , เลือกจังหวัดเสร็จ > ช่องภูมิภาคขึ้นมาให้เลย
ผมขออนุญาตนำไฟล์ของ อ.ปิ่นณรงค์ ไปแก้นะครับ โดย
• เปลี่ยนช่องเลือกภาค(Cb_geography) เป็น TextBox
• จังหวัด
  - column count = 3 , column widths = 0cm;2cm;0cm
  - Data > Row Source =
โค๊ด: [Select]
SELECT tb_province.province_id, tb_province.Province_th, tb_geography.GEO_NAME FROM tb_province INNER JOIN tb_geography ON tb_province.geo_id = tb_geography.GEO_ID;
  - VB ในส่วนของ cb_province_AfterUpdate เพิ่ม     
โค๊ด: [Select]
Me.Cb_geography = cb_province.Column(2)
ปล.ผมก็...เอาอ่านะลองดูจากไฟล์เลยครับ :prettiness:

234
ห้อง MS Access / : การใช้คำสั่ง iifซ้อน iif
« เมื่อ: 09 ธ.ค. 61 , 13:21:46 »
ต้องใส่ลูกน้ำคั่นวงเล็บปิดด้วยใหมครับนั้น ตย.ที่ผมใช้ =IIf([do_T15]=True,IIf([15_ราคา2]<>"",[15_ราคา2]+[15_ราคา],"0"),"0")
ปล.ถ้าใช้ ),),),),),),),),),),) คือมันไม่มีอะไรอยู่ข้างในมันจะแปลงร่างให้เป็น ))))))))))) ตามเดิมอยู่ดี ลองเป็น ,[%Efficiancy]),[%Efficiancy]),... แทนดูได้ใหมครับ :sweat:

โค๊ด: [Select]
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])
,[%Efficiancy])
,[%Efficiancy])
,[%Efficiancy])
,[%Efficiancy])
,[%Efficiancy])
,[%Efficiancy])
,[%Efficiancy])
,[%Efficiancy])
,[%Efficiancy])
,[%Efficiancy])

หน้า: 1 ... 10 11 12 [13] 14 15 16 ... 18