กระทู้เก่าบอร์ด อ.Yeadram
1,426 2
URL.หัวข้อ /
URL
เลือกเฉพาะข้อมูลที่ต้องการ
อย่างเช่นผมสร้าง Textbox 1=Old number field
และ Textbox 2=Current number field
ยกตัวอย่างเมื่อใ่ส่ เลข 8002234 ลงในTextbox ทั้งคู่ ให้เลือกแต่เลขนี้มาแสดงที่ Report ทำอย่างไรคับ ผมลองใช้ Between ในมาโคร ก็ไม่มา คับ ช่วยชี้แนะให้หน่อยคับ
และ Textbox 2=Current number field
ยกตัวอย่างเมื่อใ่ส่ เลข 8002234 ลงในTextbox ทั้งคู่ ให้เลือกแต่เลขนี้มาแสดงที่ Report ทำอย่างไรคับ ผมลองใช้ Between ในมาโคร ก็ไม่มา คับ ช่วยชี้แนะให้หน่อยคับ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R10667
Private Sub Command394_Click()
Dim stesWhere As String
If SNumber2 = Text395 Then
stesWhere = " ...... = " & SNumber2
Else
stesWhere = " ...... Between " & SNumber2 & " and " & Text395
End If
DoCmd.OpenReport "TV", acViewPreview, , TV
End Sub
ยังไม่ได้คับ
รบกวน อาจารย์ ช่วยแนะนำให้ หน่อยคับ
แล้วเราจะรู้ได้อย่างไร ว่าค่าที่ใส่ใน Snumber2 คือค่าที่เราต้องการค้นหา ใน[Part1] และ Text395 คือค่าที่เราต้องการให้ค้นหาจาก [Part2] เพราะ ในโค๊ด ไม่ได้ กล่าว ถึง [Part1] [Part2] ที่มีใน report เลย คับ
ผมต้องการให้แสดงใน ลักษณะ 8คือถ้ามีค่า 345 ก็นำมาโชว์ใน Report ต่อบรรทัดกันไปเรื่อย คับ
EQ Part1 Part2
TV 345
TV 345
SV 345
UV 345
TV 345
รบกวน อาจารย์ ช่วยแนะนำให้ หน่อยคับ
Dim stesWhere As String
If SNumber2 = Text395 Then
stesWhere = " ...... = " & SNumber2
Else
stesWhere = " ...... Between " & SNumber2 & " and " & Text395
End If
DoCmd.OpenReport "TV", acViewPreview, , TV
End Sub
ยังไม่ได้คับ
รบกวน อาจารย์ ช่วยแนะนำให้ หน่อยคับ
แล้วเราจะรู้ได้อย่างไร ว่าค่าที่ใส่ใน Snumber2 คือค่าที่เราต้องการค้นหา ใน[Part1] และ Text395 คือค่าที่เราต้องการให้ค้นหาจาก [Part2] เพราะ ในโค๊ด ไม่ได้ กล่าว ถึง [Part1] [Part2] ที่มีใน report เลย คับ
ผมต้องการให้แสดงใน ลักษณะ 8คือถ้ามีค่า 345 ก็นำมาโชว์ใน Report ต่อบรรทัดกันไปเรื่อย คับ
EQ Part1 Part2
TV 345
TV 345
SV 345
UV 345
TV 345
รบกวน อาจารย์ ช่วยแนะนำให้ หน่อยคับ
Time: 0.3197s
if textbox1=textbox2 then
stWhere = " ...... = " & textbox1
else
stWhere =" ...... Between " & textbox1 & " and " & textbox2
end if
docmd.openreport.................................stWhere..................
ผมไม่ถนัดมาโครครับ จริงๆ ถ้าเข้าใจแนวทางก็เอาไปประยุกต์ได้ แต่ถ้าเป็นผมเขียนโค้ดแบบนี้สะดวกกว่า ต้องเลือกอย่างใดอย่างหนึ่งนะครับระหว่าง โค้ด VBA หรือ มาโคร