ابو البشر

اشكرك اخي الكريم .... بارك الله فيك ...

الطريقة هذه جربتها من قبل .... ولغيت العمل بها لانها تظهر المتصفح امام المستخدم ... جزاك الله خيرا .... وايضا هذه الطريقة تظهرها ... غير مرغوب فيها .... Dim IEE As Object Set IEE = CreateObject("InternetExplorer.Application") 'Create object IEE IEE.navigate "https://wa.me/" & txtNumbers

ظهرت هذه الرسالة .....

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

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

كيف يتم التطبيق على هذا الارتباط ...... ABO.mdb

كما هو واضح من السؤال كيف يمكن ايقاف هذه الرسالة ؟؟؟ بارك الله فيكم ....

جرب استخدم هذا ....................... Function ClearClipboardData_clt() As Boolean On Error GoTo err_ClearClipboardData_clt Dim lngTemp As Long ' If clt_OpenClipboard(0&) <> 0 Then ' lngTemp = clt_EmptyClipBoard() ' lngTemp = clt_CloseClipboard() ' End If ClearClipboardData_clt = True exit_ClearClipboardData_clt: Exit Function err_ClearClipboardData_clt: ClearClipboardData_clt = False Resume exit_ClearClipboardData_clt End Function

جرب الملف .... 1.rar

اصنع مثل هذا افضل للمستخدم .....

اصنع زر سجل جديد وضع فيع هذا ... Me.Requery DoCmd.GoToRecord , , acNewRec

تفضل ملفك .... واعلمنا بالنتيجة ... 1.rar

اقرأ هذا الموضوع ......

@ابو جودي ههههههه .... مثلا هذا الملف .... ‎.rar

بالتوفيق .....

طيب يكفي تقرير واحد لكل هذه العمليات الثلاث ... انظر جرب ..... فلتر وتصفية ثلاث معيار (2).accdb

ولماذا ثلاث ازرة للطباعة ... ؟؟؟؟

وهذه مشاركة مع اخي أحمد ..... فلتر وتصفية ثلاث معيار.accdb

اضف هذا الكود تحت امر عند فتح النموذج الرئيسي لديك .... Set rst = CurrentDb.OpenRecordset("pu_inv8") With rst .AddNew .Fields("as_a1") = Forms!pu_inv8.as_a1.Value .Fields("as_a2") = Forms!pu_inv8.as_a2 .Update End With

بارك الله فيك اخي الكريم .... ولكن تظهر رسالة شبيه لرسالة الدكتور .... الاوفيس 16 - 32 bit

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

جاري التجربة ... احسنت

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

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

وهذه مشاركة وايضا حسب فهمي .... ههههههه ماذا لو استخدمنا وحدة نمطية تسهل على المبرمج اعادة وكتابة هذه الاكواد كلما احتاج اليها .... وايضا منعنا التكرار .... Public Function MoveData(FromTableName As String, ToTableName As String, Optional AttachmentFieldName As String = "No Attachment", Optional IgnoreAttachment As Boolean = True) On Error GoTo HandleErr Dim rstFromTable As DAO.Recordset Dim rstToTable As DAO.Recordset Dim fldFrom As DAO.Field2 Dim rstToAttach As DAO.Recordset2 Dim fldAttach As DAO.Field2 Dim rstFromAttach As DAO.Recordset2 Err.Clear Set rstFromTable = CurrentDb.OpenRecordset(FromTableName) Set rstToTable = CurrentDb.OpenRecordset(ToTableName) If (rstFromTable.BOF And rstFromTable.EOF) Then Exit Function End If Do While rstFromTable.EOF = False rstToTable.AddNew ' main add record For Each fldFrom In rstFromTable.Fields If fldFrom.IsComplex = False Then rstToTable(fldFrom.Name).Value = fldFrom.Value Else If AttachmentFieldName <> "No Attachment" Then rstToTable.Update rstToTable.Bookmark = rstToTable.LastModified rstToTable.Edit Set rstFromAttach = fldFrom.Value Set rstToAttach = rstToTable(fldFrom.Name).Value If rstFromAttach.RecordCount > 0 Then If IgnoreAttachment = False Then Do While rstFromAttach.EOF = False rstToAttach.AddNew For Each fldAttach In rstFromAttach.Fields If (IsNull(fldAttach.Value) = False) And (fldAttach.Name <> "FileType") Then rstToAttach(fldAttach.Name).Value = fldAttach.Value End If Next 'fldAttach rstToAttach.Update rstFromAttach.MoveNext Loop End If End If End If End If Next fldFrom rstToTable.Update rstFromTable.MoveNext Loop rstFromTable.Close rstToTable.Close ExitHere: Set rstFromTable = Nothing Set rstToTable = Nothing Set rstFromAttach = Nothing Set rstToAttach = Nothing Exit Function HandleErr: Select Case Err.Number Case 53 Err.Clear Resume Next Case 91 Err.Clear Resume Next Case 3020 Err.Clear Resume Next Case 3021 Err.Clear Resume Next Case 3022 Err.Clear Resume Next Case Else Debug.Print "Error " & Err.Number & ": " & Err.Description End Select Resume ExitHere End Function الحاق البيانات.accdb