Shivan Kurdi

اتفضل تم استخدام الكود هكذا Private Sub أمر6_Click() Dim rst As DAO.Recordset Dim ddate As Date Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [HRR]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If rst!Atarih < ddate Then MsgBox (rst!Rjmfatwra & " هناك تسلسل خاطئ في التاريخ للفاتورة رقم ") Else ddate = rst!Atarih End If rst.MoveNext Next i End Sub ومن قبل قام استاذ صالح بتعديل الكود واليك المرفق بعد تعديل فحص تسلسل التاريح (1).accdb

شكرا لك وانا ايضا استخدم نموذج كبديل الرسالة لكن كان اريد اعرف هل يجوز ام لا ... وشكرا لك تعبت معنا 🙂

اظن ان السبب يرجع لخاصية النموذج Pop Up غيره الى لا غيره واذا تريده بعد ذلك سارفع لك المثال وراح نسأل لاستاذ @ابوخليل ھل یمکن ان نغیر تسمیات الازرار الرسائل عند خاصیة النموذج pup up = yes

استخدم دالة DCount

غير كلمة Value List الى Table/Query في RowSourceType وامسح ما في داخل RowSource واضغط على ثلاث نقاط كما مبينة في الصورة سيفتح لك نافذة لكي تعمل استعلام

نعم اتفضل اليك موضوع على هذا واليك الحل هنا للاستاذ ابوخليل قم بنسخ هذا الى وحدة النمطية Option Compare Database Public Ok, Cancel, ABORT Public RETRY, IGNORE, YES, NO Private m_hHook As Long Private Const IDOK = 1 Private Const IDCANCEL = 2 Private Const IDABORT = 3 Private Const IDRETRY = 4 Private Const IDIGNORE = 5 Private Const IDYES = 6 Private Const IDNO = 7 Private Const WH_CBT = 5 Private Const GWL_HINSTANCE = (-6) Private Const HCBT_ACTIVATE = 5 Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, _ ByVal lpString As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Public Sub MessageBoxH(hwndThreadOwner As Long) Dim hInstance As Long Dim hThreadId As Long hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE) hThreadId = GetCurrentThreadId() m_hHook = SetWindowsHookEx(WH_CBT, AddressOf _ MsgBoxHookProc, hInstance, hThreadId) End Sub Private Function MsgBoxHookProc(ByVal uMsg As Long, ByVal _ wParam As Long, ByVal lParam As Long) As Long If uMsg = HCBT_ACTIVATE Then SetDlgItemText wParam, IDOK, Ok SetDlgItemText wParam, IDCANCEL, Cancel SetDlgItemText wParam, IDABORT, ABORT SetDlgItemText wParam, IDRETRY, ABORT SetDlgItemText wParam, IDIGNORE, ABORT SetDlgItemText wParam, IDYES, YES SetDlgItemText wParam, IDNO, NO UnhookWindowsHookEx m_hHook End If MsgBoxHookProc = False End Function وعن الضغط على الزر تكتب هذا مثلا Private Sub Command1_Click() Dim resalh As Integer Ok = "حسنا موافق" Cancel = "غير موافق طبعا" MessageBoxH Me.hwnd resalh = MsgBox("lllllll", vbOKCancel, "yyyyyy") End Sub

قم بتعديل مصدر النموذج فيها خطا مثلا النموذج البحث بها نموذج فرعي ومصدره هو استعلام qryEmployees وهناك خطأ في الاستعلام ... قم ببناء مصدرهه من جديد

غير مصدر الكومبوبوكس الى استعلام من الجدول

اتفضل ProgEmp20-9.rar

