แสดงกระทู้

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

หน้า: 1 [2] 3 4 5 ... 7
17
ผมแปะลิงค์ช่องยูทูปของอาจารย์ TTT ใว้ใน กล่องข่าวด้านบน กับ แหล่งความรู้ & ประชาสัมพันธ์ ด้านล่างกดตามเข้าไปดูกันได้เลยครับผม :yuush:

หรือกดลิงค์จากที่นี่เลยก็ได้ครับ ->> ช่องยูทูปเรียนรู้การพัฒนาซอฟแวร์ฐานข้อมูล MS Access ด้วยตัวเอง By อ.TTT(Access-Creator)
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

18
โปรแกรมนี้ใช้ไงครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

19
ไม่รู้ว่าใช่ Version ที่ต้องการหรือเปล่า
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

20
โจทย์เดียวกันกับกระทู้นี้นะครับ https://www.thai-access.com/index.php?topic=1614.msg7017#msg7017
คำตอบ
โค๊ด: [Select]
Private Sub Select_AfterUpdate()
    CurrentDb.Execute "UPDATE RssmNew_filter SET complete = " & Me.Select & " WHERE เลขที่ใบเบิก = '" & Me.IDNumber & "'", dbFailOnError
    Me.Recalc
End Sub

ชุดคำสั่งที่จะนำไปใช้ก็แก้ให้ตรงกับของท่านดังนี้
Private Sub "ชื่อปุ่ม Input"_Click()
   RssmNew_filter--> ชื่อตารางหรือคิวรี่ที่ซัพฟอร์มดึงมา
   Me.IDNumber--> ชื่อกล่องข้อมูลบนฟอร์มหลักที่ใช้กรองข้อมูลซัพฟอร์ม(จากภาพท่านกรองจากกล่อง Iso No. ใช่หรือไม่?)
เลขที่ใบเบิก--> ชื่อฟิวล์ในตารางซัพฟอร์มที่รับคำสั่งกรองมาจากข้อบน ^^^^^
Me.Select--> me.cmb_package(ชื่อกล่องที่ต้องการดึงบนหน้าฟอร์ม)
complete--> j_testloop(ชื่อฟิวล์ในตารางที่ต้องการให้นำข้อมูลมาวาง)
End Sub

ปล.อัพเดทอัพไฟล์ตัวอย่างกระทู้เก่าให้แล้วนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

21
ได้แล้วครับ ขอบคุณมากครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

22
ลองดูครับ
อุตส่าห์อธิบายโจทย์ขนาดนี้พยายามทำให้ละกัน  :cool:

ขอสอบถามเพิ่มได้ไหมครับ

หากผมต้องการให้ตรงส่วน "กรอกข้อมูลผู้ป่วยจากการซักประวัติ" มีการเช็คก่อน INSERT ลงตาราง tblDiseaseEmp
ว่าข้อมูลที่กรอกทั้งจาก textbox txtEmployeeID ทั้งสาม และทั้งจาก textbox txtDisease ทั้งสาม นั้นซ้ำกับข้อมูลในตาราง tblDiseaseEmp ที่มีอยู่ก่อนแล้วหรือไม่
(หากซ้ำทั้งคู่ไม่ให้ INSERT แต่หากไม่ซ้ำทั้งคู่หรือซ้ำแค่ฝั่งใดฝั่งหนึ่งสามารถ INSERT ลงไปได้ เพราะตารางใช้ Composite Key)

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


รบกวนอีกครั้งนึงนะครับ

ขอบคุณมากๆครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

23
ถ้าใช่วิธีง่ายๆ มีตัวอย่าง 2 แบบ
ในการตรวจเช็คก็คือ เช็คว่ามีตัวเลขเหล่านี้ทั้ง 3 ตัวหรือไม่ (เหมือนเช็คว่าใช่ตัวสลับหรือไม่  :shout:)

ถ้าใช้ textbox ในการตรวจสอบ 2 textbox ก็จะใช้โค้ดแบบนี้
สมมุติ textbox ใช้ในการกรอก ชื่อ InputTextbox
textbox ที่แสดงตัวเลขเริ่มต้นไว้ตรวจสอบชื่อ  targetTextbox
โค๊ด: [Select]
Dim InputNum, TargetNum As Long
Dim Num1, Num2, Num3, Num4, Num5, Num6 As Integer
Dim Digit1, Digit2, Digit3 As Long

InputNum = Trim(Me.InputTextbox)
TargetNum = Trim(Me.targetTextbox)
Digit1 = Left(InputNum, 1)
Digit2 = Mid(InputNum, 2, 1)
Digit3 = Right(InputNum, 1)

Num1 = Digit1 & Digit2 & Digit3
Num2 = Digit1 & Digit3 & Digit2
Num3 = Digit3 & Digit2 & Digit1
Num4 = Digit3 & Digit1 & Digit2
Num5 = Digit2 & Digit1 & Digit3
Num6 = Digit2 & Digit3 & Digit1

