Abdulkader 7

اخي الكريم المشكلة لا يوجد شبكة وادخال البيانات على اكثر من حاسب و كل حاسب في منطقة بعيدة . المشكلة التي اريد حلها . هي كالتالي . عندما يتم ادخال البيانات على الجهاز الثاني او الفرعي ... مثلاُ ادخلنا البيانات 1-احمد 2-خالد 3-جاسم وقمنا بنقلها على قاعدة البيانات الرئيسية عن طريق الاستعلام .. بعد فترة قمنا بادخال بيانات اضافية على قاعدة البيانات الفرعية فاصبحت على الشكل الثالي 1-احمد 2-خالد 3-جاسم 4- عمر الجديد في البيانات هو "4-عمر" فا عند نقل البيانات مرة اخرى الى قاعدة البيانات الرئيسية فان الترقيم التلقائي لايعطي تلسلسل صحيح بسبب التكرار في البيانات .. مع العلم ان وضعت شرط عدم التكرار لكن رغم هذا الشي يصير عندي خطا ؟؟؟ فمثلاً في المرة الاولى عندما ادخلنا البيانات من قاعدة البيانات الفرعية الى الرئيسية كانت ثلاث بيانات فا اصبح التسلسل على الشكل التالي 1-احمد 2-خالد 3-جاسم .... في المرة الثانية لما اعدنا ادخال البيانات اصحبت بهذا التسلسل ... 1-احمد 2-خالد 3-جاسم 7-عمر ارجو تجربة كلامي بشكل عملي لكي تلاحظ ماذا يحدث ... اريد طريقة لكي احافظ على الترقيم التلقائي او طريقة لعدم نقل البيانات التي تم نقلها سابقاً من قاعدة بيانات فرعية الى رئيسية .. او برمجية تقوم بنقل البيانات من من جداول نموذج الى جداول نموذج اخر مع الحفاظ على الترقيم التلقائي للبيانات الاساسية

السلام عليكم لدي قاعدة بيانات الاولى تسمى Base و هي الرئيسية و قاعدة بيانات ثانية و اسمها Client و هي فرعية المطلوب : عند ادخال البيانات على على قاعدة البيانات الرئيسية فان البيانات تاخذ ترقيم تلقائي على سبيل المثال 1 2 3 في قاعدة البيانات الثانية ايضاً ادخلنا بيانات واخذت االترقيم التلقائي 1 2 3 انا ادخلت على قاعدة البيانات الفرعية استعلام الحاق ,, يقوم بالحاق البيانات على قاعدة البيانات الرئيسية فحصلت لدي مشكلة وهي عدم انتظام الترقيم التلقائي وذلك بسبب تكرار بعض البيانات فان الترقيم التلقائي يقفز عدة ارقام ... بسبب التكرار . فما الحل لنقل البيانات من جدول في قاعدة البيانات الفرعية الى قاعدة بيانات الرئيسية مع حل مشكلة الترقيم التلقائي نقل البيانات بدون تكرار.. ولكم كل الشكر .. مرفق مثال بسيط يوضح المشكلة . ملاحظة ارجو وضع الملفين في القرص D بسبب تحديد مسار الملف في الاستعلام مرفق صورة توضيح Base-1.zip

شكراً لك استاذي الكريم على الفائدة وجعلها الله في ميزان حسناتك .... تقبل تحياتي .....

السلام عليكم اخواني لدي مربع نص في نموذج اكسس عندما اقوم بتعيين خاصية عنصر التحكم الى الارقام واقوم بادخال البيانات اليه يحذف الصفر من بادية الرقم ما هو الحال لهذه المشكلة مثال : 09856552 تصبح على الشكل التالي : 9856552 اريد ان لا يحف الصفر بالاضافة الى ذلك اريد اذا عينت خاصية عنصر التحكم الى نص .... اصبح بهذه الحالة يقبل ارقام ونص اريد كود ليجعله لا يقبل الا ارقام ... حتى ولو كانت خاصية عنصر التحكم نص فاذا قام المستخدم بادخال نص يظهر رسالة ( هنا يتم ادخال ارقام فقط )) مرفق للرفع والتعديل من معلمينا ..... قاعدة بيانات3.zip

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

