تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خطأ في الكود يرجى المساعدة
#1
الخطأ عند محاولة ادخال حساب مزود جديد


الخطأ الأول في البحث

Private Sub cmdOK_Click()
If supplierflag = 1 Then
frmMMSSupplier.txt(3) = lv.ListItems(lv.SelectedItem.Index).SubItems(1)
'frmMMSSupplier.txt(3).SetFocus
Unload Me
End If
End Sub

الخطأ الثاني في ادخال المعلومات
Private Sub cmdsave_Click()

Select Case cmdSave.Caption
Case "Ruaje"
Call dbconek
With ar
.Open "Select *From tblFurnizuesit", strConek, adOpenStatic, adLockOptimistic
.AddNew
!fur_id = txt(0)
!furnizuesi = txt(1)
!adresa = txt(2)
!personi = txt(3)
!numri = txt(4)
.Update
MsgBox "Furnizuesi u ruajt me sukses.", vbInformation, "Ruajtja!"
Call Command2_Click
.Close
End With
Case "Fresko"
Call dbconek
With ar
criteria = "Select *From tblFurnizuesit Where fur_id='" & txt(0) & "'"
.Open criteria, strConek, adOpenStatic, adLockOptimistic
!fur_id = txt(0)
!furnizuesi = txt(1)
!adresa = txt(2)
!personi = txt(3)
!numri = txt(4)
.Update
MsgBox "Furnizuesi u ruajt me sukses.", vbInformation, "Ruajtja!"
Call Command2_Click
.Close
End With
End Select
End Sub


الملفات المرفقة
.rar   Smart POS.rar (الحجم : 1.81 م ب / التحميلات : 61)
الرد }}}
تم الشكر بواسطة:
#2
لا أحد ؟ هل من مجيب ؟
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن شرح الكود البسيط هذا بالتفصيل the viper 3 2,754 10-07-22, 07:48 AM
آخر رد: سعود
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,797 21-11-21, 05:43 PM
آخر رد: mona82
  [vb6.0] هاام الى جميع الاخوة في المنتدى ارجو المساعدة husam.aj87 2 1,404 03-03-21, 08:20 PM
آخر رد: Amir_Alzubidy
  [سؤال] المساعدة في تقريب الارقام عمور2016 5 3,311 30-01-19, 07:44 PM
آخر رد: sendbad100
  سؤال؟ ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ حسن الغزي 9 3,786 22-08-18, 10:48 PM
آخر رد: elgokr
  [vb6.0] أرجو المساعدة بتتمة المشروع سمير الجبالي 6 2,853 14-07-18, 11:28 PM
آخر رد: سمير الجبالي
Photo [سؤال] ارجو المساعدة تحويل الارقام في الاكتيف ريبورت حامد محمد 8 3,823 10-05-18, 04:44 AM
آخر رد: حامد محمد
  المساعدة بخصوص استدعاء كود من ملف نصي VB.NET 3 2,688 10-03-18, 03:50 PM
آخر رد: عبد العزيز البسكري
  ارجو المساعدة في اوامر check بدلا من listbox1 amer2000 5 2,508 23-02-18, 11:44 PM
آخر رد: awidan76
  [سؤال] المساعدة - بربط Combo بقاعدة البيانات amor58 1 1,986 30-01-18, 11:19 PM
آخر رد: Amir_Alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم