بسم الله الرحمن الرحيم
أخوانى فى منتذنا الرائع
السلام عليكم ورحمة الله وبركاته
أتعرض لمشكلة رسالة خطأ Insufficient key column information for updating or refreshing
عندما أقوم بتعديل قيم لحقول الكمية و السعر و الأجمالي لجدول المخزون وذلك أذا تساوى رقم الصنف الموجود فى الفاتورة مع رقم الصنف الموجود فى المخزن و رقم الفاتورة مساوي لرقم الفاتورة التى نقوم بأستدعائها بواسطة جملة select التالية
Sub FunUpDateProductToStore1() If objRs3.State = adStateOpen Then objRs3.Close strSql = "SELECT TableInventoryStores.Quantity As TISQ,TableInventoryStores.UnitCost As TISUC,TableInventoryStores.TotalCostPrice As TISTCP,TableDetailsInvPurchases.Quantity As TDIPQ,TableDetailsInvPurchases.UnitCost As TDIPUC,TableDetailsInvPurchases.TotalCostPrice As TDIPTCP FROM TableInventoryStores INNER JOIN TableDetailsInvPurchases ON TableInventoryStores.IDProduct=TableDetailsInvPurchases.IDProduct Where TableDetailsInvPurchases.IDInvPurchases =" & Val(Trim(LabIDInvPurchases.Caption)) objRs3.Open strSql, objCon, adOpenKeyset, adLockOptimistic If objRs3.RecordCount <> 0 Then objRs3.MoveFirst Do While Not objRs3.EOF objRs3![TISQ] = Val(objRs3![TISQ]) + Val(objRs3![TDIPQ]) objRs3![TISUC] = Val(objRs3![TDIPUC]) objRs3![TISTCP] = Val(objRs3![TISQ]) * Val(objRs3![TISUC]) objRs3.MoveNext Loop If Not objRs3.EOF Then objRs3.Update objRs3.Requery End If Else Call FunInputProductToStore End If
فلم أجد لها حلا فأرجوا منكم من تعرض لنفس المشكلة أن يدلنى على الحل والله لايضيع إجراء المسلمين والمؤمنين
والسلام عليكم ورحمة الله وبركاته
تفضلوا بزيارة موقع شركة السراج سوفت للتعرف على احدث نظم المعلومات الطبية لإدارة العيادات الطبية والمراكز الطبية والمستوصفات ووالمستشفيات بالإضافة الى العديد من البرامج فى المجالات المختلفة بخلاف براءة الإختراع الحاصل عليها مؤسس الشركة فى مجال تطوير نظم التشغيل