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

ادراج بيانات من النموذج الفرعى بالكود

بدأه rabiemohamed في 21 يناير 2013 · 7 رد · 766 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

 

استخدم ادراج بيانات النموذج الرئيسى بالكود واريد ايضا ان يتم ادراج بيانات النموذج الفرعى ولكن هناك مشكلة انه لايدرج بيانات النموذج الفرعى

 

DoCmd.RunSQL "insert into isalat ([isal_date],[isal_amount])values([isalDATE],[Text8])"

DoCmd.RunSQL "insert into isalat_detalies([isal_number],[discrabion])values([[Forms]![ezn_barcode]![Ezan_Header]![Ezen_Deatlies].[Form]![Text16]],[[Forms]![ezn_barcode]![Ezan_Header]![Ezen_Deatlies].[Form]![discrabion]])"
 

#2

اخي الكريم 

الافضل وضع مرفق ليتم العمل عليه 

حسابي على الفيسبوك

 

حسابي على التويتـــر

 

صفحتي الشخصية في منتدى أوفيسنا

 

اعذروني ففي الفترة القادمة سيكون تواجدي في المنتدى ضيق جداً وذلك للانشغال في دورة لمدة 6 شهور بعد الدوام

#3

انا تقريبا وصلت للحل وهو 

 

Dim aa As Integer

aa = Me.Text21

DoCmd.SetWarnings False

For i = 0 To aa

DoCmd.RunSQL "insert into isalat_detalies([isalNO][empid])values(" & Me![Ezen_Deatlies].Form![Text16] & "," & Me![Ezen_Deatlies].Form![Text15] & ")"

DoCmd.RunCommand acCmdRecordsGoToNext

Next i

DoCmd.SetWarnings True

ولكن قابلتنى مشكلة اخرى انه هناك حقل قد يكون بياناته فارغة فلا يتم ادراج السجل كله هذا بالاضافة الى انه لا يدرج كل السجلات فى حالة وجود بيانات 

#4

?

#5

ممكن حضرتك ترفق مثال للتوضيح لأنى مهتم بالطريقة

#6

اضف للحقل الفارغ nz مثل التالي

nz(text21

طبعا اغلق القوس وبالتوفيق

"قال رب اشرح لي صدري *ويسر لي امري*واحلل عقدة من لساني يفقهوا قولي" سورة طه
اللهم صل على سيدنا محمد وعلى آل سيدنا محمد

http://rasoulallah.net/index.php/ar

#7

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

#8

اخي الفاضل

 

حاول تجربة هذا الكود بعد التعديل

 

 

Dim i As Integer
Dim strSQL As String
For i = 0 To aa
strSQL = ("INSERT INTO isalat_detalies ([isalNO] , [empid]) VALUES (" & Me![Ezen_Deatlies].Form![Text16] & i "," & Me![Ezen_Deatlies].Form![Text15] & i ")")
CurrentDb.Execute strSQL, dbFailOnError
Next
 
 
اذا تمت الإجابه على السؤال فلا تنسى الضغط على ( أفضل إجابة )
 
بالتوفيق
1

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

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

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

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

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

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