تقييم الموضوع :
  • 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 م ب / التحميلات : 40)
الرد }}}}
تم الشكر بواسطة:
#2
لا أحد ؟ هل من مجيب ؟
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 104 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 110 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  تعديل على الكود لو سمحتو يامعلمين.... amer2000 8 170 01-11-16, 09:50 AM
آخر رد: amer2000
  ارجو المساعدة والتعديل وتصليح المشروع عمور2016 5 145 10-07-16, 12:26 PM
آخر رد: عمور2016
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 7 796 20-06-16, 08:13 PM
آخر رد: Amir_alzubidy
  طلب المساعدة في إختيار قاعدة البيانات من الـ Combobox ثم الإتصال بها blida02 1 168 20-05-16, 09:22 PM
آخر رد: Ahmed_Mansoor
  [vb6.0] أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected k_medhat 6 414 04-02-16, 04:07 AM
آخر رد: gadr
  الرجاء المساعدة في كود التاريخ wolf1120 4 720 31-12-15, 01:16 AM
آخر رد: awidan76
  من المنتدى القديم (هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!!) VBMaged 3 514 23-10-15, 11:51 PM
آخر رد: اسلام الكبابى
  [VB.NET] الرجاء المساعدة على محمود 1 169 14-10-15, 08:05 PM
آخر رد: vb6_coder

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


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