If Num1 = TargetNum Then
MsgBox "ท่านถูกรางวัล"
Exit Sub
ElseIf Num2 = TargetNum Then
MsgBox "ท่านถูกรางวัล"
Exit Sub
ElseIf Num3 = TargetNum Then
MsgBox "ท่านถูกรางวัล"
Exit Sub
ElseIf Num4 = TargetNum Then
MsgBox "ท่านถูกรางวัล"
Exit Sub
ElseIf Num5 = TargetNum Then
MsgBox "ท่านถูกรางวัล"
Exit Sub
ElseIf Num6 = TargetNum Then
MsgBox "ท่านถูกรางวัล"
Exit Sub
Else
MsgBox "ท่านไม่ถูกรางวัล้"
End If


ส่วนถ้าจะนำไปใช้กับคิวรี่ให้ทำแบบนี้

1.นำโค้ดนี้ไปวางใน Module
โค๊ด: [Select]
Public Function MyCheck(FieldTarget As Integer, FieldInput As Integer) As String
Dim InputNum, TargetNum As Long
Dim Num1, Num2, Num3, Num4, Num5, Num6 As Integer
Dim Digit1, Digit2, Digit3 As Long
Dim Result As String
InputNum = Trim(FieldInput)
TargetNum = Trim(FieldTarget)
Digit1 = Left(InputNum, 1)
Digit2 = Mid(InputNum, 2, 1)
Digit3 = Right(InputNum, 1)

Num1 = Digit1 & Digit2 & Digit3
Num2 = Digit1 & Digit3 & Digit2
Num3 = Digit3 & Digit2 & Digit1
Num4 = Digit3 & Digit1 & Digit2
Num5 = Digit2 & Digit1 & Digit3
Num6 = Digit2 & Digit3 & Digit1

If Num1 = TargetNum Then
Result = "ท่านถูกรางวัล"

ElseIf Num2 = TargetNum Then
Result = "ท่านถูกรางวัล"

ElseIf Num3 = TargetNum Then
Result = "ท่านถูกรางวัล"

ElseIf Num4 = TargetNum Then
Result = "ท่านถูกรางวัล"

ElseIf Num5 = TargetNum Then
Result = "ท่านถูกรางวัล"

ElseIf Num6 = TargetNum Then
Result = "ท่านถูกรางวัล"
Else
Result = "ท่านไม่ถูกรางวัล"
End If
MyCheck = Result
End Function

2.สมมุติตารางมี Field F1 คือฟิลล์ผลออก
                    Field F2 คือฟิลล์ที่เราระบุ
SQL ก็จะได้แบบนี้
โค๊ด: [Select]
SELECT IIf(Not IsNull([F2]),Mycheck([F1],[F2]),Null) AS ตรวจ, *
FROM Table1;


เวลาเรียกใช้ฟังชั้น ก็ให้ใส่ ตรวจ: IIf(Not IsNull([F2]),Mycheck([F1],[F2]),Null) เข้าไปครับ

พอดีผมไม่ค่อยเข้าใจโจทย์ที่ท่านอธิบาย ถ้าตอบไม่ตรงประเด็นต้องขออภัยด้วยนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

24
สวัสดีชาวไท.Access ทุกท่านครับ ปกติเว็บเราจะมีการเปลี่ยนฉายาสมาชิกจาก"พลังขอบคุณ"(https://www.thai-access.com/index.php?topic=42.msg920#msg920)
อัพเดทให้เหรียญตามจำนวนของพลังขอบคุณที่ท่านนั้นได้รับมาครับ  :fake smile:

ตารางเหรียญจากพลังขอบคุณ :love:
พลังขอบคุณ 10 30 50 100 150
เหรียญ
พลังขอบคุณ 200 300 400 600 800
เหรียญ
พลังขอบคุณ 10001300160020002500
เหรียญ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

25
ขอแจก โปรแกรมด้วยได้ไหมครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

26
ขอบคุณมากๆเรยนะคะ  :love:
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

27
ได้แล้วครับ ขอบคุณมากครับ
 :cry: :cry: :cry:
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

28
ขอบคุณคับจะลองใช้ดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

29
ทำได้แล้วครับ ขอบคุณครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

30
เรียนทุกท่าน ครับ ผมอยากทราบวิธีการสร้างปุ่มบนฟอร์มให้ สามารถกดแล้ว รายชื่อที่อยู่ใน table มันสุ่มออกมาไม่ซ้ำกันนะครับ
ต.ย. เช่น ผมมี table A มีฟิลด์ id , name พอสร้างฟอร์มแล้วมีปุ่มกด อยากให้ รายชื่อมันวิ่งไปเรื่อยๆ บน textbox แล้วพอเรากดปุ่มอีกทีให้มันหยุดนะครับ
โดยมีข้อแม้ คือ รายชื่อไหนสุ่มออกมาแล้ว ต้องไม่ซ้ำกันครับหากมีการกดสุ่มอีกครั้ง ขอบคุณทุกท่านที่ชี้แนะนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

31
ใช้การสร้างเงือนไข เอาได้ไหมเช่น
สมมุติคอมโบชื่อ comboname และ Option ชื่อ Opt1 ถึง 4

Private Sub ComboName_AfterUpdate()
If Me.ComboName.Value = 1 Then
Me.Opt1 = True
ElseIf Me.ComboName.Value = 2 Then
Me.Opt2 = True
ElseIf Me.ComboName.Value = 3 Then
Me.Opt3 = True
ElseIf Me.ComboName.Value = 4 Then
Me.Opt4 = True
End If
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

32
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

หน้า: 1 [2] 3 4 5 ... 7