محمد طاهر عرفه

راجع هذا الموضوع فى أرشيف خلاصة المشاركات مع استبدال اسم مربع النص باسم الكومبو http://www.officena.net/ib/index.php?showtopic=1222

دع مصدر بيانات مربع التحرير الثاني بدون معيار ثم أضف المعيار بالكود فى حدث On Got Focus ثم أزله ثانية فى حدث On Lost Focus Private Sub ComboCityID_GotFocus() Me.ComboCityID.RowSource = "SELECT tblCities.lngCityID, tblCities.strCityName, tblCities.lngContID FROM tblCities WHERE (((tblCities.lngContID)=Forms!Frmlemployees!ComboContID)); " SendKeys "{Enter}" End Sub Private Sub ComboCityID_LostFocus() Me.ComboCityID.RowSource = "SELECT tblCities.lngCityID, tblCities.strCityName, tblCities.lngContID FROM tblCities; " End Sub CombocontiniousForm.rar

يرجي مراجعة قسم التقارير فى خلاصة مشاركات الاكسيس إختيار حقول و سجلات محددة للطباعة http://www.officena.net/ib/index.php?showtopic=2009 فتح تقرير بين تاريخين محددين علي نموذج http://www.officena.net/ib/index.php?showtopic=1893 طريقة طباعة سجلات بين تاريخين محددين http://www.officena.net/ib/index.php?showtopic=1459

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

هل ممكن تحويل قاعدة البيانات الى ملف تنفيذي EXE, عمل نسخة Setup للأكسيس http://www.officena.net/ib/index.php?showtopic=342&hl=

هذا يعتمد علي نسخة الاوفيس المحملة لديك فالتبديل بين اللغات فى واجهة الاستخدام فى نفس النسخة لم يعد متاحا في اكس بي و 2003

او حل آخر بدون وضع مجموع للنموذج و حساب المجموع مباشرة بدلا من قسمة محتويات مربعات النص الخاصة بالقيمة علي مربعات النص الموجودة فى التذييل و التي تحوي المجموع ضع الجملة التالية فى مربع حساب النسبة المئوية =[CountOfid]/Sum([CountOfid]) المثال بعد اضافة الطريقتان فى حساب النسبة : percentage.rar

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

موضوع مشابه به مثال http://www.officena.net/ib/index.php?showtopic=3856

أولا يرجي اتباع قواعد المشاركة من حيث عنوان الموضوع ( تم تعديل العنوان ) بالنسبة للسؤال راجع هذا الموضوع http://www.officena.net/ib/index.php?showtopic=3556 أيضا مرفق مثال علي ما تريد باستخدام جدول به قائمة بالموظفين و كود البلد لكل موظف مرتبط بجدول البلدان و عمل استعلام تجميع بالبلد يضم هذه المعلومات ، ثم اسنتنتاج النسبة فى النموذج المبني علي هذا الاستعلام عن طريق قسمة ما في مربع النص الخاص بالعدد من كل جنسية علي مجموع العدد فى تذييل النموذج تم تعديل المثال ، و اضافة طريقة أخري لحساب النسبة فى المشاركة التالية

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

للرفع

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

السلام عليكم اذا كانت المشكلة فى وجود البيانات فى أربعة جداول مختللفة ، فكما اتفقنا الافضل هو جدول واحد و به كود للاسبوع و من خلال هذا الكود يمكنك التعامل معها كما لو كانت أربعة اسابيع منفصلة بوضع معيار برقم الاسبوع - هذا بصفة عامة اما عن علاقة الوصف الاخير للمشكلة بموضوع الاختيار العشوائي للبيانات المنوه عنه فى بداية الموضوع ، فهو غير واضح بالنسبة لي ، و ارجو التوضيح أكثر لما تريد عمله و ما علاقته بكود اختيار رقم عشوائي أخيرا ، أرجو عدم توجيه السؤال لشخص بعينه ، تحقيقا لقواعد المشاركة أولا و حتي لا تحرم نفسك من اجابة أفضل ،

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

الكود باستخدام dao Sub DAOCopyFromRecordSet(DBFullName As String, TableName As String, _ FieldName As String, TargetRange As Range) ' Example: DAOCopyFromRecordSet "C:\FolderName\DataBaseName.mdb", _ "TableName", "FieldName", Range("C1") Dim db As Database, rs As Recordset Dim intColIndex As Integer Set TargetRange = TargetRange.Cells(1, 1) Set db = OpenDatabase(DBFullName) Set rs = db.OpenRecordset(TableName, dbOpenTable) ' all records 'Set rs = db.OpenRecordset("SELECT * FROM " & TableName & _ " WHERE " & FieldName & _ " = 'MyCriteria'", dbReadOnly) ' filter records ' write field names For intColIndex = 0 To rs.Fields.Count - 1 TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name Next ' write recordset TargetRange.Offset(1, 0).CopyFromRecordset rs Set rs = Nothing db.Close Set db = Nothing End Sub

