الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ما هو الخطا في هذا الكود

مغلق
بدأه goldenevil في 15 مايو 2005 · 2 رد · 533 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

يوجد لدي قاعدة بيانات يوجد فيها جدولين الاول باسم status و الثاني باسم info و قمت بعمل ربط للجدولين بواسطة الرقم الوظيفي و لكن عندما اقوم بادخال البيانات و اقوم بالتخزين يعطي رسالة خطا ان قاعدة البيانات للقراءة فقط 

Private Sub cmdsave_Click()

    With rs

        Set rs = db.OpenRecordset(" select info.* , status.*  from info,status where info.empnu and status.empnu  = " & Val(txtnum))
        If .EOF = True And .BOF = True Then
            .AddNew
            !empnu = txtnum
            !nmae = txtname
            !nat = txtnat
            !workdate = txtdate
            !job = txtjob
            !dep = txtdep
            !man = txtman
            .Update
        Else
        msgbox"th number is allready exest"
            txtnum = ""
        End If
    End With

    With rss
        .AddNew
        !empnu = Val(txtnum)
        !Status = comba
        !salary = txtsalary
        !salarytax = txttax
        !cut = txtcut
        !encwife = txtwife
        !encchi = txtchi
        .Update
    End With

End Sub

تم تعديل هذه المشاركة بواسطة فهد الدوسري في 18 مايو 2005 في 07:07

#2

شباب وين كل هذه الزيارات ولا واحد رد على

ارجوكم المساعة

#3 
Option Compare Database
 Dim db As Database
 Dim rs As Recordset
 Dim sql As String


Private Sub Command7_Click()
If Me!emp_no <> "" Then
'********************************first table ******************************
    sql = "select * from info_tb where emp_no=" & Me!emp_no
    Set rs = db.OpenRecordset(sql)
    If rs.RecordCount < 1 Then

        rs.AddNew
        rs!emp_no = Me!emp_no
    Else

        rs.Edit
    End If
        rs!emp_name = Me!emp_name
        rs!emp_job = Me!emp_job
        rs.Update
        rs.Close
'***********************************second table****************************
     sql = "select * from status where emp_no=" & Me!emp_no
    Set rs = db.OpenRecordset(sql)
    If rs.RecordCount < 1 The
        rs.AddNew
        rs!emp_no = Me!emp_no
    Else
         rs.Edit
    End If
        rs!emp_stat = Me!emp_stat
        rs!emp_sal = Me!emp_sal
        rs.Update
        rs.Close

End If
End Sub


Private Sub Form_Open(Cancel As Integer)
Set db = CurrentDb
End Sub

الملف المرفق هو البرنامج

db7.zip

تم تعديل هذه المشاركة بواسطة biskra في 18 مايو 2005 في 20:23

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…