human73

الفاضل محب ، ليس بالضروره التقيد بالفكره المطروحه حيث انها مثال و يستخدم البعض طرق اخرى للتغلب على المشكله مثلا يقوم البعض بتخزين اخر قيمه في الرجستري و يعيد استخدامها للرقم المضروب كل مره فيكون الرقمه غير قابل للتكرار ابدا .

اقترح عليك اخي محب بان تستخدم العداد لعمل رقم متغير مثال اذا فتح الفورم 5 مرات فانه بديل ال1000 = 5 وهكذا

السلام عليكم ، صديقي و معلمي كويت 10 كما تفضلت سابقا بقولك انا اعتقد ميكروسفت مستعده لالغاء الاكسس اذا كان ما ياتي لها بربح ميتين بالميه :) نعم ايدك بانه الاكسس ممكن يتحمل وانه كل ما يقال عنه هو من باب التسويق لنظام مايكروسوفت ms-sql حيث مستشارهم مستعد ان ينظر…

احبتي و اخواني بعد السلام عليكم اهدي اليكم تحيه عطره بعطر الاحترام و الاعجاب لكم و مبخره ببخور الافتخار بكم بعد البحث بقدرات الاكسس اتضح لي شخصيا هذه النتيجه اول قبل البدا بطرح رايي اود ان اثبت المراجع التي استخدمت موقع msdn الرسمي - منو يشهد للبنت غير ابوها م…

في حال لديك قاعدة بيانات اكسس و ترغب ان تعرضها بالموبيال - التعريب لم يجرب بعد - فما عليك الا تجربه هذا البرنامج على موباليك http://www.handango.co.uk/PlatformProductD...pSectionId=5624

الفاضل محب تحيه عطره بعد السلام عليك اعذرني لم ارى المثال المرفق ولكن توقعي ان مشكلتك تتلخص بالاتي 1- حين تفتح نموذج مثلا يعطيك رقم 1765 ثم تغلغه و تفتحه مره اخرى يعطيك 5345 ولكن اذا اغلقت الاكسس و فتحته فيعطيك مره ثانيه 1765 هذا توقعي اذا كان توقعي صحيحا فجرب…

اقترح عليك استعمال امر Choose([Reason], "Reason 1", "Reason 2", "Reason 3", "Reason 4") As Reason

الفاضل Private Sub Text0_LostFocus() Dim a1 As String a1 = Text0.Text Text0.Text = "اهلا و سهلا " & a1 End Sub طبعا تضع 2 تكست بوكس و الذي تريد عليه التاثير يجب ان تضع فيه الكود مع تصليح رقم التكست

الفاضل وحشان اولا يجب ان تضيف اكتف اكس المسمى للفورم microsoft communication control ثم هذا هو الكود MSComm0.CommPort = 1 MSComm0.Settings = "1200,N,8,1" MSComm0.PortOpen = True Do Until strChar = ":" strChar = MSComm0.Input strLeakRate = strLeakRate & MSComm0…

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

اخي الفاضل مرفق الملف بعد التعديل اتمنى ان يكون هذا هو المطلوب ___.rar

Dim cont As Integer Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Table3") If rs.RecordCount = 0 Then GoTo adn: rs.MoveFirst rs.Edit rs!OpenForm = rs(0) + 1 rs.Update Exit Sub adn: rs.AddNew rs!OpenForm = 1 rs.Upd…

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

يا خالد يحي الامام يا كريم ابن الكرام لك التحيه و السلام ولك التقدير و الاحترام ارفق لنا مثلا همام حتى نحاول حل المشكله بسلام :)

الاخ الفاضل هنا مثال كامل عن ما تريد كبرمجه http://www.codeproject.com/KB/grid/DataGridActiveX.aspx

مثال ريح الشمال من مايكروسوفت northwind sql http://support.microsoft.com/kb/227053/en-us

راجع العلاقات بالاستعلام هناك خلل بها او ارفق الملف للاقاء نظره عليه العلاقات يجب ان تكون واحد لمجموعه

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

الاخ العزيز الباشق القصد من الترجمه البرنامج سيعطيك الارقام ولكن بالكلمات الانجليزيه كل الي عليك تحويلها للعربيه مثال Hundreds ---- الى مئات

اخي الفاضل هيما 1- لنفترض الاتي انك بصمة شخص فجهاز البصمه قام بعمل سكان لبصمه هذا الشخص و قام يتحليلها عن طريق برنامجه و قام يتحوليها من صورة الى ارقام (حسب المرفق بالاعلى) 2- قام هذا الشخص بجريمه 3- قامت الشرطه برفع البصمات بورقه 4- قام الظابط بادخالها على ال…