แสดงกระทู้

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 - ชวลิต เสนะสุทธิ

หน้า: 1 2 [3] 4
37
ห้อง MS Access / : สอบถามการใส่เสียง Beep ตอนขึ้น Massess Box ครับ
« เมื่อ: 04 ธ.ค. 63 , 14:20:39 »
ได้ครับ เพราะโจทย์ที่ได้มาคือ เมื่อมี  bopup Massess Box ขึ้นมาให้มีเสียงครับ เสียงอะไรก่ได้

38
ห้อง MS Access / : สอบถามการใส่เสียง Beep ตอนขึ้น Massess Box ครับ
« เมื่อ: 04 ธ.ค. 63 , 13:59:03 »
ประมาณเสียงเพลง หรือ เสียงไซเลนครับ
เสียง Beep ไม่มีเสียงเลย

39
ห้อง MS Access / สอบถามการใส่เสียง Beep ตอนขึ้น Massess Box ครับ
« เมื่อ: 03 ธ.ค. 63 , 16:07:18 »
สอบถามการใส่เสียง Beep ตอนขึ้น Massess Box ครับ
ให้เสียงดังจนกว่าจะกดปิด Massess Box ครับ

Private Sub QRCode_AfterUpdate()
 Dim wisroot As String
  Dim str1 As String
  wisroot = Me.[QRCode].Value
  str1 = "[QRCodePCB]=" & "'" & wisroot & "'"
 
  If Me.[QRCode] = DLookup("[QRCodePCB]", "dbo_AOI40241CA", str1) Then
  MsgBox "ข้อมูลซ้ำกัน กรุณาตรวจสอบ"
  Me.Undo
  Else


ขอบคุณครับ

40
ห้อง MS Access / สอบถามการตั้งค่าให้ Access รับค่าจาก Port (COM01) จาก Scanner
« เมื่อ: 30 พ.ย. 63 , 16:31:21 »
สอบถามการตั้งค่าให้ Access รับค่าจาก Port (COM01) จาก Scanner
สามารถทำได้หรือไม่ครับ
รบกวนด้วยครับ
 
ขอบคุณมากครับ

41
ห้อง MS Access / : การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตาราง
« เมื่อ: 12 ต.ค. 63 , 14:35:02 »
ขอบคุณมากครับ

42
ห้อง MS Access / : การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตาราง
« เมื่อ: 12 ต.ค. 63 , 09:21:32 »
ถ้าเราต้องการให้แยก Field ในตาราง ครับ เราต้องเพิ่มทุกช่องใช่ไหมครับ
เช่น ถ้าเราใส่ตรง Number 1 - 10
ก่จะได้
Runnum   : AAA 10ตัว
Runnum1 : 2010 10ตัว
Runnum2 : 0001-0010

43
ห้อง MS Access / : การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตาราง
« เมื่อ: 09 ต.ค. 63 , 16:15:13 »
ขอบคุณมากครับ ทำได้แล้วครับ

44
ห้อง MS Access / การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตาราง
« เมื่อ: 09 ต.ค. 63 , 15:21:06 »
สอบถามว่าการใช้โค้ด การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตารางแล้วจะได้ 100 ตาราง ตามจำนวนที่กรอกเข้าไป และการสั่งเพิ่มครั้งต่อไปจะใส่ค่าเดิมไม่ได้ เพื่อนำไปประยุกต์ในการปริ้น Label ครับเช่น

45
ห้อง MS Access / : การเปรียบเทียบค่า 2 ตาราง 2 ข้อมูล ให้ตรงกันบน Form หลังจากการกรอกข้อมูล
« เมื่อ: 10 ก.ย. 63 , 12:10:43 »
ขอบคุณครับ

46
ห้อง MS Access / : การเปรียบเทียบค่า 2 ตาราง 2 ข้อมูล ให้ตรงกันบน Form หลังจากการกรอกข้อมูล
« เมื่อ: 10 ก.ย. 63 , 11:19:51 »
อีกอย่างครับ ถ้าไม่มีช่องให้กรอก Tag No Barcode หละครับควรเป็นแบบนี้เปล่าครับ หรือ ตรงตาราง Tag No Barcode เป็น Autonumber

Private Sub Text97_AfterUpdate()
Dim chk, chk2 As Variant
If Not IsNull(Me.Text97) And Not IsNull[Tag No Barcode] Then
chk = DLookup("[Barcode PCB]", "[In Process]", "[Barcode PCB] = '" & Me.Text97 & "' And [Tag No Barcode] ")
chk2 = DLookup("[Barcode PCB]", "[Out Process]", "[Barcode PCB] = '" & Me.Text97 & "' And [Tag No Barcode]")
    If IsNull(chk) And IsNull(chk2) Then
       MsgBox "ไม่มีข้อมูลในทั้งสองตาราง กรุณาตรวจสอบ"
       Me.Undo
    Else If IsNull(chk) Then
       MsgBox "ไม่มีข้อมูล In Process oki กรุณาตรวจสอบ"
       Me.Undo
    Else If IsNull(chk2) Then
       MsgBox "ไม่มีข้อมูล Out Process oki กรุณาตรวจสอบ"
       Me.Undo
    Else If Not IsNull(chk) and Not IsNull(chk2) Then
      MsgBox "มีข้อมูลทั้งสอง Process กรุณาตรวจสอบ"
    End If
