ناقل

اذا كانت المقاسات ثابتة وغير متغيرة .... ما يضر تحويل القاعدة mde

اقرأ الموضوع .....

هل هو ملصق ؟؟؟

تفضل ..... Dim msgstyle Dim DBOld As String Dim DBNew As String DBOld = Me.txtTAB1 'اختيار قاعدة بيانات الجداول DBNew = txtPathToExport 'اختيار مكان حفظ النسخة Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & DBNew & "\" & "DATA.accdb" & """", 0 MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية"

هل جربت مرفقي ام لا ....

تفضل جرب المرفق .... ناقل_22_1.mdb

طيب حلمك علينا .... ناخذها حبة حبة .... جرب كدة واعطينا ملاحظاتك وحدة وحدة ....حاول تضغط جديد ولاحظ !!! حذف من الفرعى.accdb

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

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

تفضل ....... رساله للمتسخدم.accdb

هل هذا ما تريدة ؟؟؟؟؟ ناقل_22.mdb

تفضل مثالك بعد التعديل ... جرب add new record.mdb

البحور ممكن نطلبة من شخص على بالي عزيز علينا وعلى المنتدى اول حرف من اسمه @jjafferr

نعم ممكن ...... طبعا اجابة عامة لسؤال عام !!!!!!!!!!!!!!!!!!!!!!!! ارفق مثال للنظر فيه ....

تريد طريقة الاشارة الى النموذج الفرعي من نموذج اخر .... صحيح .... يتم ذلك بالاشارة الى النموذج الرئسيي ثم الفرعي ثم نقل التركيز اليه 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

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

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