اتفضل تم استخدام هذا الكود Private Sub أمر6_Click() Dim Aded As Long Dim FirDate As Date Dim Curdate As Date Dim Curdate1 As Date Dim Teakid As Byte Aded = Me.YWMA_sub.Form.Recordset.RecordCount Me.YWMA_sub.SetFocus Me.YWMA_sub.Form.Atarih.SetFocus DoCmd.GoToRecord , , acFirst FirDate = Me.YWMA_sub.Form.Atarih For i = 0 To Aded - 1 Curdate1 = Me.YWMA_sub.Form.Atarih If Curdate1 > FirDate Then Curdate = Me.YWMA_sub.Form.Atarih Teakid = 1 End If If Curdate1 > FirDate Then DoCmd.GoToRecord , , acNext ElseIf Curdate1 = FirDate And Teakid = 0 Then DoCmd.GoToRecord , , acNext Else MsgBox " ( " & Me.YWMA_sub.Form.Rjmfatwra & " ) " & "هناك تسلسل التاريخ خطأ في رقم الفاتورة", vbMsgBoxRtlReading, "تنبيه" Exit Sub End If Next i End Sub فحص تسلسل التاريح.accdb

باختصار عند فتح القاعدة البيانات سيفتح بشكل اوتوماتيكي الماكرو باسم AutoExec وذاك الماكرو بيعمل اوبديت اي تحديث للجدول ويخزن فيه دقة الشاشة و سيتغير دقة الشاشة الى 1024 * 600 بعد ذلك سيفتح نموذج فورم 2 وعند فتحه سيتم فتح معه نموذج FrmOpenInOpenDB بشکل مخفي وعند اغلاق القاعدة سيتم اغلاق النموذج المخي وفي حالة اغلاق نموذج المخفي سيتغير دقة الشاشة الى دقة الشاشة الاصلية اللي المخزنة في الجدول اي نعم

اتفضل كما طلبت C_S_Shivan.rar

كان من المفروض ان ترفق نسخة مصغرة من قاعدة بياناتك لكي نعمل لك التعديلات عليه لكن .... ! لذلك قمت بالبحث عن مكتبتي ووجدت هذا المثال لا اعرف من هو صاحبه .... ستجد ما تبحث عنه فيه وراح تستفيد منه باذن الله .......... تكدر ان تعمل قاعدتك عند فتحه ان يتغير دقة شاشة الجهاز الى وعند اغلاقه ان يتم تغيره الى دقة الشاشة السابقة تغير دقة الشاشة Chang Rresolution.rar

اتفضل القي نظرتا الى هذا الموضوع ولان حضرتك كتبت هذه الجملة اتفضل اليك هذه المواضيع و تقبل تحياتي

قم بتعدیل فی مصدر النموذج

حسب فهمي لمشكلتك من الاحسن ان تستخدم زر للحفظ و قبل الحفظ ان يكتب الرقم التلقائي ويحفظه هكذا Private Sub Command14_Click() Me.ID = Nz(DLast("[ID]", "TABLE1"), 0) + 1 DoCmd.RunCommand acCmdSaveRecord End Sub والله يعلم

تم عمل اللازم كما قال استاذ @kaser906 اتفضل التعديل على النموذج db2.mdb

نعم وهذا هو شغل جهاز الباركود بيدخل الرقم وبيروح الى التالي اتفضل اليك هذا سيخرج من الحقل ويدخل الى حقل الكمية وبعدين سيدخل من جديد الى حقل رقم الصنف في جزء من الثانية اليك الكود SetFocus Private Sub ProdNoAccTab_AfterUpdate() [Price] = [SalPrice] Me.QtyOut.SetFocus Me.ProdNoAccTab.SetFocus End Sub الفواتير.rar

اذن تم اضافة هذا السطر الى كود بعد تحديث لرقم الصنف Me.Rajmsanf = left(Me.Rajmsanf, 5) & "-" & right(Me.Rajmsanf, 5) والكود صار هكذا Private Sub Rajmsanf_AfterUpdate() Me.Rajmsanf = left(Me.Rajmsanf, 5) & "-" & right(Me.Rajmsanf, 5) If DCount("[Rajmsanf]", "tfsil_jard", "[Rajmsanf]=[forms]![frmEdrajSenf]![Rajmsanf]") >= 1 Then MsgBox " سبق جرده " & DLookup("[Almwka]", "tfsil_jard", "[Rajmsanf] = Forms![frmEdrajSenf]![Rajmsanf]") DoCmd.CancelEvent Me.Undo End If End Sub اتفضل جربه واعطينا الخبر 2الباكورد.rar

