محمد أبوعبدالله

2 ساعات مضت, abouelhassan said:

بس انا كنت محتاج مثال لكود اضيفه فى فورم البدأ فيغلق الشيفت فى نفس البرنامج

ضع الكود التالي في وحدة نمطية جديدة

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant, dbs As Object) As Integer

 Dim prp As Property
 Const conPropNotFoundError = 3270
 
     On Error GoTo Change_Err
     dbs.Properties(strPropName) = varPropValue
     ChangeProperty = True
    
Change_Bye:
     Exit Function

Change_Err:
    If Err = conPropNotFoundError Then
     Set prp = dbs.CreateProperty(strPropName, _
           varPropType, varPropValue)
     dbs.Properties.Append prp
     Resume Next
    Else
     ChangeProperty = False
     Resume Change_Bye
    End If
End Function

وفي حدث عند الفتح للنموذج ضع الكود التالي

ChangeProperty "AllowBypassKey", dbBoolean, False

تحياتي

تفضل اخي الكريم

هذا برنامج يشمل mdb و accdb

مع امكانية تعطيل الشيفت لقاعدة بيانات بها باسوورد

En-Dis.rar

تحياتي

السلام عليكم

يمكن استخدام دالة space لاضافة مسافات قبل العنوان

غير الرقم 25 الى الرقم الذي تريد

Me.Caption = Space(25) & "نموذج البداية"

تحياتي

وعليكم السلام ورحمة الله وبركاته

بالاضافة الى ما تفضل به استاذنا @Eng.Qassim وله الشكر

وبالتعديل الذي قام بارفاقه تفضل اخي الكريم

إدارة الاختبارات والقبول.rar

تحياتي

وعليكم السلام ورحمة الله وبركاته

غالبا المشكلة في كود فتح الملف

ويمكن استبدال الكود بالتالي

Dim fpathz As Variant
With Application.FileDialog(3)
    .Title = "Choose File"
    .Filters.Clear
      .Filters.Clear
      .Filters.Add "All Files", "*.*"
      .Filters.Add "jAccess Files", "*.mdb"
      .Filters.Add "Access Files", "*.Accdb"
    .AllowMultiSelect = False
    .InitialFileName = ""
    
 If .Show = -1 Then
    fpathz = .SelectedItems(1)
    Me.txtPath = fpathz
 End If
End With

استيراد جدول.rar

تحياتي

وعليكم السلام ورحمة الله وبركاته

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

تحياتي

بالتوفيق اخي الكريم

تحياتي

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

=Sum(IIf((Nz([rased])-Nz([reorder]))<0;1;0))

العدد.rar

تحياتي

جرب التعديل التالي

asd (5).rar

ولو تسمح لي بسؤال

انت بالفعل تقوم بتمرير قيم login اللى نموذج navigation

     Forms![navigation]![username] = TemploginID
     Forms![navigation]![username] = username

وكان بامكانك اضافة السطر التالي لتمرير الفرع

Forms![navigation]![maktab] = maktab

تحياتي

وضعت لك حقل maktab  في نموذج الدخول وانظر تمريره الى نموذج navigation

asd (5).rar

تحياتي

اخي الكريم

اين اجد اين نموذج nav10

واين اجد حقل maktab في نموذج frmshkwaest3lam2

تحياتي

8 دقائق مضت, alzahrani2014 said:

اين نضع هذا الكود 

في النموذج الذي تريد الخروج منه سواء في زر الامر او في حدث عن الاعلاق للنموذج

تحياتي

3 دقائق مضت, alzahrani2014 said:

لو كان نص

غير

Dim I As Integer

الى

Dim I As string

تحياتي

حاليا يمكنك استخدام  المتغير i في اي مكان بالبرنامج

تحياتي

وعليكم السلام ورحمة الله وبركاته

لنفترض انه الحقل المراد تمريره رقم

نضع الكود التالي في وحد نمطية

Option Compare Database
Option Explicit
Dim I As Integer

Public Function My_i()
    My_i = I
End Function

