แสดงกระทู้

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
19
ห้อง MS Access / : การ Query Append กรองค่าตามCombobox
« เมื่อ: 23 พ.ค. 61 , 09:55:18 »
ถ้า Type_cmb = "All" มันถึงจะทำ Query StockCard ที่ว่า แต่ถ้า Type_cmb เป็นตัวเลือกอื่นมันก็จะวิ่งมาที่นี่เลย
Else
DoCmd.OpenForm "ViewStockCard"
ก็เลยได้ผลอย่างที่ว่าครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Earth

20
ห้อง MS Access / : ใช้มาโครในการเลื่อนระเบียน
« เมื่อ: 20 พ.ค. 61 , 16:17:39 »
ถ้าคีย์หลักเป็น Autonumber โปรแกรมมันจะใส่ค่าให้ ถ้าไม่ใช่ก่อนจะไประเบียนอื่นก็ใส่ค่าให้มันก่อนครับ
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

21
ห้อง MS Access / > รบกวนสอบถามเรื่องการทำตู้เก็บเอกสารครับ
« เมื่อ: 10 พ.ค. 61 , 14:54:49 »
เป็นผมจะสร้างรหัสที่เก็บเป็น A11926
A - Zone
11 - Cabinet
9 - Shelf
26 - Sequence

แค่นี่้ก็สามารถใช้ Query หาข้อมูลต่างๆได้แล้ว
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

22
ห้อง MS Access / > ต้องการเพิ่มข้อมูลใน Combo box โดยไม่ต้องปิดฟอร์มแล้วไปเพิ่มในฟอร์มข้อมูลอะไหล่
« เมื่อ: 02 พ.ค. 61 , 14:09:51 »
อ้างอิง control ใน subform ให้ลองใช้แบบนี้ครับ

Private Sub Form_Close()
   Forms.[ชื่อMain_Form].frmtbl_Purdet.Form.Part_desc.Requery
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: สุภาพร

23
ห้อง 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 มันจะเซฟไม่ได้นะครับเพราะจะมีค่าซ้ำ
โพสต์นี้ได้รับคำขอบคุณจาก: preechaaesanan

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

โพสต์นี้ได้รับคำขอบคุณจาก: prajak, ปิ่นณรงค์

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

ปล.พอดีใช้ 2003 เปิด .accdb ไม่ได้
โพสต์นี้ได้รับคำขอบคุณจาก: prajak

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

27
ห้อง 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]
โพสต์นี้ได้รับคำขอบคุณจาก: Earth

28
ห้อง 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] & "')"
โพสต์นี้ได้รับคำขอบคุณจาก: Kxess

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

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

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

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

Val รับได้แค่จุดทศนิยม . แต่จะไม่รับคอมม่า , ในขณะที่ CDbl รับได้ทั้งจุดทศนิยม และคอมม่า
โพสต์นี้ได้รับคำขอบคุณจาก: Su

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

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

34
ห้อง 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
โพสต์นี้ได้รับคำขอบคุณจาก: Earth

35
ห้อง MS Access / > สอบถามการแยกคอลัมน์
« เมื่อ: 20 มี.ค. 61 , 23:48:25 »
เพิ่ม i As Integer เข้าไปบรรทัดนี้ครับ

Dim splitText() As String, nPart As Integer, stResult As String, i As Integer
โพสต์นี้ได้รับคำขอบคุณจาก: Earth

36
ห้อง MS Access / > สอบถามการ disable คำสั่ง hide หรือ unhide column ในมุมมองdata sheet ครับ
« เมื่อ: 19 มี.ค. 61 , 21:23:33 »
ก็ใช้ datasource ที่เป็ฯ Query เฉพาะฟิลด์ที่ต้องการครับ
โพสต์นี้ได้รับคำขอบคุณจาก: prajak, kanya

หน้า: 1 [2] 3