แสดงกระทู้
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.
Private Sub CleanAllFieldsButton_Click()
Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acComboBox And ctl.Tag = "B1"
ctl.Value = Null
End Select
Next
Set ctl = Nothing
End Sub
Format (210.6, "#,##0.00")
Result: '210.60'
Format (210.6, "Standard")
Result: '210.60'
Format (0.981, "Percent")
Result: '98.10%'
Format (1267.5, "Currency")
Result: '$1,267.50'
Private Sub Inhouse_AfterUpdate()Inhouse และ Customer กับ List รูปแบบของข้อมูลเป็นอย่างไร และมันเป็นเลข-ตัวอักษรตายตัวหรือ+1ขึ้นไปเลื่อยๆ?
Me.Customer = DLookup("[cus]", "[Raw Material]", "Code='" & [Inhouse] & "'")
Me.List = DLookup("[name]", "[Raw Material]", "Code='" & [Inhouse] & "'")
End Sub
Sub Inhouse_AfterUpdate()Dim cal1 As Variant หรือ As String กำหนดด้วยครับ
Dim cal1
cal1 = Nz([Insupkg], 0) / Nz([Intotalcanned], 0)
Me.Intotalcanned = Nz([cal1], 0) + 0
End Sub
1. มีวิธีให้ Query แล้ว table ยังอยู่ใน back end ไหมครับจะให้ Front End ไปสร้าง table ใน back end นี่คงจะไม่ได้ แต่ถ้าเมื่อสร้างเสร็จแล้้วค่อยส่งเทเบิ้ลดังกล่าวให้ไปอยู่ back end น่าจะได้ครับรอท่านอื่นมาแนะนำอีกที
2. เหตุที่ต้องทำอย่างนี้เพราะต้องเอา Query Union กับ table ข้อมูลมาแมตกันครับ มีวิธีที่ดีกว่านี้ไหมครับแม้เทเบิ้ลจะอยู่กันคนล่ะที่แต่ก็สามารถเอามา Union กันได้ไม่ใช้เหรอครับ
Me.textbox1.SetFocus
DoCmd.RunCommand acCmdCopy
{111..{222...{333...}}}เป็น{111
...
{222
...
{333
...
}
}
}
