แสดงกระทู้

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

หน้า: 1 2 3 4 [5]
73
ห้อง MS Access / วิธีแก้ error รูปแบบฐานข้อมูลไม่รู้จัก
« เมื่อ: 07 มิ.ย. 61 , 12:08:33 »
ช่วงนี้ หลังจากอัพเดท windows 10
error รูปแบบฐานข้อมูลไม่รู้จัก บ่อยมากครับ



แต่เวลาไปเปิดไฟล์ ฐานข้อมูลหลังบ้าน มันจะซ่อมแซ่มให้อัตโนมัติ ซึ่งก็กลับมาให้ได้ปกติ แล้วใช้ไปซักพักก็จะเป็นอีก ก็ซ่อมแซมกันไป

คืออยากทราบว่าใครมีวิธีแก้บ้างมั้ยครับ

เท่าที่หาข้อมูล error นี้เกิดจาก
- ความแตกต่างของเวอร์ชั่น
- ปัญหาด้านฮาร์ดแวร์ ซอฟแแวร์
- ไวรัส

ซึ่งดูแล้วเครื่องลูกข่ายก็ไม่ได้มีอะไรผิดปกติ access ก็ใช้เวอร์ชั่นเดียวกัน

ขอบคุณครับ

74
ห้อง MS Access / > CurrentDb.Execute Insert into error รบกวนหน่อยคร้าบ
« เมื่อ: 26 เม.ย. 61 , 11:55:09 »
ขอบคุณครับ

ถ้าไม่ใส่ Nz() แล้ว Bill_VAT_Total ไม่มีค่า มันจะเป็น NULL รึป่าวครับ
ผมเคยลองแบบไม่ใส่ Nz() ก็ไม่ผ่าน

เปลี่ยนใหม่เอา Nz() ออกแล้ว และไม่มี text ที่เป็นค่าว่างเลย
แต่มีแค่ Bill_Discount_Price(currency) / Bill_Discount_Percent(number) ที่มีค่า Null ซึ่งก็ไม่น่าจะ error
ส่วน Now() เขียน "... '" & Now() & "' ..." หรือ "..." & Now() & "..." ก็ยัง error เหมือนเดิม

โค๊ด: [Select]
CurrentDb.Execute "INSERT INTO Credit_Note ( CN_ID, CN_Customer_ID, CN_INV_Refer1, CN_Status, CN_Main_Contact_Name, CN_Main_Contact_Tel, CN_PO_No, CN_Quotation_No, CN_Full_Address, CN_VAT_Total, CN_VAT_Percent, CN_Sub_Total, CN_Net_Price, CN_Discount_Price, CN_Discount_Percent, CN_Date, CN_Payment_Type) " _
& "VALUES ('" & getCN_ID & "', " & Me![Customer_ID] & ", '" & Me![Bill_ID] & "', " & CnStatus & " , '" & Me![O_Main_Contact_Name] & "', '" & Me![O_Main_Contact_Tel] & "', '" & Me![PO_ID] & "', '" & Me![Quotation_ID] & "', '" & NewCN_Full_Address & "', " & Me![Bill_VAT_Total] & ", " & Me![Bill_VAT_Percent] & ", " & Me![Bill_Sub_Total] & ", " & Me![Bill_Net_Price] & ", " & Me![Bill_Discount_Price] & ", " & Me![Bill_Discount_Percent] & ", '" & Now() & "', '" & Me![Bill_Payment_Type] & "')"
ตึ๊บเลยครับ  :dizzy:

75
ห้อง MS Access / CurrentDb.Execute Insert into error รบกวนหน่อยคร้าบ
« เมื่อ: 25 เม.ย. 61 , 15:57:02 »
สอบถาม จากโค้ดตัวอย่างของผม มันผิดตรงไหนครับ

อ้างถึง
error 3134
Syntax error in INSERT INTO statement.