السلام عليكم .... اخواني لدي قاعدة بيانات تحتوي على جدول database وفيها الحقول التالية A B C وجدول مرتبط بعلاقة اسمه T_1 يحتوي على حقول D E F الحقل A ترقيم تلقائي - ومفتاح اساسي قاعدة البيانات هذه يتم ادخال البيانات اليها من اكثر من جهة منفصلة ..... دون شبكة .... ما اريده هو كيف اضيف البيانات التي يسجلها المستخدمين الاخرين الى قاعدة البيانات الرئيسية بحيث الترقيم التلقائي يعتبرها سجل جديد دون ان يتحسس من المفتاح الاساسي .. A وهو ترقيم تلقائي ...... يعني قاعدة البيانات نفسها موجود على اكثر من حاسب ولا يوجد شبكة بينهم .... ولدي احد الاجهزة اعتبره رئيسي ... فاريد ان اجمع البيانات من باقي المستخدمين على الجهاز الرئيسي بحيث يضيف البيانات على انها سجل جديد ..... يعني لو السجل اخذ الرقم 1 في الحاسب الفرعي .... وانا قجد قمت بادخال سجل على الجهاز الرئيسي اخذ الرقم 1 ايضاً اريد عند سحب هذا السجل من الحاسب الفرعي ان يضيفها على الرئيسي وتاخذ الرقم 2 بدل 1 طبعا قاعدة البيانات نفسها لدى المستخدم ولدى المدير ..... لا يوجد مرفق ...لانني لم استطع رفعه الى المنتدى ارجو تاييد كلامي بمثال ومرفق ... للرفع جزاكم الله خير

انشاء الله اخي .... ممكن نتواصل على الهوتميل abd-19891989@hotmail.com

السلام عليكم اخي بخصوص هذه المشكلة ... بسيطة جداً يوجد نسخة من اوفيس 2003 مطورة SP3 نصبها على الجهاز وتواصل معي على سكايب وانشاء الله الامور محلولة وعند الوصول للنتيجة سوف سوف نضع الحل في المنتدى والافضل ان نتواصل عن طريق برنامج teamviewr والله ولي التوفيق نسخة الاوفيس المطلوبة : Microsoft Office 2003 Sp3 وهذا السكايب الخاص بي ( abd-19001900 )

السلام عليكم اخواني الاعزاء لدي طلب تعديل على مرفق المطلوب : لدي في النموذج مربع نص باسم ( نص البحث ) واضع فيه رقم السجل المراد البحث عنه والذي اريده هو عند الضفط على زر ( بحث عن السجل ) يظهر لي البيانات وهذا الامر لدي يعمل بشكل سليم ولكن المشكلة ليست هنا المشكلة هيا عندما اضغط على بحث ولا يوجد سجل بهذا الرقم يظهر لي رسالة عدم وجود بيانات هذا الطلب رقم واحد ام الطلب الاخر فاريد عند فتح هذا النموذج لا يظهر بيانات الا عند الضغط على بحث عن السجل بالاضافة الى ان قد وضعت زر اسمه ( جديد ) اريد عند الضغط عليه يصفي النموذج يعني اذا كان ضاهر لي بيانات قد بحثت عنها اريد ان يعيد النموذج وضعية لا يوجد بيانات بدون التاثير على السجل او حذفة بشكل اوضح لدي سجل بحثت عنه فظهرت لي بياناته اريد عن الضغط على جديد يظهر لي النموذج فارغ وليس فيه بيانات من اجل البحث عن سجل اخر مع الاخذ بعين الاعتبار على عدم التاثير على السجل الحالي مع مرفق (( والله من وراء القصد )) Search_Edit.rar

طيب اذا كان هذا العدد متغير يعني مرة يكون العدد الاول اكبر ومرة يكون العدد الثاني اكبر فما هو الحل

السلام عليكم لدي في النموذج المرفق اربعة مربعات نص وهي 1- ID 2- Name 3- Number 4- Notes 5- ولدي مربع نص مكتوب فوقه ( نص البحث ) المطلوب : عند وضع اي في مربع النص المسمى ( نص البحث ) اريد ان يبحث عنه في الجدول في الحقل ( ID ) ويظهر السجلات التابعة له ولكن بشرط عندما تكون القيمة في مبع النص المسمى Number غيرفارغة يعطي رسالة بان السجل جاهر واذا لم يكن فارغ لا يعطي شيء الفكرة الرئيسية هي البحث عن السجل عن طريق الحقل ( ID ) وهو رقم مسلسل Search_ID.rar

