kanory

وعليكم السلام ورحمة الله وبركاته ولك بمثل مادعوت اخي @TQTHAMI

انشأ وحدة نمطية وضع فيها هذا الكود .............. Public Sub CreateDesktopShortcutWithIcon() Dim WshShell As Object Set WshShell = CreateObject("Wscript.Shell") Dim strDesktop As String strDesktop = WshShell.SpecialFolders("Desktop") Dim oShellLink As Object Dim fil, fil1 As String Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & DLookup("[nsh]", "[tblsho]") & ".lnk") oShellLink.TargetPath = CurrentProject.Path & "\" & CurrentProject.Name oShellLink.WindowStyle = 1 oShellLink.IconLocation = DLookup("[pc]", "[tblsho]") oShellLink.Description = DLookup("[nsh]", "[tblsho]") oShellLink.WorkingDirectory = strDesktop oShellLink.Save End Sub تحت الزر الموجود في النموذج ضع هذا الاستدعاء ............. Call CreateDesktopShortcutWithIcon جرب وأعلمنا بالنتيجة <<<<<>>>>>>

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

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

طيب جرب كده ........................... Database31.rar

هل جميع البيانات بهذه الصيغة أم تختلف ................

العفو منك دكتورنا @الحلبي الحبيب منكم نتعلم بارك الله فيك

طيب من مبدأ علمني كيف اصطاد .............. اخي الكريم جملة select في غالبها هي استعلام .... اذن انسخ الجملة ثم اضفها في محرر الاستعلام وعدل كما في الصور ........

او استخدم IF في حدث عند التحديث لمربع النص ..... If Me.m1.Column(1) = "رقم فاتورة الشراء" Then Me.m2.RowSource = "SELECT master.masterinvoice FROM master;" ElseIf Me.m1.Column(1) = "اسم المورد" Then Me.m2.RowSource = "SELECT master.countname FROM master;" ElseIf Me.m1.Column(1) = "اسم الصنف" Then Me.m2.RowSource = "SELECT master.categoryname FROM master;" ElseIf Me.m1.Column(1) = "كود الصنف" Then Me.m2.RowSource = "SELECT master.catcod FROM master;" End If

وعليكم السلام ورحمة الله وبركاته .... استخدم مثلا Select Case Me.m1.Column(1)

استخدم هذا لمصدر عتصر التحكم لمربعات النص الثلاث مع تعديل العبارة حاضر الى غائب و متأخر ....... للحضور =DCount("[a1]";"[استعلام1]";"[name1] ='" & [Forms]![الرئيسي]![name1] & "' And [a1] ='حاضر' ") للغياب =DCount("[a1]";"[استعلام1]";"[name1] ='" & [Forms]![الرئيسي]![name1] & "' And [a1] ='غائب' ") للتأخر =DCount("[a1]";"[استعلام1]";"[name1] ='" & [Forms]![الرئيسي]![name1] & "' And [a1] ='متأخر' ")

في مربع النص numboerx في حدث بعد التحديث استخدم هذا الكود ............................ Dim D As Object Dim x As Integer Set D = CurrentDb.OpenRecordset("q1") x = Me.Numberx DoCmd.RunCommand acCmdSaveRecord With D Do While Not (.EOF) .Edit .Numberx = x .Update x = x + 1 .MoveNext Loop End With Set D = Nothing

وعليكم السلام .... يمكن عمل برنامج التجميع بشرط تماثل الجداول و عدم وجود مفتاح في جداول برنامج التجميع .... والله اعلم ...

وعليكم السلام ورحمة الله وبركاته .... يعني تقصد توزيع ارقام في الاستعلام يبدأ من الرقم الموجود في مربع النص test2 هل هذا صحيح ؟؟؟؟ اذا كان غير ذلك .. وضح بالتفصيل ...

طيب .... هذه نسخة مبسطة كما ذكرت ويمكن الابداع في طريقة تنفيذها ...... 1- النموذج المراد تعديله ... 2- نسخة لإعادة التجربة . طبعا يمكن اضافة اضافات لبرنامج التحديث اخذ مثلا نسخة احتياطية قبل التنفيذ ..... ايضا يمكن اضافة التعرف على برنامج العميل من حيث النسخة وهل البرنامج محدث او لا الى إخره من الابداعات والمهارات ................................... kan_PRO.rar

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

Sub EXPORT_TO_EXCEL_01() '.. EXPORT TO EXCEL USING DOCMD RUNSQL DoCmd.RunSQL "SELECT [ID],[Fullname],[tel] INTO SHEET_NAME IN'" _ & CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM data" End Sub Private Sub Command3_Click() On Error Resume Next 'DoCmd.OutputTo acOutputTable, "Data", acViewPreview DoCmd.SetWarnings False EXPORT_TO_EXCEL_01 MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... " On Error GoTo 1 Application.FollowHyperlink CurrentProject.Path 1: DoCmd.SetWarnings True End Sub

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

استبدله جميعا بهذا الكود ..... Dim Output_Path As String Output_Path = CurrentProject.Path & "\bb" & "-" & Format(Now(), "dd-mm-yyyy") & ".xlsx" DoCmd.TransferSpreadsheet acExport, , "data", Output_Path Application.FollowHyperlink CurrentProject.Path & "\bb" & "-" & Format(Now(), "dd-mm-yyyy") & ".xlsx"

وعليكم السلام ورحمة الله وبركاته .... اذا عرفنا سبب عدم استخدامك حقل نص لذلك ربما نجد لك حل اخر ..... ؟؟؟؟؟

انظر .....

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

اخي الكريم @أبو ماجد الغامدي عدل افضل اجابة .... لاني لم اجب على سؤالك بارك الله فيك ...

تقصد تغير الفريق بالكامل وتستدعي الاحتياط ... ههههه

اعمل جدول مثل هذا ..... حيث يتم طباعة الخطاب حسب الثلاث سجلات بها ::: 1- جزاءات برقم الصادر ( حيث يمكن جعل رقم الصادر متغير تلقائيا كل عملية طباعة يزيادة رقم للسجل بدون تدخل منك . 2- ماهيات برقم ايضا بنفس فكرة الجزاءات ==========================================. 3- والاخيرة نسخة المكتب وهي بدو رقم .... هذا اذا كان فهمي للموضوع سليما .................................................................................