ثم نضع الكود التالي للتمرير بافتراض ان الحقل المراد الرقم منه باسم text1

i = text1.value

تحياتي

تفضل

Private Sub List1_DblClick(Cancel As Integer)

    Dim rst As DAO.Recordset
    Set rst = Me.Recordset.Clone
    rst.FindFirst "[BounsID] = " & Me.list1.Column(4)
    If Not rst.EOF Then Me.Bookmark = rst.Bookmark
    
End Sub

المحكمة.rar

تحياتي

السلام عليكم

غير الحدث الى عند الحروج

Private Sub Qty_out_Exit(Cancel As Integer)
    On Error Resume Next
    DoCmd.RunCommand acCmdSaveRecord
    [Forms]![Trans_out]![t1].Requery
    [Forms]![Trans_out]![نص53].Requery
End Sub

تحياتي

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

تحياتي

تفضل اخي الكريم

Dim db As Object

تحياتي

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

On Error Resume Next
    If IsNull([b3]) Then
        MsgBox "يجب أولا أختــــــــــيار اسم المورد", vbCritical, "warning"
    Else
        DoCmd.OpenReport "QPa_yme3 ", acViewPreview, , "[Da_pay4]=#" & Format(Me.b3, "mm/dd/yyyy") & "#"
        DoCmd.RunCommand acCmdZoom100
    End If

العملاء.rar

تحياتي

8 دقائق مضت, alzahrani2014 said:

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

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

8 دقائق مضت, alzahrani2014 said:

لو حبيت اكنسل التسجيل ما العمل

اضغط زر Esc

برجاء التوضيح اكثر

تحياتي

1 دقيقه مضت, alzahrani2014 said:

لكن نفس المشكله ينخطى الترقيم التلقائي

هذه من الاخطاء التي يقع فيها المبرمج بأن يجعل حقل ترقيم تلقائي هو رقم الفاتورة

ومن المفترض ان يكون الحقل رقم وضع ترقيم بالكود مثال :

Me.shkwano = Nz(DMax("[shkwano]", "shkwaltwasl"), 0) + 1

تحياتي

اذن استبدل

        Me.Undo
بـ
        DoCmd.CancelEvent

الكود كامل

Private Sub Form_BeforeUpdate(Cancel As Integer)

     If Len(Me.shkwadate & vbNullString) = 0 Then
        Me.shkwadate.SetFocus
        MsgBox "تاريخ الشكوى/المعاملة فارغ"
'        Me.Undo
        DoCmd.CancelEvent
     
     ElseIf Len(Me.almsder & vbNullString) = 0 Then
        Me.almsder.SetFocus
        MsgBox "مصدر الشكوى/المعاملة"
'        Me.Undo
        DoCmd.CancelEvent
     
     ElseIf Len(Me.tsneef & vbNullString) = 0 Then
        Me.tsneef.SetFocus
        MsgBox "تصنيف الشكوى/المعاملة"
'        Me.Undo
        DoCmd.CancelEvent
     End If
     
End Sub

asd.rar

تحياتي

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

Private Sub Form_BeforeUpdate(Cancel As Integer)

     If Len(Me.shkwadate & vbNullString) = 0 Then
        Me.shkwadate.SetFocus
        MsgBox "تاريخ الشكوى/المعاملة فارغ"
        Me.Undo
     
     ElseIf Len(Me.almsder & vbNullString) = 0 Then
        Me.almsder.SetFocus
        MsgBox "مصدر الشكوى/المعاملة"
        Me.Undo
     
     ElseIf Len(Me.tsneef & vbNullString) = 0 Then
        Me.tsneef.SetFocus
        MsgBox "تصنيف الشكوى/المعاملة"
        Me.Undo
     End If
     
End Sub

asd.rar

تحياتي

وعليكم السلام ورحمة الله وبركاته

تفضل احي الكريم

تحياي

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

Forms("Form1").Filter = "T1Date = #" & Format(Me.TBDate, "mm/dd/yyyy") & "#"
Forms("Form1").FilterOn = True

تحياتي