السلام عليكم اخواني الاعزاء لدي مشكلة وهي : الجدول : Tabb لدي حقلين الاول : A ولدي الحقل الثاني: B لدي حقل ثالث : C عندما اقوم بطر العدد الموجود في الحقل B الذي تكون قيمته اكبر من قيمة الحقل A يظهر لي النتيجة في الحقل C ولكن القيمة الرقمية بجانبها اشارة ( - ) مثال الحقل الاول ( 10 ) والحقل الثاني ( 20 ) تظهر النتيجة في الحقل الثالث (10-) فما هو العمل لالغاء هذه الاشارة حتى لو كانت العملية بالعكس والقصد اريد ان لا تظهر الاشارة نهائيا وسؤال اخر يتبع لنفس الموضوع هل هناك طريقة بالكود تقوم بوضع النتيجة في الحقل الثالث ( C ) بمجرد كتابة اي قيمة في الحقل B دون ضغط انتر او عداد وقت

شكرا اخي الكريم على الرد وسعة صدرك (( تمت الاجابة )) اما بخصوص القراءة فاقصد ان لدي الكوم بورت عندما يرسل معلومات يعطيني كثير من المحارف التي لا اريدها فاريد قراءة الذي يخدمني في عملي وهو الوزن

نقل بيانات من تكست بوكس الى آخر مع حذف كلمات زائدة + نموذج مرفق السلام عليكم ورحمة الله وبركاته اهل الخبرة لدي النموذج المرفق يوجد فيه صندوق النص ( Text1 ) وصندوق النص ( Text ) لدي في صندوق النص ( Text1 ) تضاف بيانات الوزن الماخوذة من القبان وهي على الشكل التالي 72013 W4 000000kg اريد من هذا القيمة ان تنقل مباشر الى صندوق النص ( Text ) مع حذف الزيادات والزيادات هي ( الرقم : 72013 ) و ( W4 ) وكلمة ( Kg ) يعني يظهر لدي في صندوق النص ( 000000 ) ستة اصفار التي تسبق كلمة Kg لانه بهذه الحالة اصبح رقم قابل للطره او العملية الحسابية مثال : تكون ( 72013 W4 000000kg ) تصبح هكذا ( 000000 ) اي اريد القيمة الرقمية مع العلم ان قيمة text تتغير مباشر مع تغير القيمة في text1 ولاخذ العلم يوجد عينة في الجدول من القيمة الرقمية للقبان وهناك توضيح في النموذج للمطلوب اكثر ولكن قبل ان انهي طلبي اذا كان هناك من اهل الخبرة من يعرف كيف يقرا الارقام من سيريال كوم بورت يفيدنا بذلك واقصد هنا تحديد المحارف المطلوبة والله من وراء القصد TextBoxCom.rar

السلام عليكم اخواني انا بحاجة الى تعديل النموذج المرفق من اهل الخبرة المطلوب ما يلي : لدي حقول متعددة وهي رقم الادخال ( مسلسل ) واسم السائق وتاريخ الدخول والخروج ورقم السيارة ...... الخ ولدي ايضا ازرار اختيار اريد عندما يحدد المستخدم زر الاختيار يظهر له النتائج في اليست بوكس حسب الاختيار مثلا ممكن ان يحدد زر الاختيار لاسم السائق ورقم الدخول ورقم السيارة اريد من ان يصفي البحث حسب ما حدد المستخدم وبالنسبة لزر الطباعة اريد ان يطبع النتائج الظاهرة في اليست بوكس فقط اي نتائج تصفية البحث والله من وراء القصد ODBE.rar

