kanory

بعد اذن أخي الكريم @ابو البشر اسمح لي ان اقتنص شكل نموذجك المقترح واكمل عليه المطلوب ...... ملاحظة :::: - يجب تنصيب اخر نسخة من الواتس في الجهاز - يجب تفعيل الامان في بريدك الخاص بالجي ميل - يجب الضغط على الضبط اول مرة فقط لتسجيل بريدك في الجي ميل والباس بعد تفعيل الامان فيه - يجب اولا لارسال رسائل الواتس تشغيل برنامج الواتس ثم الضغط على زر ارسال رسائل الواتس جرب واعلمنا بالنتيجة ............................ مجلد جديد (3).rar

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

ما شاء الله تبارك الله جاري التجربة .... ولكن هل يمكن توسيط بيانات هذا الحقل المدمج . ؟؟؟؟

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

اقرأ هنا <><><><><><><><>

وعليكم السلام ورحمة الله وبركاته ولك بمثل مادعوت اخي @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"

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