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

حل هذا الخطأ

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

السلام عليكم ورحمة الله وبركاته .. وبعد ،،

بينما أحاول تسجيل بيانات سجل جديد عن طريق الـ DAO ظهرت لي رسالة عند عدم الإختيار من قائمة وتحرير وسرد (مع العلم بأنه في بعض الأحيان لا يتم تمكين قائمة التحرير والسرد) ..

والرسالة هي :

Data type conversion error. (Error 3421)

هل أجد عند أحدكم حلاً لتلافي هذه الرسالة .

بارك الله فيكم ومشكورين سلفاً

#2

هذا هو الكود الذي قمت بكتابته لإدراج بيانات سجل جديد ..

Dim db As Database

Dim rst As Recordset

Set db = CurrentDb()

Set rst = db.OpenRecordset("Sales")

'==================================

If Me.VoyageNo = "" Then

Me.VoyageNo = Null

End If

'==================================

With rst

.AddNew

rst!TicketSerialNo = Me.QuickSearch

rst!PassengerName = Me.PassengerName

rst!PassportNo = Me.PassportNo

rst!CarType = Me.CarType

rst!ChassisNo = Me.ChassisNo

rst!CategoryID = Me.CategoryID

rst!LineID = Me.LineID

rst!VoyageCode = Me.VoyageNo

rst!ClassType = Me.ClassType

rst!BasicPrice = Me.BPrice

rst!FessPrice = Me.FPrice

rst!Remark = Me.Remark

.Update

Set rs = Nothing

End With

وقد كتابة الكود بين السطرين أعلاه وذلك لإدراج قيمة خالية في حالة عدم وجود بيانات بهذا الحقل ، فهل الطريقة صحيحة أم أن هناك طرق برمجية اخرى صحيحة .

      
      

      
    

  

    
    

      
#3
        
        

      
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("Sales")
'==================================
If Me.VoyageNo = "" Then
Me.VoyageNo = Null
End If
'==================================
 With rst
 .AddNew
   rst!TicketSerialNo = Me.QuickSearch
   rst!PassengerName = Me.PassengerName
   rst!PassportNo = Me.PassportNo
   rst!CarType = Me.CarType
   rst!ChassisNo = Me.ChassisNo
   rst!CategoryID = Me.CategoryID
   rst!LineID = Me.LineID
   rst!VoyageCode = Me.VoyageNo
   rst!ClassType = Me.ClassType
   rst!BasicPrice = Me.BPrice
   rst!FessPrice = Me.FPrice
   rst!Remark = Me.Remark
 .Update
   Set rs = Nothing
End With

      
      

      
    

  

    
    

      
#4
        
        

      
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("Sales")
'==================================
If Me.VoyageNo = "" Then
Me.VoyageNo = Null
End If
'==================================
 With rst
 .AddNew
   rst!TicketSerialNo = Me.QuickSearch
   rst!PassengerName = Me.PassengerName
   rst!PassportNo = Me.PassportNo
   rst!CarType = Me.CarType
   rst!ChassisNo = Me.ChassisNo
   rst!CategoryID = Me.CategoryID
   rst!LineID = Me.LineID
   rst!VoyageCode = Me.VoyageNo
   rst!ClassType = Me.ClassType
   rst!BasicPrice = Me.BPrice
   rst!FessPrice = Me.FPrice
   rst!Remark = Me.Remark
 .Update
   Set rs = Nothing
End With

      
      

      
    

  

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

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