عندى قاعدة بيانات بسيطة بها الحقول التالية
اسم الصنف الكمية
دفاتر 100
اقلام 200
مساطر 300
المطلوب هو عند ادخال كمية جديدة لاى صنف من الاصناف السابقة لا يتكرر اسم الصنف وانما الذى يتغير فقط هو حقل الكمية بالزيادة وعند ادخال صنف لاول مرة يكتب اسمه والكميه الخاصة به ولكن عند ادخال كمية جديدة لنفس الصنف الذى يتغير ايضا هو حقل الكمية فقط
فهل هذا ممكن وجزاكم الله خيرا
إذا أدخل المستخدم نوع الصنف قم باختباره هل هو موجود في الأسماء أو لا
في حالة كونه موجود
خذ الحقل اللي اسمه نفس اللي دخله المستخدم و قم بزيادة الكمية تبعته 1
في حالة كونه غير موجود قم بإضافته للأسماء وأيضا قم بزيادة كميته 1
الكود مدري أكتبه لك بإيش !
بس إن شاء الله يكون سهل وما يبي له حاجة
شكرا اخى الكريم
ولكنى لا اعرف كيف اترجم الفكرة الى كود
اكون شاكرا لو اضفت الكود
معليش يعني مدري أنت وش مستخدم مع البيسك عموما هذا كود فيما لو إنك مستخدم SQL مع البيسك
ولو مو مثل طريقة كتابة أكوادك حاول تتعبر هذي خوارزمية عامة وأنت ترجمها بالكود اللي تعرف
Dim dyn As OraDynaset
Dim dyn1 As OraDynaset
Dim i As integer
Dim j As integer
j=0
SQL = "select * from Asnaf "
SQL1 = "select * from Asnaf where Senf_Name = '" & Text1.Text & "' "
Set dyn = database.CreateDynaset(SQL, 0&)
Set dyn1 = database.CreateDynaset(SQL1, 0&)
for i=1 to dyn.RecordCount
if (Text1.text= dyn.Fields("Senf_Name").Value)
j= j+1
i= dyn.RecordCount
else
dyn.MoveNext
next iهنا بس عرفنا إنه هل هذا الصنف موجود أولا ؟
في حالة إن
j
تساوي الصفر فمعنى هذا إنه طلع من هذي اللوب وما لقى الاسم هذا
else
إنه لقاه
if (j=0) then
dyn.addnew
dyn.Fields("Senf_Name").Value = Text1.Text
dyn.Fields("Senf_Much").Value = 1
dyn.update
else
dyn1.Edit
dyn1.Fields("Senf_Much").Value = dyn1.Fields("Senf_Much").Value + 1
dyn1.update
end ifيعني أنا تخيلته جدول وفيه 2 أتربيوت وبنيت الكود على هالأساس
والله ييسر لك
وهذي طريقة تفكيري ,, وأعتقد فيه أحسن من كذا باستخدام دوال أخرى لكن ما أذكر إنها ضابطة معي فاتبعت هالطريقة في البحث
تم تعديل هذه المشاركة بواسطة طالب حيران في 24 سبتمبر 2006 في 09:53
شكرا جزيلا اخى الكريم
هذا الموضوع مغلق.