แสดงกระทู้
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.
โอว! วินโดว์
XP ครับ รุ่นเก่าๆขี้เกียจเปลี่ยน โปรแกรมที่ใช้งานก็เสถียรดี ครับ ใช้กับ Homc และโปรแกรมเก่าๆซะส่วนใหญ่ 
รบกวนสอบถามการแปลงวันที่ใดๆก็ตามให้เป็นวันแรกของเดือนครับ เท่าที่หาเจอแต่ของ Excel จะได้สูตรประมาณนี้
=DATE(YEAR(A1),MONTH(A1),1)
ก็จะได้ว่า 12-2-2020 กลายเป็น 1-2-2020 คือเป็นวันแรกของเดือน
ต้องการผลลัพทธ์แบบนี้กับ access ใครทราบวิธีการรบกวนชี้แนะครับ
1.อยากให้แสดง รหัสอาหาร,ชื่ออาหาร ทีไม่มีการสั่งซื้อที่คิวรี่กดมุมมอง Sql เอาโค้ดนี้ไปวาง
SELECT รายการอาหาร.รหัสอาหาร, รายการอาหาร.ชื่อ
FROM รายการอาหาร
WHERE (((รายการอาหาร.รหัสอาหาร) Not In (select [รหัสอาหาร] from [การสั่งอาหาร])));
2.อยากให้แสดง รหัสอาหาร,ชื่ออาหาร ที่มีการสั่งซื้อมากที่สุดรวมจำนวนการสั่งเรียงจากมากไปหาน้อย โค้ดตามนี้เลยครับ
SELECT การสั่งอาหาร.รหัสอาหาร, รายการอาหาร.ชื่อ, Sum(การสั่งอาหาร.จำนวนสั่ง) AS จำนวนการสั่ง
FROM รายการอาหาร RIGHT JOIN การสั่งอาหาร ON รายการอาหาร.รหัสอาหาร = การสั่งอาหาร.รหัสอาหาร
GROUP BY การสั่งอาหาร.รหัสอาหาร, รายการอาหาร.ชื่อ
ORDER BY Sum(การสั่งอาหาร.จำนวนสั่ง) DESC;
SELECT TOP 1 การสั่งอาหาร.รหัสอาหาร, รายการอาหาร.ชื่อ, Sum(การสั่งอาหาร.จำนวนสั่ง) AS จำนวนการสั่ง
FROM รายการอาหาร RIGHT JOIN การสั่งอาหาร ON รายการอาหาร.รหัสอาหาร = การสั่งอาหาร.รหัสอาหาร
GROUP BY การสั่งอาหาร.รหัสอาหาร, รายการอาหาร.ชื่อ
ORDER BY Sum(การสั่งอาหาร.จำนวนสั่ง) DESC;
Private Sub cmdSave_Click()
Dim strStatus as string
Me.Dirty = False
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE qryWork SET qryWork.TerminatedDate = [txtTerminatedDate] WHERE (((qryWork.ContractorID)=[txtContractorID]));", dbFailOnError
strStatus = Nz(DLast("[ContractorStatus]", "[qryWork]", "[NationalID]=[Forms]![frmEditWork]![txtNationalID]"))
Me.[txtContractorStatus2] = strStatus
If strStatus = "ยังปฏิบัติงานอยู่" Then
[Forms]![frmEditWork]!Label41.Visible = True
Else
[Forms]![frmEditWork]!Label41.Visible = False
End If
DoCmd.SetWarnings True
End Sub
Private Sub cmdRun_Click()
Dim intMax As Integer
If Not IsNull(Me.RunC) Then
Me.txtYears = Year(Now())
Me.Dirty = False
intMax = Nz(DLookup("MaxInt", "QryMaxInt", "RunC = " & Me.RunC & " And Yearstamp = '" & Me.txtYears & "'"))
intMax = intMax + 1
Me.runrun = "C-" & Year(Date) & "-" & RunC & Right("0000" & intMax, 4)
End If
End Sub
มาวันนี้ผมแก้ไข Table ใหม่ โดยแยกข้อมูล company ออกจาก User
SELECT Table1.RunC, Nz(Max(Right([runrun],4)),0) AS [Max]
FROM Table1
GROUP BY Table1.RunC;SELECT qryMax.RunC, Val([Max]) AS MaxInt
FROM qryMax;
Private Sub cmdRun_Click()
Dim intMax As Integer
If Not IsNull(Me.RunC) Then
Me.Dirty = False
intMax = Nz(DLookup("MaxInt", "QryMaxInt", "RunC = " & Me.RunC & ""))
intMax = intMax + 1
Me.runrun = "C-" & Year(Date) & "-" & RunC & Right("0000" & intMax, 4)
End If
End Sub
