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

تحديث البيانات في الجداول والاستعلامات

مغلق
بدأه mohammed hammed في 21 مايو 2007 · 22 رد · 1,860 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أخواني الكرام / السلام عليكم ورحمة الله وبركاته

تحية طيبة لكل المتواجدين بالمنتدى الله يعطيكم الصحة والعافية

عندي سؤال محيرني وتكفوووووووووون لا تحرموني من إجاباتكم

حاولت وبحثت لكن لم أجد إجابة شافية لسؤالي

تحديث البيانات في الجداول والاستعلامات بناءاً على اختيار جدول من نوع إكسل

المطلوب : عند النقر على زر (تحديث البيانات للعام الحالي ) يقوم البرنامج بفتح مربع حوار :لإختيار جدول من نوع إكسل باسم (جدول المباني للعام 1428)

ثم يقوم البرنامج بتحديث جميع البيانات المرتبطة بالجدول السابق (جدول المباني للعام 1427) إلى (جدول المباني للعام 1428).

القاعدة موجود فيها ثلاثة استعلامات وثلاثة نماذج تعتمد على جدول واحد أللي هو (جدول المباني للعام 1427)

وهذي عينة مرفقة لقاعدة البيانات

ومعها عينة أخرى لجدول المباني من نوع إكسل للعام 1428

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#2

اخي الكريم

ملفاتك معطوبة - تم تصديرها من قبلك بامتداد لايمكن التعرف عليه

ولذلك لم يرد عليك أحد

EKSEER

#3

هذي الملفات بعد التعديل

آسف حقيقة على هذا الخلل الفني في الملفات

تم تعديل هذه المشاركة بواسطة mohammed hammed في 22 مايو 2007 في 02:25

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#4

يا اخواني إذا كان في الملفات مشكلة أعطوني خبر تكفوووون

هذي الملفات بعد التعديل الثاني

آسف حقيقة على هذا الخلل الفني في الملفات

teable_1428.rar

_____________111.rar

تم تعديل هذه المشاركة بواسطة mohammed hammed في 22 مايو 2007 في 23:25

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#5

للأسف قاعدة الاكسس .. معطوبه

#6

القاعدة اخوي ekseer سليمة على جهازي

لكن ماهي المشكلة التي تواجهها

عموما غيرت القاعدة في الرد السابق

ألف شكرررررررررررررر لك

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#7

السلام عليكم أخي محمد

اليك المثال بعد التعديل عليه / أصبح يستورد البيانات من ملف الاكسل الى قاعدة الاكسس

الملف به قاعدتك الاكسس + 3 ملفات أكسل ( 1427 - 1428 - وقاعدتك السابقة )

القاعدة تستورد من اي الملفات السابقة شئت .. عند تطوير الكود أو المثال يجب مراعاة الاتي

عند تغيير اسم جدول الواجهة يجب أن تغيره كذلك في الكود

عند زيادة عدد الحقول أو انقاصها ايضا يجب أن تغير في الكود

عند زيادة عدد خلايا ورقة الاكسل يجب ان تغير ايضا في الكود

مع قبول تحياتي

EKSEER

E_Xls.rar

#8

أخوي EKSEER ألف ألف شكرررررررررررررررررررررررررررررر لك

الله يعطيك الصحة والعافية الحقيقة ما قصرررت

الله يبارك فييييييييك ويفتح لك طريق الخيييييييرر

طلب بسيط اخوي EKSEER تكفى السطر هذا لم أفهمه :

السطر DoCmd.TransferSpreadsheet acImport, 8, "import", (txt), False, "A2:F16"

ألف شكرررررررر لك والله يعطيك الصحة والعافية

تم تعديل هذه المشاركة بواسطة mohammed hammed في 23 مايو 2007 في 10:07

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#9

أهلا بك أخي ولا شكر على واجب

بخصوص الامر

DoCmd.TransferSpreadsheet acImport, 8, "import", (txt), False, "A2:F16"

فأنا ساترجمه لك وللكل

DoCmd = صيغة أمر ( يعني أمرك أنت يابرنامج الأكسس )

TransferSpreadsheet acImport = أن تستورد أو تنقل بيانات شيت الاكسل 8

import = للجدول الذي بقاعدتي واسمه import

(txt) = اسم التكست الظاهر على الفورم مسند اليه هنا مسار ورقة الاكسل ( المسار )

