mrnooo2000

فى حد علمى لا يوجد غير القيم الثلاث 1 و 2 و 4

تفضل اخى جرب هذا التعديل Database9.rar

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

طيب اليك هذه الفكرة احذف كود الاغلاق من النموذج 1 و كود فتحه فى النموذج tab_acc و فى حدث عند اغلاق النموذج tab_acc ضع هذا الكود Forms![1].[2 نموذج فرعي].Form.Requery If Shift = 2 Then جرب تغيير الرقم كالتالى 1 هو SHIFT 2 هو CTRL 4 هو ALT

بعد اذن أخانا مالك احذف القيمة الافتراضية (1 ) لحقل رقم الاذن من الجدول أى لا تضع أى شىء بها

كيف ذلك ؟ و الحقول غير مرتبطة بالجدول

بعد اذن الاخ مالك اليك أخى هذا التعديل سند قبض1.rar

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

أنت تريد تحديث القيمة الافتراضية للحقول أسهل طريقة هى اغلاق النموذج الاول عند فتى الثانى ثم اعادة فتحه عند اغلاق النموذج الثانى Database1.rar

ساعد نفسك أخى الكريم بوضع مثال واضح يعكس ما لديك حتى يمكن للاخوة المساعدة

هل وضعت الاسطوانة بالجهاز

جرب هذا Else Else Dim i As Integer, tdat As String For i = 0 To Me.Moditoha - 1 tdat = nz(DLookup("[HI-Date]", "hollytawed", "Daytewad is null and pcdigit =" & PcDigit),0) If tdat > Me.[HI-Dates] Or tdat > Me.[Dattewads] Then MsgBox !" Me![HI-Dates].SetFocus E…

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

جزاك الله خيرا أخ عمر وظيفة format هى اظهار الارقام بالتنسيق مثل 002 و ليس 2

ضع هذا الكود فى نموذج 1 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF7 Then If Shift = 2 Then DoCmd.OpenForm "3" End If End If End Sub Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub بالنسية للتحديث حد…

ضع هذا الكود فى النموذج Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByV…

للاسف عندى مشكلة فى التحميل لكن يمكنك تعديل خصائص النموذج Allowadditions=false Allowdeletions=false

jتفضل اخى

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

لا اعتقد ان هذا ممكن فى الاكسس يرجى مراعاة شروط المشاركة عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .