صالح حمادي

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

بارك الله في السائل و المجيب و كل من شارك

يوجد برنامج طابعة افتراضية اسمه ImagePrinter Pro يمكنك من اختيار اي حجم تريد و يعطيك إمكانية طباعة التقرير على شكل صورة حمل البرنامج نسخة تجريبية من هنا http://www.01net.com/telecharger/windows/Utilitaire/imprimantes/fiches/108437.html

من المفروض هذا يقبل من أي ملف و قد جربت ذلك

في هذه الحالة تستطيع تغيير حجم التقرير حسب الطابعة التي لديك

ما هو نوع الورق أو حجمه الذي تريد الطباعة عليه

الآن فهمت قصدك. لاحظ معي جيدا: 1- لا يمكنك تحديد طول و عرض التقرير في الأكسس. 2- يمكنك اختيار حجم الورقة فقط حسب الأحجام المخصصة لذلك A4 و A5 و A3 .... وغيرها 3- بالنسبة للأحجام المخصصة هي متعلقة بنوع الطابعة فهناك طابعات إفتراضية تعطيك إمكانية تحديد حجم التقرير. 4- طريقة تحديد نوع حجم الورقة بالكود هي كالتالي: Me.Printer.PaperSize = acPRPSA5 بحيث acPRPSA5 هي ورقة A5 و acPRPSA4 هي و رقة A4 و هكذا. و يمكنك الإستفادت من هذا الموضوع:

السلام عليكم إطلع على هذا الموضوع إن شاء الله تجد به الحل

الحمد لله حبيبي من لا يذكر فضل الناس لا يذكر فضل الله أنا في كل مجلس و أي شخص يسألني كيف تعلم الأكسس أخبرهم بأن صديقي الوزير هو من فتح لي أبواب الأكسس فمن هنا أشكرك مجددا على كل شيء أستاذي العزيز

آمين يا رب العالمين و إن شاء الله أجمعين فقط إريد أن أنوه إلى شيء و هو كثر الإقتباس فالرجاء عند إقتباس مشاركة عدم إقتباسها كاملة و الإكتفاء بإقتباس الأسطر التي تريد الرد عليها مثلما فعل صديقي العزيز @AlwaZeeR لكي لا تطول المشاركة أكثر من اللازم.

الحمد لله الذي أنعم علينا و منا علينا بالحل الصواب

السلام عليكم هذا الكود المستعمل: On Error Resume Next Dim Rs As DAO.Recordset Set Rs = Forms!frm_ajrd!SubSales.Form.RecordsetClone Dim Rc As Integer, x As Integer x = 0 Rc = Rs.RecordCount If Rc > 0 Then Rs.MoveFirst Do Until Rs.EOF If Rs!Rajmsanf = Rajmsanf Then Rs.Edit Rs!Alkmiah = Rs!Alkmiah + Alkmiah Rs.Update Rajmsanf = Null Alkmiah = Null Exit Sub End If Rs.MoveNext Loop End If Rs.AddNew Rs!Rajmsanf = Rajmsanf Rs!Alkmiah = Alkmiah Rs!äæÚåÇ = "ÇáÌÑÏ" Rs!Almwka = Almwka Rs.Update Rajmsanf = Null Almwka = Null Alkmiah = Null Undo و هذا المرفق بعد التعديل إن شاء الله يعجبك الحل. 777799.rar

آه كم أنت محظوظ أخي ابوزاهر لأن موضوعك دخل في أحد عمالقة الأكسس @AlwaZeeR

هذا سهل و إن شاء الله الحل عندي أصلي المغرب في المسجد و أعود

السلام عليكم من المعروف أن وحدة القياس في كائنات الأكسس هي Twip و كل 1 سنتيمتر يساوي 566.9291338583 تويب لذلك استعمل الشكل التالي: h*566.9291338583 بحيث h هو الطول بالسنتيمتر

استعمل خاصية البحث في المنتدى سوف تجد العديد من المواضيع حول جلب الصورة من الماسح الضوئي

السلام عليكم تفضل التعديل أخي الكريم و هذا هو الكود المستخدم: On Error Resume Next Dim strpath As String Dim PathImg As String strpath = CurrentProject.Path & "\Scans\StPic" If Len(Dir(strpath, vbDirectory)) = 0 Then MkDir (strpath) End If Dim fpath As Variant With Application.FileDialog(3) .Title = "اختر صورة الشخص" .Filters.Clear .Filters.Add "صورة", "*.jpg" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then PathImg = .SelectedItems(1) End If End With FileCopy PathImg, strpath & "\Pic" & Me.txt_StID & ".jpg" Me.St_Pic = strpath & "\Pic" & Me.txt_StID & ".jpg" Desktop.rar

السلام عليكم بعد إذنك أخي ابو ياسين تعديل بسيط على الكود الذي استعملته: With Application.Forms For i = .Count - 1 To 0 Step -1 With .Item(i) If .NAME <> "nam" Then DoCmd.Close acForm, .NAME End If End With Next i End With

تفضل ملفك و به المطلوب 899999999999999999999999.rar

يجب تترك مكان اسم النموذج في display form فارغا

شكرا جزيلا أخي الكريم

أخي يجب عليك أن تضع عنوان مناسب لطلبك و تشرح المطلوب بالتفصيل حتى يستطيع الشباب مساعدتك موضوع مخالف يغلق

السلام عليكم أولا: في النموذج أنت لم تضع مصدر مربع النص حقل معين بل وضعت دالة تستند لقيمة أخرى ثانيا: في التقرير وضعت مصدر مربع النص الحقل stage و لما نرجع للجدول نجد أن هذا الحقل فارغ يجب عليك توحيد مصدر مربع النص لتحصل على نفس النتيجة

ربما تستطيع عملها بإستعمال برنامج cameyo

الحمد لله الذي تتم بنعمته الصالحات هل نستطيع أن نقول أننا توصلنا للحل