False = ويكون الاستيراد في الخفاء أي لا تفتح واجهة برنامج الاكسل

A2:F16 = ويكون نقل البيانات من أول خلية الاكسل A2: الى نهاية الخلية F16

أنتهى

EKSEER

تم تعديل هذه المشاركة بواسطة ekseer في 23 مايو 2007 في 11:25

#10

بارك الله فييييييييييييييييييييييييك

مشكوووووووووووووووووووووور

ألف ألف شكرررررررررررررررررررررر لللللللللللللللللللللللك

يا EKSEER

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#11

أخوي ekseer

بالنسبة لسطر كتابة الحقول :

DoCmd.RunSQL "INSERT INTO )SELECT import.,import.,import. FROM import;"

أنا عندي الحقول بعضها باللغة العربية وبعضها باللغة الإنجليزية وعددها كبير هل يوجد أمر كل الحقول التي في الجدول import تتحدث إلى كل الحقول ........الخ

لم استطع كتابة اللغة العربية فكيف الحل

تم تعديل هذه المشاركة بواسطة mohammed hammed في 29 مايو 2007 في 13:18

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#12

السلام عليكم

اقتباس
أنا عندي الحقول بعضها باللغة العربية وبعضها باللغة الإنجليزية وعددها كبير هل يوجد

أخي الفاضل / اذا تريد يكون الكود 100% وغير مزعج أكتب الحقول بالإنجليزيه فقط

ثم يجب أن تكون الحقول في المصدر والهدف متطابقة تماما

والسلام

EKSEER

تم تعديل هذه المشاركة بواسطة ekseer في 30 مايو 2007 في 11:33

#13

أخوي EKSEER

الجدول الدي يعتمد عليه البرنامج يتم تصديره من برنامج آخر فإدا غيرت الحقول إلى الإنجليزية سأحتاج إلى تغيير جميع الأرتباطات في البرنامج

وهدا صعب جداً .

فإدا كان هناك طريقة لكتابتها كما هي ...أكون شاكر جدا لك يا أخوي EKSEER

وجزاك الله خيرا

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#14

الله يجزاك بالخير EKSEER أخوي

كتبت الأمر كما تفضلت لكن واجهتني مشكلة هي : أن السطر لا يكفي لهذا الأمر لكثرة الحقول وهذا هو الأمر : كالتالي

DoCmd.TransferSpreadsheet acImport, 8, "import", (txt), False, "A2:BE208"

DoCmd.RunSQL "INSERT INTO 1427 ( minis, step,num_school, city_place, name_school, town_code, apart _accessory, educ_area, year_promotion, lesson _1, stu_1, stu_sa_1, stu_sa_2, lesson_2, stu_2, lesson_3, stu_3, stu_sa_3, lesson_4, stu_4, stu_sa_4, lesson_5, stu_5, stu_sa_5"
, lesson_6, stu_6, stu_sa_6, lesson_7, stu_7, stu_sa_7, lesson_8, stu_8, stu_sa_8, lesson_9, stu_9, stu_sa_9, total_stu, stu_sa, mendicant, mendicant _sa, total_lesson, teachers, teacher_sa, compl_out, administraters, administraters_sa, servitors, workers, architecture_lessee, architecture_gov, account_total, total_roomes, a37, a3, a4, educ_type, a36) SELECT import.F1, import.F2, import.F3, import.F4, import.F5, import.F6, import.F7, import.F8, import.F9, import.F10, import.F11, import.F12, import.F13, import.F14, import.F15, import.F16, import.F17, import.F18, import.F19, import.F20,import.F21,import.F22,import.F23,import.F24,import.F25,import.F26,import.F27,import.F28,import.F29,import.F30,import.F31,import.F32,import.F33,import.F34,import.F35,import.F36,import.F37,import.F38,import.F39,import.F40,import.F41,import.F42,import.F43,import.F44,import.F45,import.F46,import.F47,import.F48,import.F49,import.F50,import.F51,import.F52,import.F53,import.F54,import.F55,import.F56,import.F57 FROM import;"

فماذا أفعل أفيدوني جزاكم الله ألف خيييييير

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#15
اقتباس
كودDoCmd.TransferSpreadsheet acImport, 8, "import", (txt), False, "A2:BE208"

