กระทู้เก่าบอร์ด อ.Yeadram
1,182 4
URL.หัวข้อ /
URL
ค่าหลังAuto
ผมมีฟิลด์อยู่ 1 ฟิลด์ Format เป็น Text ชื่อ ST เวลาผมป้อนข้อมูลผมจะป้อนเป็น ST-1,ST-2...... ไปเรื่อยๆ หากผมต้องการให้มัน run เป็น Auto ไม่ต้องคีย์จะทำอย่างไรครับท่านอาจารย์
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R03796
อาจารย์yeadramขออนุญาตฝึกทักษะน่ะครับ
ไม่รู้จะพอไหวมั้ย
สมมติอีกแล้ว
ให้ตารางชื่อ tblst
และfieldที่ต้องการรันชื่อ ST
จากโจทย์บอกว่าบนฟอร์ม text box ชื่อ ST
สร้างปุ่มคำสั่ง
แล้วนำcode ไปประยุกต์ใช้ดู
Dim x As Integer
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
If MsgBox("ลงทะเบียน", vbQuestion + vbYesNo, "แจ้ง") = vbYes Then
If DCount("ST", "tblst") = 0 Then
Me.ST = "ST-1"
Else
DoCmd.GoToRecord , , acNewRec
x = DMax("val(Right([ST],Len([ST])-3))", "tblst")
Me.ST = "ST-" & x + 1
End If
End If
จะพอไหวมั้ยครับ
ไม่รู้จะพอไหวมั้ย
สมมติอีกแล้ว
ให้ตารางชื่อ tblst
และfieldที่ต้องการรันชื่อ ST
จากโจทย์บอกว่าบนฟอร์ม text box ชื่อ ST
สร้างปุ่มคำสั่ง
แล้วนำcode ไปประยุกต์ใช้ดู
Dim x As Integer
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
If MsgBox("ลงทะเบียน", vbQuestion + vbYesNo, "แจ้ง") = vbYes Then
If DCount("ST", "tblst") = 0 Then
Me.ST = "ST-1"
Else
DoCmd.GoToRecord , , acNewRec
x = DMax("val(Right([ST],Len([ST])-3))", "tblst")
Me.ST = "ST-" & x + 1
End If
End If
จะพอไหวมั้ยครับ
3 @R03826
อาจารย์ครับ leading zero หมายถึง??ผมไม่เข้าใจความหมายครับ ช่วยอธิบายทีครับ ขอบคุณครับ
4 @R03829
เพิ่งอธิบายไปเมื่อสัปดาห์ที่แล้วนี่เองนะครับ
http://www.thai-access.com/yeadram_view.php?topic_id=651&page=2
http://www.thai-access.com/yeadram_view.php?topic_id=651&page=2
Time: 0.3694s
- กระทู้ใกล้ๆ กันเพิ่งถามคล้ายๆ กัน คือการรันนิ่ง อีกสามกระทู้ ได้เข้าไปอ่านบ้างหรือเปล่าครับ กระทู้ 858, 853, 651, 825
- การตั้งค่าเริ่มต้นของแต่ละคอนโทรล ดู กระทู้ 820