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:=xlFormatFr...

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

ขอบคุณครับ

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

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 & "...

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

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

ไปเจอ 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() Se...

ขอสอบถามเพิ่มเติมครับ ผมต้องการให้ Line แสดงวันที่หมดอายุ (ฟิลด์ที่ลงท้ายด้วยตัว E) ของคนนั้นๆด้วยในหัวข้อ EXP ครับ เบื้องต้นลองใช้โค้ดแบบ Name เหมือนข้อมูลไม่เข้าครับ ไม่ทราบว่าปัญหาอยู่ที่อะไรหรอครับ While Not rsLive.EOF For Each fld In rsLive.Fields If fld.Name = "Name" Then strUser = f...