DoCmd.RunSQL "INSERT INTO 1427 ( minis, step,num_school, city_place, name_school, town_code, apart _accessory, educ_area, year_promotion, lesson _1, stu_1, stu_sa_1, stu_sa_2, lesson_2, stu_2, lesson_3, stu_3, stu_sa_3, lesson_4, stu_4, stu_sa_4, lesson_5, stu_5, stu_sa_5"

, lesson_6, stu_6, stu_sa_6, lesson_7, stu_7, stu_sa_7, lesson_8, stu_8, stu_sa_8, lesson_9, stu_9, stu_sa_9, total_stu, stu_sa, mendicant, mendicant _sa, total_lesson, teachers, teacher_sa, compl_out, administraters, administraters_sa, servitors, workers, architecture_lessee, architecture_gov, account_total, total_roomes, a37, a3, a4, educ_type, a36) SELECT import.F1, import.F2, import.F3, import.F4, import.F5, import.F6, import.F7, import.F8, import.F9, import.F10, import.F11, import.F12, import.F13, import.F14, import.F15, import.F16, import.F17, import.F18, import.F19, import.F20,import.F21,import.F22,import.F23,import.F24,import.F25,import.F26,imp

ort.F27,import.F28,import.F29,import.F30,import.F31,import.F32,import.F33,import

.F34,import.F35,import.F36,import.F37,import.F38,import.F39,import.F40,import.F4

1,import.F42,import.F43,import.F44,import.F45,import.F46,import.F47,import.F48,i

mport.F49,import.F50,import.F51,import.F52,import.F53,import.F54,import.F55,impo

rt.F56,import.F57 FROM import;"

هذا الأمر أتعبني مو راضي يتنفذ ما أدري الخطأ فيين الله يبارك فييييييكم

حاولت لكن لم أصل لحل بحثت ولم أجد

وظيفة الأمر هي : يقوم بإستيراد جدول من نوع إكسل ( الجدول مكون من 57 حقل )

جربت الأمر على جدول حقوله 6 بيتنفذ بدون مشاكل

لكن 57 حقل (يظهر خطأ بالأقواس)

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#16

للرفع

.

.

.

أحد يرد يا جماعة الخير

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#17

يا هوووووووووووووووووووووووووووو

.

.

.

.

أرحموووووووووووووونا

الله يرحمكم .....

عدد الزوار 258 ولا أحد يرد

تم تعديل هذه المشاركة بواسطة mohammed hammed في 5 يونيو 2007 في 10:02

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#18

هذه ملفات مرفقة

ملف للأكسس

وهذا

ملف للإكسل

coooom.zip

1428.zip

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#19

سلام

تحياتي للجميع

- ممكن أشارك؟

-- يوجد علاقة حميمة بين أكسل و أكسس ماتتصور فلماذا تلجأ إلى استيراد البيانات؟

-- يمكن أفهم السبب؟ يمكن هناك طريق اسهل وأنفع لك.

:: كتجربة

- جرب ربط ورقة بيانات إكسل بقاعدة بيانات أكسس. ماذا يحدث:

-- يمكنك إدخال البيانات عن طريق إكسل لتجدها مباشرة في الجدول المرتبط في أكسس

-- بكل أكثر من ذلك: في سطر أسماء الحقول في إكسل قم بتسمية حقل جديد ستجده مباشرة في أكسس

-- لا بل أكثر قم بتغير تنسيق بيانات أي عمود من أعمدة إكسل ستجده مباشر سيتغير في أكسس. غير عمود من رقمي إلى نصي والعكس ثم أفتح الجدول في أكسس على وضع التصميم ثم راقب الفرق في كل مرة

- جرب هذا المثال، أو أي مثال عندك : Access.zip

- بعد ذلك يمكنك بالجدول المرتبط عمل ما تريد ( نماذج - تقارير - استعلامات - بحث.... )

- إذا لماذا نستورد البيانات ونحن بإمكاننا التعامل معها بمهارة أكبر عن طريق الربط؟!

أتمنى للجميع التوفيق

سلام

القحم

#20

أخوي Gaham ألف شكر لك على هذه المعلومة القيمة .

لكن طريقتي في المثال هي عندما تختار أمر ( تحديث ) يفتح لك مربع حوار يطلب منك اختيار موقع الملف ثم يقوم البرنامج بتغيير البيانات .

لأنني بحول البرنامج إلى الفيجوال فيما بعد .

هذه الملفات مرفقة

ملف للأكسس

وملف آخر للإكسل

