مشروع برنامج لربط ملف بالأكسس

أخي العزيز :

ماالهدف من ذلك ؟

إذا كانت هذه البيانات تستخدم في قاعدة البيانات فقط لماذا لا يتم عمل نموذج في القاعد ويتم تحديثه بدلا من الكتابة في النوت باد ثم نقل البيانات للقاعدة .

السلام عليكم ..

الموضوع أصلا يا أخى AccseeXp هو أن الملف يتم تحديثه عن طريق جهاز متصل بالحاسب أوتوماتيكياُ .. ولا يمكن إلا أخد البيانات من ملف نصى ...

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

ألا من مخرج من هذا المأزق !!!!!

هل ملف النص به سطر واحد أم أكثر

و هل عدد المقاطع فى النص ثابت أم متغير ( عدد الفواصل)

و ماذا تربد أن تفعل بالرقم بعد ذلك

هل يخزن كله فى حقل واحد أم ماذا ؟؟

وعموما الفكرة تنحصر في كيفية القراءةمن ملف النص

و هذا مثال من التعليمات علي القراءة و الكتابة الي ملف نص

'read from file

Input # Statement Example
This example uses the Input # statement to read data from a file into two variables. This example assumes that TESTFILE is a file with a few lines of data written to it using the Write # statement; that is, each line contains a string in quotations and a number separated by a comma, for example, ("Hello", 234).

Dim MyString, MyNumber
Open "TESTFILE" For Input As #1    ' Open file for input.
Do While Not EOF(1)    ' Loop until end of file.
    Input #1, MyString, MyNumber    ' Read data into two variables.
    Debug.Print MyString, MyNumber    ' Print data to the Immediate window.
Loop
Close #1    ' Close file.

'---------------

This example uses the Write # statement to write raw data to a sequential file.

Open "TESTFILE" For Output As #1    ' Open file for output.
Write #1, "Hello World", 234    ' Write comma-delimited data.
Write #1,    ' Write blank line.

Dim MyBool, MyDate, MyNull, MyError
' Assign Boolean, Date, Null, and Error values.
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' Boolean data is written as #TRUE# or #FALSE#. Date literals are 
' written in universal date format, for example, #1994-07-13# 
 'represents July 13, 1994. Null data is written as #NULL#. 
' Error data is written as #ERROR errorcode#.
Write #1, MyBool ; " is a Boolean value"
Write #1, MyDate ; " is a date"
Write #1, MyNull ; " is a null value"
Write #1, MyError ; " is an error value"
Close #1    ' Close file.

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

ملف النص هو عبارة عن سجلات عرضها ( مقاطعها ) ثابت ويمكن أن تصل إلى ألاف السجلات ..

ويتم تخزين كل مقطع فى حقل منفصل ..

ويتم بعد ذلك التعامل مع عدد من حقول البيانات الموجودة فى الجدول بالعمليات الحسابية المختلفة ...

ومن المشاكل أيضاً المطلوب لها حل :

أن اسم الملف النصى يتغير كل يوم .. واريد طريقة تحديث مستمرة لهذا الملف كل يوم ...

واسم الملف مثلا يكون بتاريخ اليوم كالأتى ( 050802) اى 5/8/2002 وغداً (060802 ) أى 6/8/2002 ...

وهكذا ..

السلام عليكم

ويتم تخزين مثل البانات التالية داخل هذا الملف ..

مسلسل ، زمن بداية ، زمن نهاية ، مدة ، .....