السلام عليكم اخواني الكرام لدي عدة اسئلة في قاعدة البيانات التالية 1- لدي النموذج المسمى Frm_Input__A يوجد فيه ثلاث خيارات وهي (1- جديد 2- حفظ 3- طباعة ) اريد بعد تعبئة البيانات ان لا يقوم بالحفظ الابعد ملئ جميع البيانات في هذه الحالة يكون زر الطباعة غير مفعل اريده ان يفعل بعد الحفظ وان لا يقبل الاكسس الضغط على زر جديد لاضافة بيانات جديد الا بعد الطباعة 2- لدي النموذح المسمى Frm_Output_B ( يوجد فيه مربع نص مسمى رقم الادخال هنا اريد عندما يضع المستخدم رقم الادخال يعرضه الاكسس في الاسفل لان الرقم هو رقم متسلسل يعني يعرض الارقام لهذا المسلسل وفي حال الرقم خطا يعطيه الاكسس خطا وهو بان الرقم غير موجود ويعيد التركير الى الحقل نفسه 3- لدي النموذج المسمى ReporterList ( اريد منه تصفيه البيانات حسب الشروط التي تحدد في النموذج مثال : اذا قمت بتحديد العنصر ( رقم الادخال ) وحدد العنصر ( رقم السيارة ) المطلوب ان يسرد لي البيانات في مربع القائمة حسب رقم الادخال الذي اعطيته ورقم السيارة . (( والاهم بعد سرد البيانات التي قمت بتحديدها ان يقوم بطبعها هي فقط )) والله من وراء القصد حقيقة اخواني انا مظطر على هذا الموضوع بشكل كبير وارجو من من لديه الخبرى ان لا يبخل بالتعديل ODBE.rar

اخي الكريم يبدو ان لديك منفذ الكوم مشغول مع جهاز اخر او لا يوجد منفذ كوم بورت في الجهاز وارجو االتاكد من الخطوات التي قمت بشرحها سابقاً وسوف اتبع الموضوع معك لان الرسالة الضاهرة لديك تفيد بانه الفيجوال بيسك اكسس غير قادر على الربط مع منفذ الكوم او احتمال اخر وهو الاغلب ان الاداة الخاصة بالربط لم تقم بنسخها الى العنوان التالي c:\windows\system32\ ثم تقوم بتشغيل اداة التسجيل في مسجل قيم النظام وهي في المرفقات ومنتظر ردك لكن لا تنسى تشغيل الملف المرفق المسمى Reg_11 ______________________ ((( Syria ))))__________________________ Reg_Objects.rar

االسلام عليكم اخواني بالنسبة لربط الاكسل بالسيريال كوم بورت كتالي اانسخ الملف المرفق المسمى MSCOMM32.OCX الى العنوان التالي : C:\Windows\System\MSCOMM32.OCX وقم بعد ذلك بتشغيل ملف التسجيل اصبح لدينا الان اداة نقل بيانات فعالة بعد ذلك نذهب الى اكسل Open up a new Excel workbook. Make sure you can see the 'Control Toolbox (View>>>Toolbars>>>Control Toolbox). Rename your worksheet 'SerialPort'. Once you can see the toolbox- there should be a little toolbox icon. Click the icon and select 'Microsoft Communication Control' from the list. The cursor will change, allowing you to draw a box on the worksheet. This is the control. It does not matter where you place it - as when you open the workbook this will not be visible to the user. Once you have created the control, right-click and select 'View Code'. You should see something like - Private Sub MSComm1_OnComm() End Sub This is the 'OnComm' event and tells excel what to do when data is received from the serial port. We will come back to this later. Lets write some code to open a port up.... Insert the following into a new sub under the OnComm sub - Sub OpenPort() 'Open the COM Port with the relevant settings Worksheets("SerialPort").MSComm1.CommPort = 1 Worksheets("SerialPort").MSComm1.Settings = "9600,n,8,1" Worksheets("SerialPort").MSComm1.RThreshold = 1 Worksheets("SerialPort").MSComm1.InBufferSize = 4096 Worksheets("SerialPort").MSComm1.PortOpen = True End Sub The sub above will configure the port when you try and open it. 'CommPort' is the port number your device is connected to. 'Settings' are the device setting (baud rate, parity, etc) and are usually in the device documentation (you can also use the device with Hyperterminal to get these settings). PortOpen = True tells Excel to open the port with the above settings. RThreshold is what we are interested in here. By setting it to '1' we are telling Excel to fire the 'OnComm' code whenever data is received from the serial port. The way I call the port open sub, is to have a worksheet onchange event. I only want the port to open when the user selects a cell in a particular column range, so I am using the following - Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Columns("A:A")) Is Nothing Then If Target.Value = "" Then Call OpenPort End If End If Application.EnableEvents = True End Sub This piece of code must sit against the 'Worksheet' 'Selection Change' section. Use the dropdown boxes at the top of your VBA editor to select this. So now, if a cell in column 'A' is selected, the port will be opened with my settings. As RThreshold is set to '1' - the OnComm code will be called whenever I try to read from the cheque reader and am in the 'A' column. Now to tell it do something when data is received.... Go back to your OnComm make it look like - Private Sub MSComm1_OnComm() If Worksheets("SerialPort").MSComm1.CommEvent = comEvReceive Then Call GetData End If End Sub The CommEvent - comEvReceive tells Excel that if data is coming in from the serial device....do something. In this case, Call sub "GetData". Now, to create sub "GetData" that will grab the information from the device and place it in your worksheet. The sub below is very straightforward - but will help get you started! Private Sub GetData() Dim MyData As String Wokrsheets("SerialPort").MSComm1.InputLen = 0 MyData = Worksheets("SerialPort").MSComm1.Input ActiveCell.Value = MyData MyData = "" Worksheets("SerialPort").MSComm1.PortOpen = False End Sub The 'InputLen' setting tells Excel how much data to read from the serial device. Setting it to zero tells it to keep reading until the end of the file (ie it gets all of the data). If you know your string is always going to be 10 digits...you could set this to 10. Or you may need a function to pull the characters one at a time until you get to a specific value. It all depends on the device and what you are trying to achieve.... And you are done! You should now have a very basic working script to read data from a serial device and place it into your worksheet. I hope this helps someone....my apologies for any poor terminology/lack of clarity and any mistakes I have made. I am not using the same code myself...and there is a great deal more that you will need to learn to use MSComm effectively. It is also the first time I have put something together like this (but that's obvious :P) Hopefully this is a start for anyone else who is struggling to get going with this. Have fun! هذا الموضوع باللغة الانكليزية وهو مشابه لخطوات الاكسس تقريبا ولكن لضيق الوقت قمت بوضعه على هذه الصيغة ولكثرة الطلب عليه وارجو من لديه الوقت ان يشرح الكود للاخوة الاعضاء او الانتضار حتى اقوم انا العبد لله برفعه مع مثال والله ولي التوفيق Active_Excel_2003.rar

لا يا اخي لا اعتقد ولكن يوجد لدي طريقة لربط الاكسل بالسيريال كوم قريبا سوف اعطيك اياها ولكن خذ هذا الرابط حاليا انا العبد لله قد قمت بشرح طريقة ربط الكوم بالاكسس بالتفصيل والشرح الوافي http://www.officena.net/ib/index.php?showtopic=42101&hl=&fromsearch=1

السلام عليكم اخواني هذا شرح وافي لعملية وصل منفذ الكوم بالاكسس وتطبيقاته مع مثال ,, ولا تنسونا من دعوة بانتظار ردودكم .......................... Port_Com_Test.rar

اخي الكريم هذا كود ينفع كثيرا في هذه العملية ولكن يحتاج الى شرح والمرفق ادوات الكود وهو خاص لسحب البيانات من الكوم الى فورم اكسس Comm232Ocx.CommPort = SerialPort If Err Then If Comm232Ocx.CommEvent = comPortInvalid Then dummy = MsgBox("Invalid port, try another port!", vbOKOnly, "Invalid Port") Exit Sub ElseIf Comm232Ocx.CommEvent = comPortAlreadyOpen Then dummy = MsgBox("Port already in use by another device! ", vbOKOnly, "Port Already Open") Exit Sub End If End If Comm232Ocx.Settings = "9600,N,8,1" On Error Resume Next Comm232Ocx.PortOpen = True If Err Then dummy = MsgBox("Invalid port selection!", vbOKOnly, "Invalid Port") Exit Sub End If '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''' Comm232Ocx.InBufferCount = 0 'clear out rs232 input buffer 'send out first command for data aquisition If AdcCal = True Then Tx = "!0RA" + Chr(11) 'read channel 12 for ref -ve Else: Tx = "!0RA" + Chr(0) 'else read channel 0 End If Comm232Ocx.Output = Tx

- Test.rar

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

اشكرك اخي على هذه الملاحظة , وانا اسف على التسرع والخطا وعدم التقيد بقواعد المشاركة فارجو منم التكرم بحل هذه المشكلة لانني فعلاً مضطر الى هذا البرنامج

السلام عليكم اخواني انا لدي هذا النموذج واريد ان احل المشكلة الموجودى فيه وهي يوجد لدي زر بحث بالتاريخ ووضعت في النموذج مربع تحرير وسرد ولونته بالاحمر لكي تعرفوه واريد عندما ابحث عن التاريخ يظهر لي مربع تحرير وسرد كافة السجلات الموجودة بهذا التاريخ يعني عندما اكتب في مربع بحث بتاريخ التاريخ التالي مثلاً 12/12/2011 اريد ان يظهر لي في مربع تحرير وسرد كافة السجلات الموجودة بهذا التاريخ والمشكلة الاخرى هي يوجد لدي زر طباعة الصورة اريد نت هذا الزر ان يطبع الصورة مباشرة دون معاينتها وشكراً طبعا للعلم ان شرحت داخل النموذج المراد تعدسله ولونته الجدول المراد التعديل فيه هو : tblarchive النموذج المراد التعديل فيه : frmarchive وارجو ايضا ولو ان اطلت شرح الكود البرمجي التالي الذي يقوم بايقاف تشغيل البرامج بعد 200 مرة من تشغيلها عن طريق رقم الهارد ديسك ارجو الفائدة من اهل الخبرة كود برمجي.txt zaCaptureWebCam2008_Na2011.zip