هذ هو الكود كودDoCmd.TransferSpreadsheet acImport, 8, "import", (txt), False, "A2:BE208"

DoCmd.RunSQL "INSERT INTO 1427 ( minis, step,num_school, city_place, name_school, town_code, apart _accessory, educ_area, year_promotion, lesson _1, stu_1, stu_sa_1, stu_sa_2, lesson_2, stu_2, lesson_3, stu_3, stu_sa_3, lesson_4, stu_4, stu_sa_4, lesson_5, stu_5, stu_sa_5"

, lesson_6, stu_6, stu_sa_6, lesson_7, stu_7, stu_sa_7, lesson_8, stu_8, stu_sa_8, lesson_9, stu_9, stu_sa_9, total_stu, stu_sa, mendicant, mendicant _sa, total_lesson, teachers, teacher_sa, compl_out, administraters, administraters_sa, servitors, workers, architecture_lessee, architecture_gov, account_total, total_roomes, a37, a3, a4, educ_type, a36) SELECT import.F1, import.F2, import.F3, import.F4, import.F5, import.F6, import.F7, import.F8, import.F9, import.F10, import.F11, import.F12, import.F13, import.F14, import.F15, import.F16, import.F17, import.F18, import.F19, import.F20,import.F21,import.F22,import.F23,import.F24,import.F25,import.F26,imp

ort.F27,import.F28,import.F29,import.F30,import.F31,import.F32,import.F33,import

.F34,import.F35,import.F36,import.F37,import.F38,import.F39,import.F40,import.F4

1,import.F42,import.F43,import.F44,import.F45,import.F46,import.F47,import.F48,i

mport.F49,import.F50,import.F51,import.F52,import.F53,import.F54,import.F55,impo

rt.F56,import.F57 FROM import;"

هذا الأمر أتعبني مو راضي يتنفذ ما أدري الخطأ فيين الله يبارك فييييييكم

حاولت لكن لم أصل لحل بحثت ولم أجد

وظيفة الأمر هي : يقوم بإستيراد جدول من نوع إكسل ( الجدول مكون من 57 حقل )

جربت الأمر على جدول حقوله 6 بيتنفذ بدون مشاكل

لكن 57 حقل (يظهر خطأ بالأقواس)

قمت بتحويل القاعدة إلى 2002

coooom.zip

1428.zip

تم تعديل هذه المشاركة بواسطة mohammed hammed في 6 يونيو 2007 في 10:01

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#21

سلام

تحياتي للجميع

- رجاءً جرب هذا الملف

- هذا الملف مبني على ما سبق بينته من العلاقة الحميمة بين إكسل وأكسس

coooom.zip

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

سلام

القحم

#22

أخوي القحم الله يعطيك العافية

استوردت النموذج OpenExleFile والجدول Name AutoCorrect Save Failures والجدول SpareSheet

لكن واجهتني مشكلة هي أن : زر أمر فتح الملف لا يعمل .

لكن طلب وليس أمراً

إذا مافي كلفة عليك أخوي القحم .....

س / ما هي الخطوات التي أجريتها على هذا المثال ؟

أو إذا طبقت نفس المثال على البرنامج ما هي الخطوات التي أتبعها ؟ يعني شرح بسيط للكود

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

.................أخوك Kaled 2007 ..

اللهم لا سهل إلا ما جعلته سهلا وأنت تجعل الحزن إذا شئت سهلا

#23

سلام

أهلا بك

- عفوا!! نسيت أن لي مشاركة بهذا الموضوع. أسف جدا

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

- أمر أخر: في المثال استخدمت (مربع الحوار الشايع) الخاص بالأوفس. فإذا كان السبب هو ظهور رسالة خطأ الوحدة النمطية؛ فقم بالتأشير على هذه المكتبة من ملف المراجع للوحدات النمطية ( وهو في أفس 2007 يحمل الاصدار 12 بدلا من 11 في 2003 ) أنظر الصورة:

post-10429-1181721794_thumb.jpg

- بالنسبة لشرح الشفرة فسوف أقوم بشرحها عند عودتي إلى المنزل ( هذه المشاركة من العمل ) والسبب هو أني قمت بالتعديل على المثال وهو في المنزل الآن.

أتمنى لك التوفيق

سلام

القحم

تم تعديل هذه المشاركة بواسطة القحم في 13 يونيو 2007 في 11:06

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

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

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

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

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

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