Excel Forum

ขอบคุณครับผม สุดยอดมากเลยครับ

โค้ดมันมาหยุดที่ Row 968 จาก Row ทั้งหมด 4248 ครับ

อันนี้ยังไม่ได้รันโค้ดครับ แต่มีโค้ดติดไปด้วยแล้วครับ

เบื้องต้นลองนำโค้ดที่เจอในเว็บนี้นำมาประยุกต์แล้วครับ แต่เวลา Run โค้ดขึ้น Error 400 ตลอด
เป็นมือใหม่กับ Excel ด้วยครับ ขอความกรุณาด้วยครับ

Sub CalculateTimeIN()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+p
'
Columns("J:J").Select
Selection.Insert Shift:=xlToRight, CopyOrigin ...

ไม่ทราบว่าเกิดจากสาเกตุอะไรหรอครับ เป็นมือใหม่กับ Ecxel ครับ

ขอบคุณครับ

สวัสดีครับ โปรแกรมที่ผมทำเป็นโปรแกรมที่เก็บข้อมูลหลายหมวดหมู่ของสิ่งของ เช่น อุปกรณ์สำนักงาน, อุปกรณ์การช่าง, อุปกรณ์การยืม

ซึ่งอนาคตตัว User บอกว่าอาจจะมีการเพิ่มหมวดหมู่ขึ้น แต่โปรแกรมที่ผมทำ การจะเพิ่มหมวดหมู่ต้องไปเพิ่มหลายส่วน ได้แก่ Code, Textbox, Button, Query, การเชื่องโยง ต่างๆ

ซึ่งจะให ...

snasui wrote: Fri Dec 03, 2021 7:22 pm ตรงนี้ขึ้นกับความสามารถของ Developer ถ้าพร้อมจะพัฒนาและดูแลได้ก็ไม่ใช่ข้อกังวลครับ

ขอบคุณครับ

แล้วถ้าหาก User ไม่มีความรู้แล้วอยากจะเพิ่มอะไรเอง โดยที่ไม่ต้องลงไปถึงระบบ Design View
เปิด Form ละมีปุ่ม + ให้เองเลย

ตัวอย่างเช่นเหมือนการโพส Facebook โดยที่ User ไม่จำเป็นต้องลงไปถึงเขียน Code แต่ Dev ทำ UI ให้สำหรับ User แล้ว

ตรงนี้ตัว Access เหมาะไหมครับ

การที่จะเพิ่มอะไรเข้าไปใหม่ๆเช่น Textbox, Button, Label และอื่นๆ โดยสิ่งที่สร้างมาต้องมี Format ตาม Theme ของเราที่เราทำไว้ มีพื้นที่เป็นแพทเทิลเรียงกันไป

โดยปกติเขานิยมสร้างการทำงานลักษณะนี้ไหมครับ หรือว่าจะเพิ่มอะไรก็ให้เป็นหน้าที่ของ Dev

หรือถ้าจะทำแบบนั้นต้องไปเขียนบนโปรแกรมอย่างอื่นครับ ...

เบื้องต้น Path เดียวกันครับเพราะใช้ Map drive เดียวกัน เดี๋ยวลองดูครับ ขอบคุณครับ

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

snasui wrote: Thu Dec 02, 2021 11:11 am ก็ต้องหาชื่อ Field ที่มันตรงกับ Expire มันอาจจะมี Filed ที่ลงท้ายด้วย E หลาย Filed ก็อาจจะเป็นได้ อาจจะต้องตัดมาหลายอักขระแทนตัว E อักขระเดียว ฯลฯ ครับ

ยังไม่ค่อยเข้าใจครับ รบกวนอธิบายใหม่ได้ไหมครับ

ตัวแปร strExpireDate มันออกคำว่า Expire แทนอะครับ แทนที่จะออกเป็นวันที่ครับ
เหมือนมันเก็บ Value ฟิลด์ข้างขวาของฟิลด์ที่ลงท้ายด้วย E แทนครับ

โค้ดแสดงข้อความครับ


'Line Message
strMessage = "message=*Expired*" & vbNewLine & "Name : " & strUser & vbNewLine & "EXP : " & strExpireDate & vbNewLine ...

ขอบคุณครับ ได้แล้วครับ

ผมได้ลอง Add icon ลงไปใน Shortcut ของไฟล์ Access ของเรา ก็ปกติดีครับ แต่พอเข้าจากคอมเครื่องอื่นโดยใช้ Map drive มันกลับขึ้นเป็นกระดาษขาวเปล่าๆ แต่โปรแกรมสามารถเข้าใช้ได้ครับ

**ดังนั้นผมจึงสันนิษฐานว่า ปัญหาน่าจะมาจากการเพิ่ม icon ลง Shortcut เป็นการเพิ่มโดยที่เก็บค่าไว้ในเครื่องที่ตั้ง**

ไฟล ...

ไปเจอ Code ใน Stackoverflow มาแต่งงตรงนำมาประยุกต์ใช้กับ Form ตัวเองครับ เบื้องต้นลองพยายามปรับแล้ว แต่ยังไม่เข้าใจหลักการใช้ For ดีเท่าไหร่ครับ จึงขอรบกวนทุกท่านหน่อยนะครับ

การทำงานคือ เมื่อกดปุ่ม Check ก็ให้ โชว์ใน Textbox code different ว่า Code ที่ไม่มีเหมือนกันระหว่าง 2 ตารางคืออะไร จากตัวอย ...

โดยการทำงานคือ ใช้ Form1 เป็นตัวกรอกข้อมูล ส่วน Form2 เป็นตัวดูข้อมูล

ในตัวอย่างคือผมแก้ไขวันที่ของฟิลด์ Site1S ของ นายเอ เมื่อกดเลือกวันที่เสร็จให้ Form2 อัพเดตค่าตามทันทีเลย

ลอจิกประมาณว่า Textbox after update ก็ให้ Save ทันที then Requery ซับ Form2

ปัญหาคือ
1.Textbox Form1 มีเยอะครับ
2.ผมไม่ว ...

Dim rsLive As Recordset
Dim fld As Field
Dim Name As String
Dim Db As Database
Dim oXML As Object
Dim strToken As String
Dim strMessage As String
Dim strDate As String
Dim URL As String
Dim Site As String
Dim count As Integer
Dim strUser As String
Dim strExpireDate As String
Set Db = CurrentDb ...

ขอสอบถามเพิ่มเติมครับ ผมต้องการให้ Line แสดงวันที่หมดอายุ (ฟิลด์ที่ลงท้ายด้วยตัว E) ของคนนั้นๆด้วยในหัวข้อ EXP ครับ
เบื้องต้นลองใช้โค้ดแบบ Name เหมือนข้อมูลไม่เข้าครับ ไม่ทราบว่าปัญหาอยู่ที่อะไรหรอครับ


While Not rsLive.EOF
For Each fld In rsLive.Fields
If fld.Name = "Name" Then
strUser = fld ...