Barna

طيب ... بارك الله فيك ... هل دائما تنسيق الرسالة بالطريقة الموجودة في المرفق

وعليكم السلام ورحمة الله وبركاته انشأ وحدة نمطية وضع التالي بها :::: Public Sub CheckEntryLanguage(TB As TextBox, Txt As String) If InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz", Txt) > 0 Then TB.KeyboardLanguage = 3 MsgBox "يحب ان تكتب بالعربي .. مع العلم أنه تم تغيير اللغة للوحة المفاتيح." TB = "" End If End Sub وفي حدث عند التغيير في مربع النص ضع هذا ::::: If TxtBox.Text = "" Then Exit Sub Call CheckEntryLanguage(Me.TxtBox, Right(TxtBox.Text, 1))

يعني تريد نقل هذه البيانات مجزئة للحقول الظاهرة في النموذج الاخر ... صحيح هذه المطلوب ؟؟

الحمد لله رب العالمين ... بارك الله فيك اخي الكريم منكم نتعلم استاذي الفاضل @Foksh اشكر لك الاطراء

اولا ::: هناك اخطاء لديك لانك استخدمت بعض الكلمات المحجوزة للاكسس ثانيا :::: اقتنصت بعض الاكواد من الخبير @jjafferr فله الشكر والعرفان جرب المرفق ربما هو المطلوب . Change by One Button.accdb

بالاضافة لما تفضل به البشمهندس @M.Abd Allah وخصوصا عندما تكون الفواتير كثيرة .... يمكن عمل مربع نص وتكتب فيها ارقام الفواتير المطلوبة ولكن يعاب على طريقتي ان مدخل البيانات ممكن يغلط في رقم معين فلا يتم طباعة الفاتورة المطلوبة بسبب الخطأ .... لذلك طريقة البشمهندس فيها دقة اكثر ولكن في حالة العدد الكبير من الفراتير يكون العملية مرهقة وخاصة اذا ما كانت الفواتير المطلوبة غير مرتبة

أسأل الله ان يجمع له بين الاجر والعافية

اكتب هذا فيه """"" IIf([عربي دور ثان نتيجة] Like '*ناجح*';'ناجح';'')

بارك الله فيك بروف @jjafferr على المعلومات القيمة ونفع بك ..

من باب اثراء الموضوع ومشاركة مع البرف @jjafferr لم اجرب الكود ولكن ضعه في زر النموذج واعلمنا بالنتيجة Dim ws As DAO.Workspace Dim db As DAO.Database Dim LDBFileName As String Dim FileNum As Integer Dim TmpStr As String Dim UserList As String Set ws = DBEngine.Workspaces(0) Set db = ws.Databases(0) LDBFileName = CurrentProject.Path & "\" & Left(CurrentProject.Name, (InStrRev(CurrentProject.Name, ".", -1, vbTextCompare) - 1)) & ".ldb" MsgBox LDBFileName FileNum = FreeFile() Open LDBFileName For Input As #FileNum Do While Not EOF(FileNum) Line Input #FileNum, TmpStr If TmpStr <> "" Then UserList = UserList & TmpStr & vbNewLine End If Loop Close #FileNum MsgBox "Current Users:" & vbNewLine & UserList

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

طبق ما في الصورة مع استخدام هذا ......... Me.نص1595 = DCount("[الرقم]", "[مذكرة]", "[الرمز] ='" & [Forms]![memoire]![الرمز] & "'") Me.نص1597 = DMax("[الرقم]", "[مذكرة]", "[الرمز] ='" & [Forms]![memoire]![الرمز] & "'")

افتح التقرير في وضع التصمبم ونفذ ......

هل هذا ما تريد ؟؟؟ تجريبي.accdb

Dim db As DAO.Database Dim rs As DAO.Recordset Dim fld As DAO.Field Dim searchNumber As Long Dim found As Boolean searchNumber = Me.C Set db = CurrentDb() Set rs = db.OpenRecordset("SELECT Salary.GradeNO, Salary.[1], Salary.[2], Salary.[3], Salary.[4], Salary.[5] FROM Salary ORDER BY Salary.GradeNO DESC;", dbOpenDynaset) i = 0 found = False Do Until rs.EOF For Each fld In rs.Fields If Not IsNull(fld.Value) And fld.Value = searchNumber Then found = True ElseIf found And Not IsNull(fld.Value) And i < Me.D And fld.Name <> "GradeNO" Then i = i + 1 Me.G = fld.Value Me.E = rs!GradeNO Me.F = fld.Name End If Next fld rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing

طيب هل هذه النتائج هي المرغوب فيها ................

ممكن يكون لها حل ... انتظر حتى اصل لجهازي او ممكن تجد اجابة من الاخوة الكرام

انظر هنا قد يفيدك

منكم تعلمنا الجمال اخي @Foksh بارك الله فيك

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

حياك الله بشمهندس @Eng.Qassim تقبل الله منا ومنكم صالح الاعمال جزاك الله خير

طيب جرب على حالات اخرى .... Dim db As DAO.Database Dim rs As DAO.Recordset Dim i, TT As Integer Dim numCopies As Integer Set db = CurrentDb Set rs = db.OpenRecordset("SELECT tp2.GradeNO, tp2.سنوات_المكوث FROM tp2 WHERE (((tp2.GradeNO)<=" & Me.الدرجة_الوظيفية & ")) ORDER BY tp2.GradeNO DESC;", dbOpenDynaset) TT = iYear Do Until rs.EOF TT = TT - rs!سنوات_المكوث numCopies = rs!سنوات_المكوث If TT < rs!سنوات_المكوث Then Me.مربع_تحرير_وسرد47 = rs!GradeNO - 1 Me.مربع_تحرير_وسرد49 = Me.المرحلة_الوظيفية + TT rs.MoveNext GoTo RR 'Exit Sub End If For i = 1 To numCopies Next i rs.MoveNext Loop RR: If Me.مربع_تحرير_وسرد49 > rs!سنوات_المكوث Then Me.مربع_تحرير_وسرد47 = rs!GradeNO - 1 Me.مربع_تحرير_وسرد49 = 1 Exit Sub End If rs.Close Set rs = Nothing Set db = Nothing