المخزون والمبيعات

اخي العزيز

ارفق مثال بسيط لمعرفة اداة الربط في قاعدة البيانات وامر اخرى

وان شاء اللع تجد الحل

اخى العزيز لا تغضب من المنتدى او حتى اعضائه

لو بحثت عن هذا لاموضوع لوجدت امثلة كثيرة

'من مربع الحدث اوك KeyPress بتختار

Private Sub Text1_KeyPress(KeyAscii As Integer)

'جمله جمده علشان لو لقى مشكله بسيطه يعديها يعنى

On Error Resume Next

'Enterمعناه فى حالة الضغط على زر

If KeyAscii = 13 Then

'Store افتح الجدول الى اسمو

Set rs = DB.OpenRecordset("Store")

'أضف حقل جديد

rs.AddNew

'التكست ده يتربط بـ حقل الكميه الموجوده فى المخزن

rs![Quantity] = Text1.Text

'سجل او سيف البيانات دى بقى فى قاعده البيانات

rs.Update

' اقفل الشرط

End If

سمحنى انا مشغول يومين بس اوعدك انى هضيف برنامج زى ما انت عايز وانت تشوفو وتشوف الاكواد والى متفهموش انا تحت امرك لانى انا كمان اتعلمت من ناس فى منتديات وناس بره المنتديات وعارف لما انسان يحب البرمجه معناها ايه عموما سمحنى على انشغالى بس انا وعدتك ووعد الحر دين عليه