End If
    End Sub

47
ห้อง MS Access / : การเปรียบเทียบค่า 2 ตาราง 2 ข้อมูล ให้ตรงกันบน Form หลังจากการกรอกข้อมูล
« เมื่อ: 10 ก.ย. 63 , 10:56:57 »
ขอบคุณมากครับ เดี๋ยวขอนำไปทดสอบก่อนครับ

48
ห้อง MS Access / การเปรียบเทียบค่า 2 ตาราง 2 ข้อมูล ให้ตรงกันบน Form หลังจากการกรอกข้อมูล
« เมื่อ: 10 ก.ย. 63 , 10:18:38 »
การเปรียบเทียบค่า 2 ตาราง 2 ข้อมูล ให้ตรงกันบน Form หลังจากการกรอกข้อมูล


ถ้าเช็ตแค่ 1 ข้อมูลทำได้ แต่ถ้า 2 ข้อมูลครับ รบกวนช่วยแก้ไขโค้ดด้วยครับ

Private Sub Text97_AfterUpdate()
 Dim chk As Variant
chk = DLookup("[Barcode PCB]", "[In Process oki]", "[Barcode PCB] = '" & Me.Text97 & "'")
    If IsNull(chk) Then
       MsgBox "ไม่มีข้อมูล In Process กรุณาตรวจสอบ"
       Me.Undo
        Exit Sub
    End If
    End Sub

ขอบคุณครับ

49
ห้อง MS Access / : ใช้ DataBase SQL Server "Access Runtime 2013 ไม่สามารถเปิดใช้งานได้"
« เมื่อ: 07 ก.ย. 63 , 10:07:41 »
ได้แล้วครับ คือต้องเอา Microsoft ODBC Driver 17 for SQL Server (x64) ได้ติดตั้งที่เครื่องที่ติดตั้ง Access Runtime แล้วตั้งค่า Connect ไปที่ Server ให้เหมือนกับเครื่องที่สร้างขึ้นมา แล้วจะสามารถเปิดไฟล์ขึ้นมาได้เองครับ

ขอบคุณสำหรับคำตอบหลายอย่างครับ

50
ห้อง MS Access / : ใช้ DataBase SQL Server "Access Runtime 2013 ไม่สามารถเปิดใช้งานได้"
« เมื่อ: 04 ก.ย. 63 , 15:09:37 »
ทดสอบแล้วครับปกติ ตัวที่สร้าง Microsoft Access 2016 Pro เปิดได้ปกติครับ แต่ Microsoft Access Runtime 2013 เปิดไม่ได้ครับ

51
ห้อง MS Access / ใช้ DataBase SQL Server "Access Runtime 2013 ไม่สามารถเปิดใช้งานได้"
« เมื่อ: 04 ก.ย. 63 , 11:01:37 »
ใช้ DataBase SQL Server 2008 "Access Runtime 2013 ไม่สามารถเปิดใช้งานได้" แต่ Microsoft Access 2016 เปิดได้ปกติครับ



52
ห้อง MS Access / : สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« เมื่อ: 22 ส.ค. 63 , 08:20:48 »
ขอบคุณมากครับที่ให้ความรู้ :love: :love: :love:

53
ห้อง MS Access / : สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« เมื่อ: 21 ส.ค. 63 , 15:55:59 »
ได้แล้วครับ
Dim chk As Variant
chk = DLookup("[TAG No Barcode]", "[In Process oki]", "[TAG No Barcode] = '" & Me.Text95 & "'")
    If IsNull(chk) Then
       MsgBox "ไม่มีข้อมูล Process ก่อนหน้านี้ "
        Exit Sub
    End If

แต่ถ้าต้องการไม่ให้บันทึกได้แหละครับทำไงคับ ขอบคุณครับ

54
ห้อง MS Access / : สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« เมื่อ: 21 ส.ค. 63 , 13:27:20 »


Private Sub Text9568_AfterUpdate()
Dim chk As String
chk = DLookup("TAG No Barcode", "In Process oki", "TAG No Barcode='" & Me.Text9568 & "'")
If IsNull(chk) Then
MsgBox "ไม่มีข้อมูล Process ก่อนหน้านี้ "
    Exit Sub
End If
End Sub

หน้า: 1 2 [3] 4