Jafar121

للرفع

لا اله الا أنت سبحانك .. اني كنت من الظالمين

عزيزي

شكرا جزيلا لردكم الكريم

وكل عام وأنتم بخير

جميع المسميات باللغة الانجليزية

عزيزي

شكرا جزيلا لردكم الكريم

وكل عام وأنتم بخير

جميع المسميات باللغة الانجليزية

السلام عليكم ورحمة الله وبركاته

قمت بعمل برنامج أكسس من خلال الاصدار 2003

يعمل البرنامج جيدا

ولكن عند فتحه في كمبيوتر يحمل الاصدار أوفيس 2013

صحيح أن البرنامج يعمل

ولكن تحدث بعض الأخطاء وخاصة في عملية التصفية

اذا يظهر لي مكان مربع الأسماء العبارة

?name

هل من حل لهذه المشكلة

وشكرا

الحمد لله على رجوع المنتدى الغالي على قلوبنا من جديد

للرفع

وأتمنى أن أجد حلا لسؤالي

السلام عليكم ورحمة الله وبركاته

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

odbc database

عندما استخدم الدالة

applyfilter

على متغير باللغة الانجليزية يعطي ناتج صحيح

أما عند استخدامه على متغير باللغة العربية فيعطي الناتج خالي

هل من صادفه نفس المشكلة

وما الحل

للرفع وكسب الأجر

الصورة ليست لها علاقة بالبرنامج

ما وضعته هو صورة من متصفح كروم 

لصفحة تعرض النتيجة رقم

ما أريده هو استخلاص الرقم الى برنامج اكسس

وشكرا لك

السلام عليكم ورحمة الله ويركاته

اخواني وأعزائي الكرام

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

سؤالي :

عندي موقع ويب يظهر نتيجة رقم فقط

المطلوب : وضع هذه القيمة المعطاة في مربع نص

تجدون مرفقا بما أقصد في الصورة التي تظهر الرقم في داخلها

ولكم جزيل الشكر

شكرا جزيلا

تم حل المشكلة

تحياتي لك عزيزي " آخر الأرض"

جزاك الله كل الخير أخي الفاضل

مشكلتي الآن انحصرت فقط في عدم استطاعتي ارسال الرسالة باللغة العربية

عند ارسالها تكون الحروف مبهمة

الذي عملته أنا فقط استبدال الموقع الذي ارسل منه الرسائل مع موقع بتلكو

والموقع الذي أرسل منه هو التالي

https://www.bahrainsms.net/api/?username=&password=&sms=HelloWorld&mobile=&binary=0

مع العلم أنه في موقعهم مكتوب أنك  اذا وضعت

binary = 0

للغة الانجليزية

binary=1

للغة العربية

قمت بتجربة ذلك فلم تنجح الطريقة

جزاك الله أخي (  آخر الأرض ) خير الجزاء ورحم الله والديك في الدنيا والآخرة

أخواني الأفاضل

عندي سؤال مهم بالنسبة لي

هل يستطيع أحدكم أحبائي تحويل الكود التالي الى كود الأكسس 

Imports System.Net

Imports System.IO

Public Class Form1

Private Sub

Send_SMS(ByVal sender As Object, ByVal phonenumber As Object, ByVal msg As Object, ByVal dc As Object)

Dim client As WebClient = New WebClient

Dim username = "USERNAME"

Dim password = "GENERATED_PASSWORD"

Dim baseurl As String = "https://put here website =" + phonenumber + "&sender=" + sender + "&sms=" + msg + "&binary=" + dc + "&username=" + username + "&password=" + password

Dim data As Stream = client.OpenRead(baseurl)

Dim reader As StreamReader = New StreamReader(data)

Dim s As String = reader.ReadToEnd()

'MsgBox(s)

data.Close()

reader.Close()

End Sub

End Class

أتمنى من كل قلبي أن أجد الحل

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

وله وكل من يساعد دعوة مني بأن يوفقه الله وأن يرحم والديه

اشكركم اخواني على مساعدتكم لي

أحاول هذه الأيام تعلم ارسال ايميل عن طريق الأكسس

ولكن السؤال الذي يدور ببالي : هل يمكن ارسال سجل من نموذج الى الايميل المرافق له

السؤال يتكرر : عندي نموذج به كل سجل يحوي

اسم الطالب

ايميل ولي الأمر

درجات العربي

درجات الدين

درجات الانجليزي

وهكذا

هل يمكن ارسال ايميل الى ولي أمر كل طالب بدرجات ابنه

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

النجم سهيل تحية طيبة

مرحبا بك بين اخوانك

الأخ Jafar121

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

ولأن التطبيقات والتعديلات التي يقوم بها هؤلاء العباقرة تتم على الأكواد وحيث يصعب تطبيقها على الأغلبية

فقد قام الاستاذ العبقري مفرج ـ جزاه الله خيرا وفرج همه في الدنيا والآخرة ـ بتطبيق هذا الكود ووضعه في مثال حتى يستفيد منه متوسطي الخبرة أمثالي . فإليك المثال ولاحظ التقرير الذي سيدمج مع الرسالة فيمكنك التعديل عليه.

تحياتي ،،،

masmailer.rar

اشكرك أخي على تفضلك بالرد على سؤالي

قمت بدراسة الملف الذي أرسلته وفهمت منه بعض الأشياء الخفيفة

الايميل لكل طالب في النموذج نفسه وليس في نموذج آخر

المطلوب ارسال ايميل لكل طالب بدرجاته

أي ان البرنامج يرسل ايميل للطالب ثم الطالب التالي وهكذا

أمنياتي أن أجد الحل منكم

ولكم خالص التحيات

السلام عليكم

