ناقل

تريد طريقة الاشارة الى النموذج الفرعي من نموذج اخر .... صحيح .... يتم ذلك بالاشارة الى النموذج الرئسيي ثم الفرعي ثم نقل التركيز اليه Forms![special]!special22.SetFocus

اتصل بصاحب البرنامج ....

استخدم هذا الكود ... Dim mydb As Database Dim rs As Recordset Dim rss As Recordset Dim str As String str = " [list] = '" & List20 & "'" Debug.Print List20 Set mydb = CurrentDb Set rs = mydb.OpenRecordset("analysis", dbOpenDynaset) rs.FindFirst str Forms![special]![special22]![Analysis] = rs.Fields(2) Forms![special]![special22]![normal] = rs.Fields(3) Forms![special]![special22]![Tam] = rs.Fields(4) Set rss = mydb.OpenRecordset("special-det") rss.AddNew rss.Update Me.special22.SetFocus SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}"

منكم تعلمنا استاذي الفاضل .... بارك الله فيك وفي اخلاقك النبيلة ..

تفضل ..... f (1).accdb Dim FileNum As Integer Dim msgstyle FileNum = FreeFile Open "D:\officena.txt" For Append As #1 Print #1, Forms!pay!f; "" Close FileNum MsgBox Space(20) & "تمت العملية بنجاح..تجد الملف باسم D:\officena" & Space(20), msgstyle, "للمعلومية"

تقصد تصدير بيانات الحقل الى ملف نصي ؟؟؟ صحيح ؟؟؟ طيب ممكن ترفق لنا مثال مصغر للعمل عليه ؟؟؟

ممكن شرح مطول !!!! ماذا تقصد بملف نصي من حقل؟؟؟؟

استبدل الكود بهذا Forms!navigation!NavigationSubform!Child14.Requery تفضل ملفك ..... البرنامج-aa (2).rar

ما هي الرسالة ؟؟؟

اذن : حاول تصغير الهوامش في اعدادات الصفحة .....

المشكلة في الطول ام العرض

هل تريد رسالة تحذير قبل الاضافة ؟؟؟ صحيح

تفضل ....... البرنامج-aa.rar

انظر ......

اين البرنامج !!

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

تريد التعديل في البيانات العلوية ام السفلية ؟؟؟

طيب نفضل .... جرب المرفق ..... ناقل_1.accdb

تريدها نظام ملصقات .... هل هذا التوزيع هو المطلوب ؟؟؟؟

جرب هذا المرفق ..... العلاج.accdb

تفضل ..... ناقل_1.accdb

اولا : عليكم السلام ثانيا : حياك الله في المنتدى ثالثا : هل تريد طباعة هذه الارقام على تقرير يعني مثلا كنبت في المسج 1-5 ..... تقوم الطابعة بطباعة خمس تقارير مرقمة التقرير 1 ... التقرير2 ... التقرير3 ... التقرير4 ... التقرير5 صحيح

لمعرفة عدد السجلات بالاعتماد على حقل ضع =Count([id]) حيث اسم الحقل id لمعرفة عدد السجلات من غيرالاعتماد على حقل ضع =Count(*) ان لم تجد نتيجة ...... ارفق النموذج الذي به المشكلة

طيب .... اكتب لنا كيف كتبت الدالة ؟؟؟