แสดงกระทู้

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

หน้า: [1]
1
สมมุติว่ามันไม่ยอมเซฟให้เรา ๆ ก็โกงๆมันหน่อยแบบนี้เลยครับ สมมุติ text1 , text2 เป็น default Value

คำสั่งที่ปุ่มเซฟ
Private Sub Save_Click()
If Me.NewRecord Then
Me.Text1 = Me.Text1
Me.Text2 = Me.Text2
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: pim

2
ค่า Default Value เป็นแค่การแสดงลงหน้าฟอร์มสำหรับเรคอร์ดใหม่ ไม่ได้ถือเป็นการป้อนเข้าไปในฟิลด์ที่สัมพันธ์กับคอนโทรลนั้นๆ ยกเว้นมีการทำอะไร เช่น ป้อน/แก้ไขตัวอักษรอะไรในคอนโทรลของฟิลด์จากเทเบิลอย่างที่คุณได้ค้นพบ ถึงจะเหมือนมีการป้อนค่า Default Value จริงๆ แต่ปกติไม่น่าจะเกิดปัญหานี้ เป็นไปได้หรือที่ระบบจะมีเรคอร์ดใหม่ซ้ำกันทุกฟิลด์กับเรคอร์ดเก่า เพราะใช้แต่ค่าจาก Default Value เพียงอย่างเดียว
โพสต์นี้ได้รับคำขอบคุณจาก: pim

3
ใช้การดักค่าว่างด้วย Nz Fuction ครับถ้าค่ามันว่างให้แทนค่าเป็น 0
รูปแบบ คือ Nz([ชื่อฟิลล์]),0)

โค๊ด: [Select]
SELECT [VATSALE Query1].Vatmonth, [VATSALE Query1].[Sum Of Price] AS SALE, Format(Nz(DLookUp("[Sum Of Price]","[Vatbuy Query1]","Vatmonth = '" & [Vatmonth] & "'"),0),"Standard") AS Buy, Format(Nz([sale])-Nz([buy]),"Standard") AS [Sale-Buy]
FROM [VATSALE Query1];
โพสต์นี้ได้รับคำขอบคุณจาก: pim

4
หรือจะใช้ Dlookup แทนการ Join Table ก็น่าจะแสดงผลเร็วดีครับ
โค๊ด: [Select]
SELECT [VATSALE Query1].Vatmonth, [VATSALE Query1].[Sum Of Price] AS SALE, Format(DLookUp("[Sum Of Price]","[Vatbuy Query1]","Vatmonth = '" & [Vatmonth] & "'"),"Standard") AS Buy, Format(Nz([sale])-Nz([buy]),"Standard") AS [Sale-Buy], *
FROM [VATSALE Query1];
โพสต์นี้ได้รับคำขอบคุณจาก: pim

5
ลองดูโค้ดนี้ครับ ไม่รู้รันผ่านไหมยังไม่ได้เทสครับ สร้างคิวรี่ใหม่ขึ้นมาเอา SQL นี้ไปวางแล้วรันดู

โค๊ด: [Select]
SELECT [VATBUY QUERY1].VatMonth, [VATSALE QUERY1].[Sum Of Price] AS Sale, [VATBUY QUERY1].[Sum Of Price] AS Buy, Format(Nz([sale])-Nz([buy]),"Standard") AS [Sale-Buy]
FROM [VATBUY QUERY1] INNER JOIN [VATSALE QUERY1] ON [VATBUY QUERY1].VatMonth = [VATSALE QUERY1].VatMonth;
โพสต์นี้ได้รับคำขอบคุณจาก: pim

หน้า: [1]