ก็คงต้องเขียนโค้ดเข้าช่วย

โดยใช้ SQL Statement คล้ายๆ นี้

Dim dbs As Object
Set dbs = CurrentDb
dbs.Execute "insert into ตารางที่นำมาสร้างเป็นSubForm ([รหัสยา],[รหัสผู้ป่วย], ...) " _
& "values('รหัสยากที่อ้างอิงจากตัวที่เลือกในฟอร์มปัจุบัน', 'รหัสคนไข้จากฟอร์มข้างหลัง', ...)"
Forms!ชื่อฟอร์มหลัก!ชื่อSubForm.Requery
dbs.Close
Set dbs = Nothing

อะไรทำนองนี้ครับ

อยากทำแบบนี้ได้บ้างเหมือนกันครับ
ลองทำแบบอาจารย์แล้ว อย่าง
"values('AA', 'BB', ...)" มันก็ก๊อปไปที่ฟอร์มหลักเป็นเท็กซ์ AA , BB
ทำยังไงให้มันก๊อปจากข้อมูลจากฟอร์มที่เปิดขึ้นมาใหม่ไปฟอร์มหลักครับ
อีกอย่างมันจะไปเพิ่มข้อมูลในฟอร์มหลัก
ถ้าเราจะให้มันไปอับเดทในเรคคอร์ดที่เปิดอยู่ที่ฟอร์มหลักได้หรือเปล่าครับ
อาจารย์ทำไฟล์ตัวอย่างให้ด้วยได้ก็ดีครับ

อยากรู้ด้วยเหมือนกัน ท่านใดมีตัวอย่างบ้างค่ะ

อาจารย์ช่วยทำให้ดูหน่อยครับ

ขอดูด้วยคน

สนใจครับ

น่าจะได้นะครับ

"INSERT INTO ชื่อตารางที่นำมาทำเป็นSubForm ( รหัสผู้ป่วย, รหัสยา, ชื่อยา, จำนวน ) SELECT "& Forms!ชื่อฟอร์มหลัก!รหัสผู้ป่วย & ", รหัสยา, ชื่อยา, จำนวน FROM ชื่อตารางที่เป็นที่เก็บข้อมูลรหัสยา WHERE รหัสยา = '" & Forms!ชื่อฟอร์มที่เปิดขึ้นมาที่หลัง(สูตรยา)!ฟิลที่แสดงรหัสยา & "'"

Forms!ชื่อฟอร์มหลัก!ชื่อSubForm.Requery

งง

ขอดูตัวอย่างด้วยครับ

นี่เป็นตัวอย่างที่ผมทำใช้เองเป็นโปรแกรม บัญชีเล็กๆ และสามารถเลือกสูตรที่เราป้อนบ่อยๆได้ ก็น่าจะเอาไปประยุคใช้ได้นะครับ

ก่อนอื่นต้องเตรียมตารางสำหรับ เก็บสูตรก่อนในที่นี้คือ Template และ Template_Detail มีความสัมพันกันแบบ one-to-many (กรณีของคุณ 1 สูตรประกอบด้วยยาหลายตัว)

Private Sub Combo8_AfterUpdate()
On Error GoTo Combo8_Err:
Dim sql As String
Dim db As DAO.Database
Dim rs As DAO.Recordset



Set db = CurrentDb()


Me.Desc.Value = Me.Combo8.Column(1)


sql = "select * from tblTamplate_Detail where ID=" & Me.Combo8.Value
Set rs = db.OpenRecordset(sql)


sql = "delete * from tblDailyDetail where AccID=" & Me.AccID


DoCmd.SetWarnings False

db.Execute sql

Me.Refresh

Do While Not rs.EOF
sql = "insert into tblDailyDetail (AccID,AccCode,Dr,Cr) values(" & Me.AccID & ",'" & rs.Fields("AccCode") & "'," & _
rs.Fields("Dr") & "," & rs.Fields("Cr") & ");"

db.Execute sql

rs.MoveNext
Loop


Forms!frmDaily.Refresh
Me.tblDailyDetail_subform.Requery
DoCmd.SetWarnings True

Set rs = Nothing
Set db = Nothing
Exit Sub
Combo8_Err:
MsgBox Err.Number & ": " & Err.Description
End Sub

ถ้าไม่เข้าใจจะมาอธิบายใหม่นะครับ

ขอรบกวนเป็นตัวอย่างได้ไหมครับ

ขอดูด้วยค่ะ เพราะเป็นมือใหม่มาก ๆ เลย

ผมทำตัวอย่างมาให้ดู ผมใช้ Access 2002(XP) และ Convert เป็น 97 ให้แล้วสำหรับท่านที่ยังใช้ 97 แต่ไม่รู้จะเปิดได้สมบูรณ์หรือป่าวนะครับยังไม่ได้ลองดู

ก็ลองดูตัวอย่างนะครับ จำรองมาอีกทีครับ ผิดพลาดประการได้ก็แจ้งมาได้ครับ

ขอบคุณค่ะ จะได้นำไปศึกษาเพิ่มแล้ว

ผมใช้วิธีการสร้างตัวแปร Global Variant ไว้

รับค่าฟิลด์นั้นๆ จากฟอร์ม lookup แล้วส่งกลับไปยังฟอร์มหลักอีกทีครับ
แล้วค่อยรัน dLookup เพื่อหาข้อมูลมาแสดงบนฟอร์มหลักครับ

โห

ขอถามเพิ่มหน่อยค่ะ
1.ถ้ารับยาเก่าที่ไม่ได้มีในสูตร จะทำอย่างไรค่ะ
2.gloal variant คืออะไรค่ะ แล้วมีหลักการใช้อย่างไร

ขอดูตัวอย่างได้ไหมค่ะคุณ xyz ขอบคุณล่วงหน้าค่ะ

ขอความกระจ่างครับคุณ xyz

ขอเวลาผมนิดนึงละกัน เอาไว้จะตัดตัวอย่างจากโปรแกรมผมมา แล้วจะมาให้ดาวนโหลดครับ :-)

ทำอย่างที่คุณ xyz บอกก็ได้ครับ แต่ถ้าเป็นผมจะไม่ทำตัวแปรมาเก็บ แต่จะสั่ง insert ข้อมูลในตารางเลย แล้ว สั่ง Requery ในฟอร์ม

สำหรับตัวอย่างที่ผมทำให้ถ้าอยากคีย์ยาเองและอยากสั่งเป็นสูตรด้วยให้ เอาส่วนที่เป็น Delete ออกครับ

Goodluk