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

اية الخطاء في هذا الكود

بدأه TAMER FATHY في 1 مايو 2013 · 2 رد · 293 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع
Private Function createtable() As Boolean

Dim qdf As DAO.QueryDef

Dim db As DAO.Database

Dim strSQL As String

 

strSQL = "CREATE TABLE tblsystem ("

strSQL = strSQL& " Name Text (255) , "

strSQL = strSQL& "Container Text (50), "

strSQL = strSQL& "DataCreatedDateTime , "

strSQL = strSQL& "LastUpdatedDateTime,"

strSQL = strSQL& "Owner Text (50) ,"

strSQL = strSQL& " ID Autoincrement Constraint PrimaryKey PRIMARY KEY)"

On Error GoToErr_Handler

Set db = CurrentDb

With db

.Execute "DROP TABLE tblsystem"

.Execute strSQL

.TableDefs.Refresh

End With

createtable = True

ExitFunction:

Exit Function

Err_Handler:

Select Case Err

Case 3376, 3011

Resume Next

Case Else

createtable = False

End Select

Resume ExitFunction

End Function
#2

هذا هو الكود بعد التعديل

فقط ضبط المسافات

و اسم العمود 

Name   من الاسماء المحفوظة لذلك يجب تغييره
Private Function createtable() As Boolean
Dim qdf As DAO.QueryDef
Dim db As DAO.Database
Dim strSQL As String
 
strSQL = "CREATE TABLE tblsystem ("
strSQL = strSQL & " ZName Text (255) , "
strSQL = strSQL & " Container Text (50), "
strSQL = strSQL & " DataCreated DateTime , "
strSQL = strSQL & " LastUpdated DateTime,"
strSQL = strSQL & " Owner Text (50) ,"
strSQL = strSQL & " ID Autoincrement Constraint PrimaryKey PRIMARY KEY)"

On Error GoTo Err_Handler
Set db = CurrentDb
With db
'.Execute "DROP TABLE tblsystem"
.Execute strSQL
.TableDefs.Refresh
End With
createtable = True
ExitFunction:
Exit Function
Err_Handler:
Select Case Err
Case 3376, 3011
Resume Next
Case Else
createtable = False
End Select
Resume ExitFunction
End Function

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#3

شكرا اخي الكريم 

لكن الكود عندما اضعة في المديول واضغط run تظهر رسالة تفيد بانة يوجد خطأ فى هذة الجملة qdf As DAO.QueryDef 

برجاء الافادة

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