ابوآمنة

أين برنامج حضرتك الذي به الخلل أو الكود

ارفع جزء من ملفك ليساعدوك الزملاء

جرب المرفق SukkarACC2.rar

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

حاول عمل استعلام يضم الحقول التي تريد من الجداول .

شكرا لك ع الشرح الوافي

ألاحظ أنه يقبل المسار المباشر : C:\saleh دون الدخول في المجلدات هل هناك مشكلة !!!

ممكن تشرح لنا الأكواد المستخدمة Dim fs, strFolder Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists("C:\Windows\System32\kh_MO") = True Then والثاني Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.CreateFolder "C:\Windows\System32\kh_MO" علماً أني دخلت نفس المسار فلم أجد شيء C:\Windows\System32\kh_MO

اليوم واجهة نفس المشكلة في جهاز آخر وبعد نقل البرنامج لجهاز الحالي تأثر البرنامج واختفت الأكواد ولم تعد😭

33.accdbبعد التعديل

‏شكرا جزيلا أخي الكريم على هذا البرنامج الاكثر من رائع في الحقيقة نطمع من فضلكم العظيم أن تخزن قيمتي دقائق المدة التجريبية ودقائق المدة المستخدمة في ذاكرة الرجستري بحيث لو تم العبث في حقلي الدقائق أو تم حذفه الجدول او تغيير مسماه بأي شكل من الأشكال يتم تنبيه المستخدم ويظهر له واجهة رقم النسخة .

هناك مشكلة واجهتني كل يوم يقوم بإظهار تسجيل النسخة من جديد . واعتقد ذلك من كود التاريخ Function Seperate_Digits(T) On Error Resume Next 'T = Text From Query If Len(T & "") = 0 Then Seperate_Digits = "" Exit Function End If For i = 1 To Len(T) 'the ascii number of each number c = Asc(Mid(T, i, 1)) 'ascii numbers we want '46= . '47= / '48= 0 '49= 1 '50= 2 '51= 3 '52= 4 '53= 5 '54= 6 '55= 7 '56= 8 '57= 9 Select Case c Case 48 To 57 Which_Letter = Which_Letter & Mid(T, i, 1) End Select Next i Seperate_Digits = Which_Letter End Function وهذا الكود التالي يظهر تاريخ اليوم وبناء عليه يتم تغيير رقم التسجيل كل يوم a3 = Trim(Seperate_Digits(Date)) هذا ما أظنه أرجو الإفادة

أخي الغالي ؛ يمكنك تقدير ثمن ساعة عملك على البرنامج مثال المعادلة التالية: سعر الساعة *عدد الساعات = ثمن البرنامج 30 * 10 = 300 طبعا ساعات العمل والثمن يختلفان كما ذكر الزميل باختلاف المكان والزمان أيضا يختلف الثمن بالشهرة وكثرة الطلب على برامجك. من خلال التجارب يميل بعض المستخدمين لمظهر البرنامج كثيرا .

شكراً لك أخي الكريم sandanet تم تغيير الرقم من ثلاثة أكواد بنجاح كود في المولد ( registration_key ) [q2] = [q1] * 3 كود في النموذج (frm) If Val(aa1) = Nz(DLookup("serial", "tblsn"), 0) / 3 Then كود في المديول ( Module2 ) ayna = aa1 * 3

ayna = aa1 * 3 هل استطيع تغيير معادلة الضرب في 3 إلى رقم آخر علماً أني غيرته في مولد التسجيل ( الكراك ) لكن لا يقبل

شكراً أخي الغالي هذا هو المطلوب

عفواً لا يحتاج محرك بحث الملفات ستكون بجوار البرنامج جنباً لجنب . "\" وشكراً اخي الغالي kaser906 لتفاعلك الرائع

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

بالمرفق الملف Datalink.rar

علماً الملف بجوار البرنامج في نفس المجلد

المطلوب :البحث عن اسم الملف أو الصورة وإرفاقه مساره في النموذج . مثلاً : لدي ملف من نوع PDF اسمه أو رقمه"2500" يقوم الكود بإرفاقه مساره في النموذج . هذا الكود المستخدم أريد التعديل عليه حسب المطلوب : With Application.FileDialog(msoFileDialogFilePicker) .Title = "اختر ملف" .ButtonName = "Select" .InitialFileName = treaNo .Filters.Clear .Filters.Add "كل الملفات", "*.*" If .Show = True Then Me.attach.Value = .SelectedItems(1) End If End With وشكراً لكم ،،،،

للاستزادة : تم حل الاستفسار من المشاركة التالية : http://arabteam2000-forum.com/index.php?/topic/204891-تابع-ارسال-بريد-من-الاكسيس-مباشرة/

لدي استفسار متعلق بنفس الموضوع : هل نستطيع إرسال مجموعة رسائل مختلفة البيانات بزر واحد ؟ مثلاً رسالة إلى محمد صالح بشأن افتتاح الملتقى . ورسالة ثانية إلى جعفر بشأن افتتاح المدرسة . مع اختلاف نص الرسائل والمرفقات

شكر خاص للمبرمج محمد سلامة تم تجربة الكود يعمل 100 % ومعذور وكان الله في عونك ،،، شكراً Barna لقد حاولت مساعدتي .

من لديه الخبره ! أين أضع كلمة المرور في هذه السطور ؟ If CheckLinks("") = False Then Call quit End If Dim tdfs As DAO.TableDefs Dim tdf As TableDef Dim sSourceDB As String Dim sBackupDB As String Dim backDBName As String Set tdfs = CurrentDb.TableDefs Set tdf = tdfs(tdfs.count - 1) sSourceDB = Right(tdf.Connect, Len(tdf.Connect) - 10) backDBName = Dir(Mid(tdf.Connect, 11)) sBackupDB = Mid(tdf.Connect, 11, Len(tdf.Connect) - (Len(backDBName) + 10)) '