สงกรานต์ผ่านไปแล้ว ทุกท่านคงสนุกกันถ้วนหน้านะครับ 
 
วันนี้ผมไปอ่านเจอคำถามเกี่ยวกับ 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