الكود باستخدام DAO Sub DAOFromExcelToAccess() ' exports data from the active worksheet to a table in an Access database ' this procedure must be edited before use Dim db As Database, rs As Recordset, r As Long Set db = OpenDatabase("C:\FolderName\DataBaseName.mdb") ' open the database Set rs = db.OpenRecordset("TableName", dbOpenTable) ' get all records in a table r = 3 ' the start row in the worksheet Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("FieldName1") = Range("A" & r).Value .Fields("FieldName2") = Range("B" & r).Value .Fields("FieldNameN") = Range("C" & r).Value ' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing db.Close Set db = Nothing End Sub الموضوع الأصلي

لنفرض أن لدينا ملف قاعدة بيانات به جدول اسمه Table1 و به ثلاثة حقول m1,m2,m3 و أن ملف قاعدة البيانات اسمه و مساره كالتالي c:\1.mdb لتصدير البيانات الموجودة فى ورقة عمل اكسيل بدء من الصف الثالث الخلية A Sub ADOFromExcelToAccess() ' exports data from the active worksheet to a table in an Access database ' this procedure must be edited before use Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long ' connect to the Access database Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=C:\1.mdb;" ' open a recordset Set rs = New ADODB.Recordset rs.Open "Table1", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' all records in a table r = 3 ' the start row in the worksheet Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("m1") = Range("A" & r).Value .Fields("m2") = Range("B" & r).Value .Fields("m3") = Range("C" & r).Value ' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub الموضوع الأصلي

مشاركات ذات صلة فى خلاصة مشاركات الأكسيس - قسم ال VBA فكرة مسابقة مشكلة اختيار سجل عشوائي من حقل في جدول و فيه يتم الاختيار عشوائيا ثم تسجيل ما أختير فى حقل و هو نسخة مصغرة من المثال الاول اختيار رقم عشوائي و هذا هو المثال الذي تقصده و اذا أردت التعامل مع أكثر من جدول أو أكثر من حقل فيمكنك عمل استعلام توحيد بينها و بناء الاختيار عليه و ان كنت أظن أنه فى نسبة كبيرة من التصاميم ، اذا احتجت لذلك ، فأنه يكون هناك مشكلة فى التصميم و تحتاج مثلا لدمج هذه الجداول مع تفرقة بياناتها بكود اضافي مرفق نسخة أخري من المثال مع اضافة اظهار النتيجة فى مربع نص علي النموذج و قد تم فيها استبدال الاسماء العربية للجدول و الحقول و المتغيرات بأحرف انجليزية T,TT,TTTT علي التوالي منعا لمشاكل الكود ، و اضافة اغلاق مجموعة السجلات وقاعدة البيانات المعرفة فى نهاية الكود مع تحياتي ShowInForm.rar

تم اضافة الموضوع الي أرشيف الأكسيل - قسم ال VBA http://www.officena.net/ib/index.php?showt...view=getnewpost

Tips http://www.exceltip.com/exceltips.html Forum المنتدي http://www.excelforum.com/

هذا المثال لاستدعاء بيانات جدول معين من الاكسيس باستخدام ال ADO تأكد من وجود مرجع ADO معرف مرفق مثال و مضاف به الوصلة للصفحة الأصلية بموقع ExcelTips و يتم تحديد مسار القاعدة و اسم الجدول و مكان اللصق فى ورقة العمل Sub Getit() ADOImportFromAccessTable "E:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Northwind.mdb", _ "Products", Range("A1") End Sub Sub ADOImportFromAccessTable(DBFullName As String, _ TableName As String, TargetRange As Range) ' Example: ADOImportFromAccessTable "C:\FolderName\DataBaseName.mdb", _ "TableName", Range("C1") Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex As Integer Set TargetRange = TargetRange.Cells(1, 1) ' open the database Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ DBFullName & ";" Set rs = New ADODB.Recordset With rs ' open the recordset .Open TableName, cn, adOpenStatic, adLockOptimistic, adCmdTable ' all records '.Open "SELECT * FROM " & TableName & _ " WHERE [FieldName] = 'MyCriteria'", cn, , , adCmdText ' filter records 'RS2WS rs, TargetRange ' write data from the recordset to the worksheet ' optional approach for Excel 2000 or later (RS2WS is not necessary) For intColIndex = 0 To rs.Fields.Count - 1 ' the field names TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name Next TargetRange.Offset(1, 0).CopyFromRecordset rs ' the recordset data End With rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub ADO-getFromAccess.rar

أخي الكريم أنت حتي لم تنزل المثال الموجود فى الموضوع ( الصفحة الثانية ) http://www.officena.net/ib/index.php?act=A...pe=post&id=4381

اذا راجعي هذا الموضوع شرح الأخ انترنت ماستر السابق نشره فى الفريق العربي و له وصلة هنا فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=2714

أيضا راجع هذه المواضيع فى قسم خلاصة المشاركات تجاهل الهمزة1 تجاهل الهمزة2 فكرة بحث ذكية (Search) الحروف ( ة ه ا إ آ أ ي ى )