منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
خطأ في الكود يرجى المساعدة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : خطأ في الكود يرجى المساعدة (/showthread.php?tid=9200)

خطأ في الكود يرجى المساعدة - shafiq - 08-06-13

الخطأ عند محاولة ادخال حساب مزود جديد


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

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

خطأ في الكود يرجى المساعدة - shafiq - 09-06-13

لا أحد ؟ هل من مجيب ؟