اضافة اداة لاستيراد الملفات النصيه

السلام عليكم

الكود موجود في الوحدة النمطية

td3333.rar

الف شكر اخي الله يسعدك

ولكن ياليت تعديل مايلي

1- ملف التكست اريد ان يكون الخيار لي بتحديده لان اسمه ومكانه ليس ثابت واريد ان تفتح نافذه لتحديده

2- المطلوب تخزين مختويات ملف التكست في الجدول ( تفاصيل الصفقات ) الموجود في قاعدة البيانات

3- عمل امر يفرغ الجدول ( تفاصيل الصفقات ) ويحذف محتوياته

الف شكر للجميع

السلام عليكم

td3333.rar

alslam 3alaykom
fe hada elmethal fe moshkele
  elfunction ra7 ydeef sejel 7ata law ma kan sejel sa7e7
	because GetInsertIntoValues() function ra7 y3'ayer el values
	bass hada 3'alat(not right) because ra7 ydeef sejelat khate2a(wrong)
	fayareet t7awel t3'ayer el barnamej ino ma ydeef elsejelat elle mesh motabeka latansek elsejel



w fe tareka thanye to import textfile ashal kteer
  ana 7abeet a3teek tareka barmajeye gabel momken tsa3dak

   CurrentDb.Execute "Delete From [تفاصيل الصفقات]"
   DoCmd.TransferText , "", "تفاصيل الصفقات", FileName, True

bass hay eltareka ma betkhalek tmot 3al sejelat one by one and check them

الف شكر اخي على مساعدتك

عند تشغيل البرنامج تظهر هذه الرسالة

ماهو الحل

السلام عليكم

افتح Visual Basic Editor الذي في الاكسس

Tools--> Macros-->Visual Basic Editor

بالعربي ممكن

ادوات --> ماكرو--> محرر فجوال بيسك

بعدين

Tools ---> Refrences

شيل علامة الصح من

Microsoft Common Dialog Control 6.0

اضغط Ok

اخي الله يوفقك والف شكر لك ولسعة صدرك

واتمنى ان يتسع صدرك لكثرة اسئلتي وهذا من كرمك

لم تحل المشكله

للرفع

اخي الفاضل ابو ياسر

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

نشكر الاستاذ محب الرسول على مشاركته وسعة صدره .

كما تعلم ان الاستاذ محب الرسول قام بكتابة الكود الخاص بالوحدة النمطية لتسهيل الامر عليك في اختيار الملف النصي مباشرة بواسطة نافذة فتح الملفات لهذا انت تحتاج في هذه الحالة الى مصدر هذا الكائن وهو احد عناصر OCX ويسمى COMDLG32.OCX لهذا فقد وضعته لك فم بتحمله وفك الضغط عنه ووضعه في مجلد النظام C:\WINDOWS\system32 الان انتقل الى برنامج الاكسيس وافتح مكتبة المراجع او Refrences وذلك بالضغط على المفتاحين في لوحة المفاتيح ALT+F11 وسيفتح لك محرر الفيجول بيسك الان انتقل الى ادوات TOOLS ثم Refrences وضع علامة الصح امام الكائن كما في الصوره ثم موافق وقم بفتح النموذج وسيعمل معك ان شاء الله تعالى بدون اي مشاكل

هذا الملف ضعه في مجلد النظام C:\WINDOWS\system32

COMDLG32.rar

اختكم

زهره

الف شكر اختي زهره

طبقت كل اللي كتبتي بدون اي فائده

ومازالت تظهر هذه المشكله لدي

السلام عليكم

اسف اخي ابو ياسر ما انتبهت على سؤالك , كنت مشغول شوي

و شكرا اختي زهره وبارك الله في جهودك الطيبه

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

غير الجملة

Set Com1 = CreateObject("MSComDlg.CommonDialog.1")

وضع مكانها

Set Com1 = New CommonDialog

واذا ما زبط معاك استخدم التالي و ان شاء الله راح تزبط

انا وضعت الكود في ملف لانه ما راضي يضيفه ما بعرف ليش

aboyaser.txt

الف شكر

وبارك الله فيك وجزاك الله عنا الف خير

بقي سؤال صغير فقط

لو حبيت اضيف كم عمود على الجدول المنشاء بواسطة الكود

كيف يتم ذلك

مثال

حبيت اضيف في اخر الجدول عمودين ( ملاحظة1) و (ملاحظة2)

الف شكر

alslam 3alaykom

'you can use
Dim fld As New Field
fld.Name = "Note1"
fld.Type = dbText
fld.Size = 50
CurrentDb.TableDefs("tablename").Fields.Append fld
'or
CurrentDb.TableDefs("tablename").Fields.Append _
		  CurrentDb.TableDefs("tablename").CreateField("Note1", dbText, 50)

'or 3an taree2 el sql
CurrentDb.Execute "alter table tablename add column Note1 Text(50), Note2 Text(50) "

اخي ياليت تتكرم وتضيف الكود في قاعدة البيانات

المرفقة

بحيث يضيف عمودين ملاحظة1 وملاحظة2

والف شكر مقدما

moooooooo.zip

اخي محب الرسول

الف شكر وتقديرلك على مساعدتك

تم الانتهاء من الملف

تحياتي لك

-waf -waf -waf

السلام عليكم

moooooooo.zip