اتفضل اليك قاعدة بها طريقتين اي منها تريد اختاره DoCmd.OpenForm "Forme_InsertAndEdit", acNormal ' طريقة الاولى Form_Forme_InsertAndEdit.Masder_record.Value = "Tab_3" Form_Forme_InsertAndEdit.Masder_record_AfterUpdate DoCmd.OpenForm "Forme_InsertAndEdit", acNormal, , "[id_f]=" & Me.id_f, acReadOnly, acWindowNormal ' طريقة الثانية 'Form_Forme_InsertAndEdit.RecordSource = "SELECT Tab_3.*, Tab_3.id_f FROM Tab_3 WHERE (((Tab_3.id_f)=[Forms]![f_3]![id_f]));" كل الطريقين ستستخدمه بعد فتح النموذج Openformresors.rar

فی قاعدە بیاناتک مش موجود مثل هذه الارقام لكن فيها 1-1 و 2-2 و 3-3 و 4-4 والرقم المكتوب اصلا غير موجود لذلك بيعطيك الرسالة لذلك نحن بحاجة شرح وافي من حضرتك عن ماذا تريد بالضبط و ارفاق قاعدة بيانات حسب شرحك

اتفضل استخدم هذا في حدث بعد تحديث لاختيار السعر و نوع العملة في كومبوبوكس Private Sub curr_AfterUpdate() Me.curate = Me.curr.Column(2) Me.Text29 = NoToTxt([curate], Me.curr.Column(1),"") End Sub هنا نحن ما استخدمنا جزء من العملة لكن اذا تريد ان تستخدمه هناك حلول اخرى CurrName.rar

نعتذر انا فقط اهتمت عن جملة التحديث اتفضل يجب ان تغير في هذا السطر ايضا If DCount("[ProdNoAccTab]", "[InvoiceHelperTab]", "[InvoiceNo]=" & Me.InvoiceNo & "and [ProdNoAccTab]=" & Me.ProdNoAccTab ) > 0 Then يجب ان يكون هكذا If DCount("[ProdNoActTab]", "[InvoiceHelperTab]", "[InvoiceNo]=" & Me.InvoiceNo & "and [ProdNoActTab]='" & Me.ProdNoAccTab & "'") > 0 Then اليك المرفق الفواتير.rar

السلام عليكم ورحمة الله وبركاته اخي الحبيب عملك مضبوط لكن فيها خطأ واحد في حرف واحد اذا تغيره سيكون كل شيء على ما يرام شوف هذه الجملة sql = "UPDATE [InvoiceHelperTab] SET [InvoiceHelperTab].QtyOut = [InvoiceHelperTab]![QtyOut]+[Forms]![SalInvoiceForm]![Child13].[Form]![QtyOut] WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) AND (([InvoiceHelperTab].ProdNoAccTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" القي نظرتا الى الشرط فيه الشرط الاول تمام ما فيه المشكلة WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) والشرط الثاني AND (([InvoiceHelperTab].ProdNoAccTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" فقط غير حرف سي الاخير من هذه الكلمة ProdNoAccTab الى حرف تي ProdNoActTab القي نظرتا الى الكود الصحيح sql = "UPDATE [InvoiceHelperTab] SET [InvoiceHelperTab].QtyOut = [InvoiceHelperTab]![QtyOut]+[Forms]![SalInvoiceForm]![Child13].[Form]![QtyOut] WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) AND (([InvoiceHelperTab].ProdNoActTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" اليك ملفك بعد تغيير حرف واحد الفواتير.rar

اتفضل القي نظرتا الى مصدر التقرير وجروف في التقرير و خط فواصل الصفحات DB.accdb