น่าจะผิดที่จุดเล็ก ๆ แต่ลองแก้หลายรอบแล้ว error ตลอดครับ ไม่รู้จริง ๆ ผิดตรงไหน  :confused:

โค๊ด: [Select]
CurrentDb.Execute "INSERT INTO Credit_Note ( CN_ID, CN_Customer_ID, CN_INV_Refer1, CN_Status, CN_Main_Contact_Name, CN_Main_contact_Tel, CN_PO_No, CN_Quotation_No, CN_Full_Address, CN_VAT_Total, CN_VAT_Percent, CN_Sub_Total, CN_Net_Price, CN_Discount_Price, CN_Discount_Percent, CN_Date, CN_Payment_Type) " _
& "VALUES ('" & getCN_ID & "', " & Me![Customer_ID] & ", '" & Me![Bill_ID] & "', " & CnStatus & ", '" & Nz(Me![O_Main_Contact_Name], "") & "', '" & Nz(Me![O_Main_Contact_Tel], "") & "', '" & Nz(Me![PO_ID], "") & "', '" & Nz(Me![Quotation_ID], "") & "', '" & NewCN_Full_Address & "', " & Nz(Me![Bill_VAT_Total], "") & ", " & Nz(Me![Bill_VAT_Percent], "") & ", " & Nz(Me![Bill_Sub_Total], "") & ", " & Nz(Me![Bill_Net_Price], "") & ", " & Nz(Me![Bill_Discount_Price], "") & ", " & Nz(Me![Bill_Discount_Percent], "") & ", '" & Now() & "', '" & Nz(Me![Bill_Payment_Type], "") & "');"


ขอบคุณครับ

76
ห้อง MS Access / > รบกวนสอบถาม code การ filter ข้อมูลครับ
« เมื่อ: 31 ม.ค. 61 , 15:05:45 »
ใน combo box ฟิลที่ต้องการ filter ครับ เช่น combo ของ style no , ลูกค้า ,  OD#
ส่วนปุ่มค้นหา ใช้ select from ปกติเลยครับ

แต่เท่าที่ผมดูกระทู้อื่น ๆ ของคุณ วิธีผมไม่น่าจะใช้กับโปรแกรมของคุณ เพราะผมทำใน continue form แต่ของคุณ ผลการค้นหามันอยู่ใน sub form และยังมีเงื่อนไขดึงรูปของ style อีก

77
ห้อง MS Access / > รบกวนสอบถาม code การ filter ข้อมูลครับ
« เมื่อ: 30 ม.ค. 61 , 16:21:59 »
ถ้าหมายถึงการ filter หลาย filter มากกว่า 2 ขึ้นไป

ผมเขียนโค้ด

โค๊ด: [Select]
Function FilterCheck()
    Dim strWhere As String

    If Not IsNull(ชื่อคอมโบ1) Then
            strWhere = strWhere & "[ฟิลด์ที่1] = " & ชื่อคอมโบ1 & " AND "
    End If
               
    If Not IsNull(ชื่อคอมโบ2) Then
            strWhere = strWhere & "[ฟิลด์ที่2] = '" & ชื่อคอมโบ2 & "' AND "
               
    End If
   
    If Not IsNull(strWhere) Then
            strWhere = Left(strWhere, Len(strWhere) - 5)
            Me.Filter = strWhere
            Me.FilterOn = True
            Me.Requery
    Else
            Me.FilterOn = False
    End If
   
   
End Function
เวลาใช้ เรียก Call FilterCheck ในเหตุการณ์ on change ของ combo box

78
ห้อง MS Access / > สอบถามการใช้ "Select * from ครับ
« เมื่อ: 30 ม.ค. 61 , 16:00:19 »
select query ได้นะครับ

จากภาพแรก ก็เปิด query builder ในฟอร์มแล้วก็บันทึกเป็น ชื่อคิวรี่
ในฟังก์ชันค้นหา ก็ใช้ select * from ชื่อคิวรี่ ...

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