แสดงกระทู้

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

หน้า: 1 2 [3] 4 5 6 ... 8
37
ห้อง MS Access / > auto increment primary key กำหนด ค่าเริ่มต้น ค่าสุดท้าย ก่อนเริ่มนับรอบใหม่
« เมื่อ: 30 เม.ย. 61 , 11:33:39 »
Private Sub ID_DblClick(Cancel As Integer)
Dim strDate As String
Dim intNum As Integer, intMax As Variant
Dim strSuffix As String

strDate = Format(date, "yymmdd")
intMax = DMax("Val(Mid([ID],7))", "table1", "Left([ID],6) = '" & strDate & " '")

If Me.ID = "" Or IsNull(Me.ID) Then
        If IsNull(intMax) Then
            intMax = 0
            'Debug.Print "1"
        Else
            intMax = intMax + 1
            If intMax > 99 Then intMax = 0
            'Debug.Print "1"
        End If
        Me.ID = strDate & Format(intMax, "00")
End If

End Sub

เมื่อครบ 99 แล้วให้มันกลับเป็น 00 แต่ระวังถ้า Me.ID เป็น primary key มันจะเซฟไม่ได้นะครับเพราะจะมีค่าซ้ำ

38
ห้อง MS Access / > สอบถามการทำ Query ข้อมูลจากตารางครับ
« เมื่อ: 27 เม.ย. 61 , 15:38:47 »
1 ทำ Union All
2 แล้วทำ Crosstab Query


39
ห้อง MS Access / > สอบถามการทำ Query ข้อมูลจากตารางครับ
« เมื่อ: 27 เม.ย. 61 , 14:37:54 »
เป็นผมจะทำ Union All แล้วเอาผลลัพธ์ไปทำ Crosstab Query ครับ

ปล.พอดีใช้ 2003 เปิด .accdb ไม่ได้

40
ห้อง MS Access / > Sumค่า Grand Total ใน Report Footer
« เมื่อ: 27 เม.ย. 61 , 11:37:57 »
ก็สามารถ reference ไปได้ เช่น =Reports![ชื่อ report]![Grand Total] แต่ report ต้องเปิดอยู่นะครับ

41
ห้อง MS Access / > Sumค่า Grand Total ใน Report Footer
« เมื่อ: 26 เม.ย. 61 , 15:55:57 »
สร้าง TextBox ขึ้นมาชื่อ SumTotal กำหนดให้
 Control source =[Total Charge]
 Running Sum = Over All
 Visible = No
แล้วเอาไปวางไว้ใน section เดียวกัน หรือใกล้ๆกันกับ Total Charge

แล้วที่ Grand Total กำหนดให้ Control source =[SumTotal]

42
ห้อง MS Access / > CurrentDb.Execute Insert into error รบกวนหน่อยคร้าบ
« เมื่อ: 26 เม.ย. 61 , 15:32:24 »
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] & "')"

หรือ
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] & "," & CDbl(Now()) & ", '" & Me![Bill_Payment_Type] & "')"

43
ห้อง MS Access / > Update field in table
« เมื่อ: 25 เม.ย. 61 , 11:42:28 »
DoCmd.RunSQL "UPDATE Monthly_FG_Imple_Sum SET [Monthly_FG_Imple_Sum].TOTAL_ActualDay ='" & Me.Actualday & "' WHERE [Monthly_FG_Imple_Sum].Date= " & CDbl(Me.Date)

ปล. ให้ดูตรง TOTAL_ActualDay ว่าเป็นฟิลด์ Text หรือ Number อาจจะต้องแก้ไขตรงนี้ด้วยนะครับ

44
ห้อง MS Access / > แก้ไขแถบเมนูบาร์
« เมื่อ: 24 เม.ย. 61 , 11:05:42 »
ก็ที่หน้าต่างในรูปนั่นแหละครับ จะแก้อันไหนก็ติ๊กอันนั้นขึ้นมา แล้วก็ลากเมนูในแถบคำสั่งไปใส่

45
ห้อง MS Access / > สอบถามการ Query ทำเสดแล้วข้อมูลออกมาไม่ครบ
« เมื่อ: 22 เม.ย. 61 , 21:55:35 »
แสดงว่าคุณ Query ข้อมูลเพศหญิงมาไม่ครบ หรือ Query ผิดฟิลด์หรือผิดเงื่อนไขครับ วิธีแก้ก็คือทำให้ถูกฟิลด์หรือถูกเงื่อนไขครับ

