مرحبا
لوسمحتو اذا حديعرف الكود اذاصفت والداتاموجودة يعطيني مسج الداتا موجودة
هذا الكوداللس استخدمتة بس مب شغال عندي
RsChk.Open "login", cn, adOpenDynamic, adLockOptimistic
If RsChk.RecordCount <> 0 Then
RsChk.Find ("Userid='" + Text4.Text + "'")
If RsChk.EOF = False Then
If IsNull(RsChk.Fields(5).Value) = False Then
MsgBox ("The User_ID already there")
Text4.SetFocus
Exit i f
end if
end if
end if
فاللي يعرف الكود يساعدني
Dim rschk As adodb.recodset
rschk.Open "login", cn, adOpenDynamic, adLockOptimistic, adCmdTable
If rschk.RecordCount <> 0 Then
rschk.Find ("Userid='" + Text4.Text + "'")
If rschk.EOF = False Then
MsgBox ("The User_ID already there")
Text4.SetFocus
Exit Sub
End If
End Ifتم تعديل هذه المشاركة بواسطة TareqVB في 2 يونيو 2007 في 10:10
هذا الكود مالي ماراضي يضبط وحاولت بكذا طريقة ماينفع
فأريد أعرف وين الخطأ فالكوداللي سويته
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Incomplete Entry....", vbInformation, "Daily income& expanses System"
Exit Sub
End If
If cn.State = 1 Then
cn.Close
End If
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Daily.mdb;Persist Security Info=False"
rs.Open "Select* from acctype ", cn, adOpenDynamic, adLockOptimistic
If rs.RecordCount > 0 Then
'rs.Open "Select* from acctype ", cn, adOpenDynamic, adLockOptimistic
MsgBox "This date already exist......", vbInformation, "Daily income and expanses system"
Exit Sub
End If
'rs.Open "Select* from acctype ", cn, adOpenDynamic, adLockOptimistic
With rs
.AddNew
'!date_entry = Format(dtp1.Value, "mm/dd/yyyy")
!category = Text1.Text
!subCategory = Text2.Text
If Option1.Value = True Then
Option1.ForeColor = &H0
Else
Option2.Value = True
End If
.Update
End With
MsgBox "Record add seccussfully."
Dim rschk As New ADODB.Recordset
rschk.Open "acctype", cn, adOpenDynamic, adLockOptimistic, adCmdTable
If rschk.RecordCount <> 0 Then
rschk.Find ("category='" + Text1.Text + "'")
If rschk.EOF = False Then
MsgBox ("The category already there")
Text1.SetFocus
Exit Sub
End If
End If
End Sub
rs.Open "Select* from acctype ", cn, adOpenDynamic, adLockOptimistic If rs.RecordCount > 0 Then
في هذا الكود غير الى مايلي
"Select* from acctype where date_entry = Format(dtp1.Value, "mm/dd/yyyy")
واستعمل rs.RecordCount <> 0
يرجى تعديل عنوان الموضوع إلى : كود خاطئ يرجى تعديله ..... أفضل يعني
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
مشكور أخوي عدلت فالكود بس دايما يطلعلي هالمسج
the data already exist..
حتى لو الداتاماموجودة نفس المسج
وين الرد عالموضوع اذا حد يعرف تصحيح الكود
علشان نساعدك بشكل افضل ارجو ارسال السورس كود بتاع المثال
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
وين المساعدة ياأخـــــــــــوانـــــــــــــي رسلت المرفق ومحد رد عليي
هذا الموضوع مغلق.
