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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برجاء المساعدة في تجميع مسحوبات كل صنف للعميل nourmandour 4 213 30-05-17, 03:40 PM
آخر رد: Ahmed_Mansoor
  [سؤال] رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع nourmandour 13 485 14-05-17, 06:03 PM
آخر رد: nourmandour
  [كود] التعديل على هذا الكود جزاكم الله خيراً عبد الرحمن على 15 458 09-05-17, 06:56 PM
آخر رد: عبد الرحمن على
  اريد المساعدة في عمل برنامج مواقيت الصلاة نوراني 1 157 03-05-17, 09:34 AM
آخر رد: Ahmed_Mansoor
  [سؤال] برجاء المساعدة - كيفية عمل صفحة التعريف بالبرنامج عبد الرحمن على 11 412 30-04-17, 01:20 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 9 363 15-04-17, 04:13 AM
آخر رد: sendbad100
  [سؤال] ارجو المساعدة في تقسيم الارقام VB.NET 4 263 14-02-17, 05:32 AM
آخر رد: Ahmed_Mansoor
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 341 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 615 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  تعديل على الكود لو سمحتو يامعلمين.... amer2000 8 353 01-11-16, 09:50 AM
آخر رد: amer2000

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


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