A7MD M7MD

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

مش لسه من شويه باقول لك الاكسس بيعمل لك اللى بتحلم بيه كانك ساحر بس نحط ملفات الصوت فى المجلد تيجى للبرنامج لوحدها ونمسحها من المجلد تختفى من البرنامج مش بقولك انت ساحر يا أبو جودى وعجبنى قوى موضوع ان الملفات تظهر ورا بعض وبس نحتار الملف يشتغل لو ينفع والله اعمل لك الف اعجاب شكرا للأستاذ semo.pa3x والمبدع أبو جودى

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

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

DoCmd.RunSQL " SELECT Foaid.IDFoaid, Foaid.Object, Foaid.Mraj3Name, Foaid.KaeelName " & _ " FROM [Object] RIGHT JOIN (Marj3 RIGHT JOIN (Kaeel RIGHT JOIN Foaid ON Kaeel.IDKaeel = Foaid.KaeelName) ON Marj3.IDBook = Foaid.Mraj3Name) ON Object.IDObject = Foaid.Object;" شغال حلو

مبروك الف مبروك للاستاذ محمد

فعلا الشغل متعوب عليه ويجنن لكن فعلا يحتاج حبة تظبيطات تحياتى وشابوه بجد وراى الأزرق اريح للعين

والله تحفة بجد

جارى التجربة

ممتاز بجد الف شكر ليك

راااااااااااااااااااااااااااااااااااااااااااااااااااااائع جدااااااااااااااااااااااااااااااااااااااااااا والله

شكرا سيدى

شكرا أستاذ أبو خليل بس ممكن توضح لى اذا تكرمت الفرق بين المرفق بتاع حضرتك اللى اشتغل والمرفق بتاعى اللى لم يشتغل

هذه تجربتي test.mdb

طيب ممكن المثال اللى حضرتك جربته لانه ما اشتغل معى يمكن انا طبقته غلط

سلام عليكم Private Declare Function PathIsRelative Lib "Shlwapi" _ Alias "PathIsRelativeA" (ByVal Path As String) As Long Public Enum EMakeDirStatus ErrSuccess = 0 ErrRelativePath ErrInvalidPathSpecification ErrDirectoryCreateError ErrSpecIsFileName ErrInvalidCharactersInPath End Enum Const MAX_PATH = 260 Function MakeMultiStepDirectory(ByVal PathSpec As String) As EMakeDirStatus ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' MakeMultiStepDirectory ' This function creates a series of nested directories. The parent of ' every directory is create before a subdirectory is created, allowing a ' folder path specification of any number of directories (as long as the ' total length is less than MAX_PATH. ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim FSO As Scripting.FileSystemObject Dim DD As Scripting.Drive Dim B As Boolean Dim Root As String Dim DirSpec As String Dim N As Long Dim M As Long Dim S As String Dim Directories() As String Set FSO = New Scripting.FileSystemObject ' ensure there are no invalid characters in spec. On Error Resume Next Err.Clear S = Dir(PathSpec, vbNormal) If Err.Number <> 0 Then MakeMultiStepDirectory = ErrInvalidCharactersInPath Exit Function End If On Error GoTo 0 ' ensure we have an absolute path B = CBool(PathIsRelative(PathSpec)) If B = True Then MakeMultiStepDirectory = ErrRelativePath Exit Function End If ' if the directory already exists, get out with success. If FSO.FolderExists(PathSpec) = True Then MakeMultiStepDirectory = ErrSuccess Exit Function End If ' get rid of trailing slash If Right(PathSpec, 1) = "\" Then PathSpec = Left(PathSpec, Len(PathSpec) - 1) End If ' ensure we don't have a filename N = InStrRev(PathSpec, "\") M = InStrRev(PathSpec, ".") If (N > 0) And (M > 0) Then If M > N Then ' period found after last slash MakeMultiStepDirectory = ErrSpecIsFileName Exit Function End If End If If Left(PathSpec, 2) = "\\" Then ' UNC -> \\Server\Share\Folder... N = InStr(3, PathSpec, "\") N = InStr(N + 1, PathSpec, "\") Root = Left(PathSpec, N - 1) DirSpec = Mid(PathSpec, N + 1) Else ' Local or mapped -> C:\Folder.... N = InStr(1, PathSpec, ":", vbBinaryCompare) If N = 0 Then MakeMultiStepDirectory = ErrInvalidPathSpecification Exit Function End If Root = Left(PathSpec, N) DirSpec = Mid(PathSpec, N + 2) End If Set DD = FSO.GetDrive(Root) Directories = Split(DirSpec, "\") DirSpec = DD.Path For N = LBound(Directories) To UBound(Directories) DirSpec = DirSpec & "\" & Directories(N) If FSO.FolderExists(DirSpec) = False Then On Error Resume Next Err.Clear FSO.CreateFolder (DirSpec) If Err.Number <> 0 Then MakeMultiStepDirectory = ErrDirectoryCreateError Exit Function End If End If Next N MakeMultiStepDirectory = ErrSuccess End Function You can then call this code from your own code as follows: Sub AAA() Dim Result As EMakeDirStatus Result = MakeMultiStepDirectory("C:\One\Two\Three\Four") If Result = ErrSuccess Then Debug.Print "Success" Else Debug.Print "Error" End If End Sub

تحت امرك ولا شكر على واجب

لان ببساطة جدا حضرتك في الجدول اللى اسمه NewLab في الحقل OK_JO كان في قيم 0 Database1.rar

ممكن مرفق من برنامجك

يا سلام انت تأمر إتفضل LargeCheckBox ☺2.mdb

up 😃

فكرة بره الصندوق خالص

السلام عليكم شوف دى كده LargeCheckBox ☺.mdb

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

شافاك الله و عافاك اسال الله العظيم انا تعود سالما معافى من العملية واتمنى لك الشفاء العاجل