29-09-15, 01:09 PM
السلام عليكم
وضعت هذا لكود للحفظ ولكنه لايعمل ماهو الخطأ ؟؟؟؟
وضعت هذا لكود للحفظ ولكنه لايعمل ماهو الخطأ ؟؟؟؟
كود :
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from [pharstore] where [docode]='" & Val(Text8) & "' " '"
rs.Update
If rs.EOF = True Then
rs.AddNew
rs!docode = Text8.Text
rs!doname = Text9.Text
rs!docount = Val(Text5.Text) + Val(Text10.Text)
rs!rebeh = Text11.Text
rs.Update
MsgBox ("Êã ÍÝÙ ÇáÓÌá ÈäÌÇÍ"), 64, ("Program")
End If