لدينا من الإخوة متخصصين في هذا الشأن ولهم مشاركات في أكثر من منتدى في هذا المجال وهم أعلام والكل يعرفهم

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

مرفق الملف ولك الشكر مقدماً

السلام عليكم ،،

الطريقة سهلة جدا ..

وتتم من خلال برنامج اكسس 2007 ومايكرسوفت آوت لوك Microsoft Office Outlook 2007

والاكسبرس ما اعتقد تضبط وياه ..

على العموم ..

تجد في الرابط التالي الطريقة بالتفصيل :

http://office.microsoft.com/en-us/access/ha100154271033.aspx

وفي الرابط التالي شرح بالفيديو :

http://www.microsoft.com/downloads/details.aspx?FamilyId=618891E8-7145-44C8-9E40-82218B1E8DF7&displaylang=en

أخي أشكرك على اهتمامك ولكن الأوفيس عندي 2003 ولم أستفد شيئاً من ذلك

email.rar

للرفع وكسب الأجر

السلام عليكم ورحمة الله وبركاته

محتاج مساعدة في ارسال رسائل بريد الكترونية ولكم جزيل الشكر

قمت بضبط برنامج أوتلوك اكسبرس

عندي نموذج يحوي كل سجل فيه على ما يلي :

اسم الطالب

درجاته

ايميل ولي الأمر

المطلوب عمل زر : عند الضغط عليه يرسل كل سجل الى ايميل ولي الأمر

وفق الله الجميع

والسلام عليكم ورحمة الله وبركاته

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

فانه عند فتح الملف تظهر رسالة للمستخدم تفيد بأن الملف قد لا يكون آمناً لأنه يحتوي على تعليمات برمجية

ومن المعروف كذلك لأنه لجعل هذه الرسالة لا تظهر مستقبلاً فانه يجب وضع الأمان للمايكرو على منخفض

سؤالي الآن : أقوم لاعداد بعض البرامج وعندما أعطي هذا البرنامج لأصدقائي يخبروني بأنه تظهر لهم الرسالة أعلاه

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

أرجو أن أجد عندكم حلاً ولكم خالص شكري وتقديري لهذا المنتدى العملاق

بارك الله فيك أخي على هذه الايضاحات والاجابة التامة

وفقك ربي وحفظك

السلام عليكم ورحمة الله وبركاته "

سؤالي : ما طريقة ربط جدول في قاعدة بيانات عليها رقم سري الى قاعدة بيانات أخرى عن طريق Vba

توضيح سؤالي :

عندي قاعدة بيانات 1 عليها رقم سري هو 123 :و تحوي جدول يسمى data

وقاعدة بيانات 2 : لا تحوي مثلاً أي جدول

المطلوب : ربط جدول data الى قاعدة بيانات 2 بدون ان يسأل البرنامج عن الرقم السري أي البرنامج يضعه تلقائياً

أو حتى اذا كانت صعوبة في الربط حتى النسخ

ولكم جزيل الشكر والتقدير .

عافاك الله وغفر لك

لم تنجح معي المشاركة الأولى

هل يمكن أنه بسبب أن لغة لوحة المفاتيح كانت تشير الى الكتابة باللغة الانجليزية

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

وأظن أن هذا الكود لن يعمل في حالة اخفاء شريط القوائم بطريقة ما .

الملف الأخير نجح معي وتمت العملبة بنجاح بدون مشاكل

فهل بمكن استعماله في أي ملف أكسس .. أم يختلف باختلاف النسخة العربية أو الانجليزية

هل يمكن أن نفيدني في ذلك

مع شكري ونقديري

هل هذا هو الكود

With CommandBars.Add(, 1, , True)

.Controls.Add 1, 2071, , , True

.Visible = True

.Controls(1).SetFocus

DoEvents

SendKeys "~"

End With

والشكر ختام

الشكر لك أخي على ردك السريع

الزر صحيح يعمل ولكنه لا يعمل المطلوب

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

ونرى أن حجم ملف الأكسس قد صغر الى حد كبير

شاكراً لك تواصلك ودمت بخير

لم افهم الزر يعمل ولكنة لا يعمل المطلوب

انظر المرفق

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

الآن أصبحت تعمل بشكل مناسب وجميل

اسأل الله لك التوفيق والصحة والعافية

اذا امكن وان لم يكن هناك تعب عليك .. فأنا السائل وأتشرف بردك على سؤالي الأخير

أنا رايت الأكواد في vb

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

أرجو أن تكتب لي الكود ولك جزيل شكري واحترامي لشخصك الكريم

ودمت بخير

الشكر لك أخي على ردك السريع

الزر صحيح يعمل ولكنه لا يعمل المطلوب

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

ونرى أن حجم ملف الأكسس قد صغر الى حد كبير

شاكراً لك تواصلك ودمت بخير

شكراً لك أخي

ولكن هذا لا يعمل ما أردت

أريد زر يعمل على ضغط قاعدة البيانات واصلاحها

لم أرى أي نتيجة من ملفك

أنتظر الحل بأسرع وقت ولكم الأجر والثواب

اخواني الأعزاء

يشهد الله أني قد استفدت من هذا المنتدى استفادة كبيرة ، والله على ما أقول شهيد

عندي استفسار يهمني :

هل يمكنني انشاء زر عن طريقه يمكن ضغط قاعدة البيانات واصلاحها؟

طريقة ضغط قاعدة البيانات واصلاحها سهلة من خلال قوائم الأكسس :

أدوات - أدوات مساعدة لقواعد البيانات - ضغط قاعدة بيانات واصلاحها .

أريد طريقة وضع ذلك عن طريق زر

ولكم جزيل الشكر والتقدير