محمد سلامة

معلش اسمح لي ما دام لا تسبب مشكلة لك فالموضوع بسيط ومن وجهة نظري المتواضعة الشكل افضل بدون حدود كما في اوفيس ٢٠١٣ فما فوق او في ويندوز اعلي من ٧ تحياتي 🌹

اشكرك اخي احمد علي هذه المشاركة القيمة واشكر كل من شارك بها وهي فعلا ما ابحث عنه جزاكم الله خيرا انت وكل الاخوة

حبيبي استاذ احمد كل سنه وانت طيب ياغالي 😍 سوف اطلع عليها وارد لك خبر

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

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

جزاك الله خيرا هدية جميلة 🌹🌹🌹

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

السلام عليكم لدي حقل نصي استخدمه لإدخال رقم موبايل العملاء اريد ان يظهر بهذا الشكل 20+ مفتاح الدولة ثابت المستخدم لا يدخله 0000 000 000 المسافة المستخدم لا يدخلها وفي النهاية يظهر هكذا +20 109 214 2121 شكراً جزيلاً مقدماً

للاسف لايوجد برنامج للواتساب يعمل مع ويندوز 7 (ديسك توب) يجب ان يكون لديك على الكمبيوتر ويندوز 8 او اعلى

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

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

جزاك الله خيرا وبارك وغفر الله لوالديك طريقة ممتازة سؤال هل يمكن استبدال الكاميرا بالاسكنر او هل يمكن التعديل علي تلك الاداه لتناسب جهاز الاسكنر لان كما تعلم نوحه صعوبة في تعامل الاسكنر مع الاكسس خاصة الفيدر أو السحب المتعدد جزاك الله خيرا علي ما تقدمه تحياتي 🌹

الف الف مبروك ابو جودي والله يوفقك ويعينك 😍😍😍

نفس الحال معي وانت شوفت بنفسك في الملف المرفق علي الخاص .. تحياتي 🌹

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

السلام عليكم ورحمه الله @ابو محمد2 اين انت يا ابومحمد اتمني تكون بخير ❤️

جزاك الله خيرا استاذ موسي واتفق مع رأي د.كاف

اشكرك ابا جودي علي التحليل الدقيق اكمل علي بركة الله

السؤال هل يمكن مزامنة البيانات لأكثر من جهاز بمعني بمجرد ادخال اي مستخدم بيانات يستطيع اي مستخدم آخر الاطلاع عليها؟! اعتقد من تجارب سابقة لايمكن والله اعلم

الله ينور يابا جودي🌹

اللهم صل وسلم وبارك على سيدنا محمد وعلى اله وصحبه وسلم

اهلا وسهلا بك يا دكتور استخدام الكود التالى فى وحدة نمطية Option Compare Database Option Explicit Public Function CheckLinks(ByVal strDBPassword As String) As Boolean On Error GoTo CheckLinksErr Dim tdf As TableDef Dim strNewMDB As String Dim fd As FileDialog For Each tdf In CurrentDb.TableDefs If UCase(Left(tdf.NAME, 6)) <> "COMPAS" Then If Len(tdf.Connect) > 0 And tdf.Fields.Count = 0 Then If Len(strNewMDB) = 0 Then Call MsgBox(" server_database من فضلك البرنامج غير متصل بقاعدة البيانات الرئيسيةالمسمى ", vbCritical, "SOFT.SAMPLE") Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = False .InitialFileName = CurrentDBFolder() '.Filters.Add "Access Database File (*.accde)", "*.accde", 1 .Filters.Add "Access Database File", "*.mdb, *.accdb, *.mde, *.accde, *.mda, *.accda" .Title = "Select Back-End Data File" .ButtonName = "Link Tables" If .Show = False Then Exit Function Else strNewMDB = .SelectedItems(1) End If End With End If If (IsNull(strDBPassword) = True) Or (strDBPassword = "") Then tdf.Connect = ";DATABASE=" & strNewMDB Else tdf.Connect = ";DATABASE=" & strNewMDB & ";PWD=" & strDBPassword End If tdf.RefreshLink End If End If Next tdf CheckLinks = True CheckLinksDone: Exit Function CheckLinksErr: MsgBox "Error #" & err.Number & ": " & err.Description, vbCritical Resume CheckLinksDone End Function Public Function CurrentDBFolder() As String Dim strPath As String strPath = CurrentDb.NAME Do While Right$(strPath, 1) <> "\" strPath = Left$(strPath, Len(strPath) - 1) Loop CurrentDBFolder = strPath End Function ويتم منادته كم خلال النموذج بالكود التالى Private Sub Form_close() On Error Resume Next If CheckLinks(";كلمة المرور للقاعدة الخلفية") = False Then Call Quit End If Dim tdfs As DAO.TableDefs Dim tdf As TableDef Dim sSourceDB As String Dim sBackupDB As String Dim backDBName As String Set tdfs = CurrentDb.TableDefs Set tdf = tdfs(tdfs.Count - 1) sSourceDB = Right(tdf.Connect, Len(tdf.Connect) - 10) backDBName = Dir(mID(tdf.Connect, 11)) sBackupDB = mID(tdf.Connect, 11, Len(tdf.Connect) - (Len(backDBName) + 10)) DoCmd.OpenForm "frm-UserLogon" DoCmd.close acForm, Me.NAME Make_Desktop_Shortcut End Sub

ليس هذا هو المطلوب

السلام عليكم ورحمه الله وبركاته مطلوب كود او طريقة لقطع الاتصال بالقاعدة الخلفية في كل مرة يتم الدخول إليها من القاعدة الأمامية (البرنامج) تحياتي 🌹

@SEMO.Pa3x تحياتى لك يا دكتور .. هل ممكن ترفق هذا النموذج لنستفيد من تصميمه