กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
382 1
URL.หัวข้อ /
URL
ใน ACCESS กรอกข้อมูลเป็นกลุ่มได้หรือเปล่า
สงกรานต์ผ่านไปแล้ว ทุกท่านคงสนุกกันถ้วนหน้านะครับ
วันนี้ผมไปอ่านเจอคำถามเกี่ยวกับ Access ตามหัวข้อ ที่
http://pantip.inet.co.th/tech/software/topic/SP917815.html#3
เขาถามไว้ดังนี้
กรอกข้อมูลเป็นกลุ่มได้หรือเปล่า
ในACCESSถ้าต้องการกรอกข้อมูลเป็นกลุ่ม เช่นในตารางมี 2 ฟิลด์ ฟิลด์แรกจะมีค่าเป็นกลุ่มเช่นเป็นA,B,C,D และ ฟิลด์ที่ 2 เราจะป้อนค่า เหมือนกันทั้งหมด เช่น ฟิลด์แรก มีค่าA,B,C,D เราต้องการให้ ฟิลด์ที่สองมีค่าเป็น "E" ทั้งหมด
A E
B E
C E
D E
ต้องการกรอกข้อมูลโดยที่สร้างมาโครขึ้นมาเก็บค่าว่าฟิลด์แรกจะมีค่าแป็น A,B,C,D,และฟิลด์ที่ 2 ให้เรากรอกค่าว่า "E"ลงไปอย่างเดียวแล้วโปรแกรมก็เก็บค่าในตารางอย่างที่ต้องการ
จากคุณ : twuthhas@cscom.com [15 เม.ย. 2545 - 17:27:01]
ผมได้ตอบเขาไปดังนี้
สร้าง text box ขึ้นเพื่อรอรับ Input ค่าที่จะเติมลงไปในฟีลด์ 2 แล้วเพิ่มปุ่ม Command Button เพื่อสั่งให้เพิ่มข้อมูลที่ต้องการลงไป Chr(65) คือ A
ลองดูครับ
Private Sub cmdAdd_Click()
Dim rst As Recordset, I As Integer
Set rst = Me.RecordsetClone
If Me.txtInput = "" Or IsNull(Me.txtInput) Then
MsgBox "ยังไม่ได้ใส่ค่าที่จะเติมในฟีลด์ที่ 2", vbOKOnly
Me.txtInput.SetFocus
rst.Close
Exit Sub
Else
For I = 1 To 4
rst.AddNew
rst(0) = Chr(65 + I - 1)
rst(1) = Me.txtInput
rst.Update
Next I
Me.Requery
End If
rst.Close
End Sub
ตัวอย่างอยู่ที่ http://agserver.kku.ac.th/basiceng/groupadding.zip ครับ *** Edited by Supap Chaiya *** 22/5/2546 22:52:10
วันนี้ผมไปอ่านเจอคำถามเกี่ยวกับ Access ตามหัวข้อ ที่
http://pantip.inet.co.th/tech/software/topic/SP917815.html#3
เขาถามไว้ดังนี้
กรอกข้อมูลเป็นกลุ่มได้หรือเปล่า
ในACCESSถ้าต้องการกรอกข้อมูลเป็นกลุ่ม เช่นในตารางมี 2 ฟิลด์ ฟิลด์แรกจะมีค่าเป็นกลุ่มเช่นเป็นA,B,C,D และ ฟิลด์ที่ 2 เราจะป้อนค่า เหมือนกันทั้งหมด เช่น ฟิลด์แรก มีค่าA,B,C,D เราต้องการให้ ฟิลด์ที่สองมีค่าเป็น "E" ทั้งหมด
A E
B E
C E
D E
ต้องการกรอกข้อมูลโดยที่สร้างมาโครขึ้นมาเก็บค่าว่าฟิลด์แรกจะมีค่าแป็น A,B,C,D,และฟิลด์ที่ 2 ให้เรากรอกค่าว่า "E"ลงไปอย่างเดียวแล้วโปรแกรมก็เก็บค่าในตารางอย่างที่ต้องการ
จากคุณ : twuthhas@cscom.com [15 เม.ย. 2545 - 17:27:01]
ผมได้ตอบเขาไปดังนี้
สร้าง text box ขึ้นเพื่อรอรับ Input ค่าที่จะเติมลงไปในฟีลด์ 2 แล้วเพิ่มปุ่ม Command Button เพื่อสั่งให้เพิ่มข้อมูลที่ต้องการลงไป Chr(65) คือ A
ลองดูครับ
Private Sub cmdAdd_Click()
Dim rst As Recordset, I As Integer
Set rst = Me.RecordsetClone
If Me.txtInput = "" Or IsNull(Me.txtInput) Then
MsgBox "ยังไม่ได้ใส่ค่าที่จะเติมในฟีลด์ที่ 2", vbOKOnly
Me.txtInput.SetFocus
rst.Close
Exit Sub
Else
For I = 1 To 4
rst.AddNew
rst(0) = Chr(65 + I - 1)
rst(1) = Me.txtInput
rst.Update
Next I
Me.Requery
End If
rst.Close
End Sub
ตัวอย่างอยู่ที่ http://agserver.kku.ac.th/basiceng/groupadding.zip ครับ *** Edited by Supap Chaiya *** 22/5/2546 22:52:10
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R00232
ขอบพระคุณ อ.สุภาพ กับความรู้ดีๆ ครับ
สงกรานต์ นี้ ขอให้อาจารย์ และครอบครัว
มีความสุข และสุขภาพดีมากๆ ครับ
Suchat
Time: 0.1194s