46
ห้อง MS Access / > รบกวนช่วยบอกวิธีการ Dlookup แบบสองเงื่อนไขหน่อยครับ
« เมื่อ: 20 เม.ย. 61 , 18:14:32 »
เลขที่ก็ต้องมีตัวเลขปีรวมอยู่ในนั้นด้วย จะได้ไม่ซ้ำกับปีก่อนหน้า

47
ห้อง MS Access / > Val กับ Cdbl ใช้ยังงัยครับ
« เมื่อ: 19 เม.ย. 61 , 20:10:50 »
Val รับตัวอักษร string ได้หมด ถ้าไม่สามารถแปลงเป็นตัวเลขได้จะให้ค่าเป็น 0 และ Val จะแปลง string เป็นตัวเลขจนเจอตัวที่ไม่สามารถแปลงได้ เช่น Val(" 123 ab") จะได้ 123

แต่ CDbl ถ้ามี string ตัวที่แปลงเป็นตัวเลขไม่ได้จะเกิด error

Val รับได้แค่จุดทศนิยม . แต่จะไม่รับคอมม่า , ในขณะที่ CDbl รับได้ทั้งจุดทศนิยม และคอมม่า

48
ห้อง Ms Access อื่นๆ / > อยากรู้ว่า แบบในรูปที่ส่งมาน่ะครับ เค้าเอา access มาเขียนแบบสำเร็จรุปใช่มั้ยครับ
« เมื่อ: 19 เม.ย. 61 , 11:45:23 »
ribbon menu มันสามารถ custom หรือสร้างขึ้นมาได้ครับ

49
ห้อง MS Access / > การใช้ Not in
« เมื่อ: 19 เม.ย. 61 , 11:40:57 »
ได้เขียนรูปแบบนี้หรือเปล่า
WHERE [FieldName] Not In ("TRACTOR-L","TRACTOR-M","TRACTOR-B","DC-95","DC-70")

50
ห้อง MS Access / > ข้อมูลที่เคยบันทึกไว้ หายไป
« เมื่อ: 17 เม.ย. 61 , 14:06:11 »
ให้ลอง Compact and Repair Database ครับ ใช้งานหลายคน ผ่านไประยะหลังระบบ Index มันจะเสียครับ

51
ห้อง MS Access / > ช่วยดูErrorนี้ให้หน่อยค่ะ
« เมื่อ: 28 มี.ค. 61 , 20:41:24 »
error แจ้งว่าฟิลด์ F22 ไม่มีในตารางที่ชื่อว่า 'Import' แสดงว่าใน excel ไม่มีคอลัมน์ที่มีฟิลด์ F22
ในตัวอย่างไฟล์ excel ที่เห็นก็ไม่เห็นมีแถวที่ชื่อ F22 นี้อยู่นะครับ ลองตรวจสอบดู

52
ห้อง MS Access / > ตั้งค่าหน้ากระดาษผิดตรงไหน
« เมื่อ: 23 มี.ค. 61 , 11:32:12 »
ลดขนาดของรายงานที่เป็นที่ว่างๆ ที่เห็นมีขนาด 28.5 cm  เขยิบเข้ามาครับ มันเป็นแค่พื้นที่ว่างๆลดขนาดลงมาจนชิด control เลยครับ เนื่องจากมีการตั้งมาร์จิ้นทางซ้ายไว้หลายเซ็น รวมกันพื้นที่ว่างที่มี มันก็จะเกินขนาดของ A4 ทีี่ยาวแค่ 29.7 cm

53
ห้อง MS Access / > สอบถามการแยกคอลัมน์
« เมื่อ: 21 มี.ค. 61 , 11:25:55 »
โค๊ด: [Select]
Public Function FormatLocation(stLocation As String, zone_or_id As Byte) As String
Dim splitText() As String, nPart As Integer, stResult As String, i As Integer

splitText = Split(stLocation, "-")
nPart = UBound(splitText)
stResult = ""
If zone_or_id = 1 Then
    stResult = splitText(0)
Else
    If nPart > 0 Then
        For i = 1 To nPart
            If i = nPart then
                stResult = stResult & Format(splitText(i), "00")
            Else
                stResult = stResult & Format(splitText(i), "000")
            End If
        Next i
    Else
        stResult = "00000000"
    End If
End If
FormatLocation = stResult

End Function

54
ห้อง MS Access / > สอบถามการแยกคอลัมน์
« เมื่อ: 21 มี.ค. 61 , 10:46:37 »
มันเป็นแบบนี้ทุกตัว หรือเฉพาะ CC

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