Barna

مشاركة مع حبايبنا الاساتذة .... استخدمن هذا الكود لتصدير العمودين وبعض البيانات لملف الاكسل ..... Dim db1 As DAO.Database Dim Rst1 As DAO.Recordset Set db1 = CurrentDb Dim objExcel As Object Dim objWorkbook As Object Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(sXlsFile) Set Rst1 = db1.OpenRecordset("temp", dbOpenSnapshot) objWorkbook.Sheets(2).range("H1").Value = "اسماء طلاب الصف " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد8] & ")" & "الشعبة " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد12] & ")" With Rst1 If .RecordCount <> 0 Then .MoveFirst objWorkbook.Sheets(2).range("b5").CopyFromRecordset Rst1 objWorkbook.Sheets(2).range("b5").Select End If End With objExcel.DisplayAlerts = True objWorkbook.Close SaveChanges:=True Set objWorkbook = Nothing objExcel.Quit Set objExcel = Nothing Set Rst1 = Nothing Set db1 = Nothing VBA.Shell "Explorer.exe " & Chr(34) & sXlsFile & Chr(34), vbNormalFocus DoCmd.DeleteObject acTable, "temp" انظر النتيجة في ملف الاكسل .......... Ba_Deffi.rar

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

تفضل كود لتصدير الاسعلام On Error Resume Next DoCmd.OutputTo acOutputQuery, "الموظف", acFormatXLSX, CurrentProject.Path & "\استعلام الموظفين.xlsx", True Dim strSQL As String Beep MsgBox "تم تصدير بيانات الاستعلام بنجاح" أما بخصوص استيراد الاستعلام فيتم استيراد الاستعلام داخل جدول وليس استعلام اسف اخي محمد لم ارى اجابتك

حياك الله داما وتشرفي ..... خلاص اجهز الكنكة .....ههههه بارك الله فيك أخي الحبيب

والله مريت بس يبدو لي اني لم احتسي كوبا من القهوة لذلك انظر المرفق وبدون قهوة .... لس راضي عنه ولكن ........ ان ناسبتك الفكرة طبقها والا ارم بها في عرض البحر ... ba_TT21.mdb

اذا عندك استعداد لدفع غرامة 1000ريال انا ماعندي استعداد اشيل الكمامة 😷

كل الاستعلامات لاتحتاجها ما عدا bar وايضا الجدول student1 لاتحتاجه ..... احذفه

ماذا تقصد في هذا الكمبو

تفضل ----------> ba_T21.mdb

الأستاذة @محمد أبوعبدالله @husamwahab @فايز.. بارك الله فيكم ..... إنما أنا تليذكم ولا زلت اتعلم منكم احسن الله اليكم وبحسن ظنكم بي ..... هذا دأب الكبار أمثالكم التواضع .... رفع الله قدركم

جرب الملف ,,,, ‏‏faiz - نسخة.mdb

مشارك مع حبايبي الاساتذه .... ‏‏faiz - نسخة.mdb

ممكن مثال عشان نعرف ايش المشكلة

اكتبها بهذا الشكل ---------> =Sum([price])

On Error GoTo Error_ErrorZ If Len(Me.B1 & vbNullString) = 0 Or Len(Me.B2 & vbNullString) = 0 Or Len(Me.B3 & vbNullString) = 0 Or Len(Me.B4 & vbNullString) = 0 Or Len(Me.B5 & vbNullString) = 0 Then Else DoCmd.SetWarnings False DoCmd.OpenQuery "Query1" DoCmd.SetWarnings True ' MsgBox "Done", vbInformation DoCmd.RunCommand acCmdRefresh End If Error_ErrorZ: MsgBox "Not Done", vbInformation

استعمل هذا الكود !!!! Dim Warning As String Warning = MsgBox("أنت الآن على وشك التحديث فهل أنت واثق من رغبتك في التحديث", vbYesNo + vbQuestion, "تحذير") If Warning = vbYes Then DoCmd.SetWarnings (False) ضع هنا استعلام التحديث المطلوب DoCmd.SetWarnings (True) Else DoCmd.CancelEvent End If

هذه طريقة بدون اكواد .... انظر DB1.accdb

ممكن تزودنا بعدد من المسارات قبل التعديل والمسار بعد التعديل ؟؟؟؟

جرب كدا وخبرنا ...... Pro-In-Tmt.accdb

انظر المرفق ...... ما هو الداعي لاستخدامها في الاستعلام ( الراتب مسجل في الجدول ) انشئ الاستعلام من الجدول مباشرة أنظر الاستعلام في المرفق .... test (8).accdb

ما شاء الله تبارك الله الحمد لله رب العالمين بارك الله فيك اخي علاء بالتوفيق .....

تفضل ..... DoCmd.OutputTo acOutputQuery, "qryEmp", acFormatXLS, , False MyMesg "تمت عملية تصدير الاستعلام الى المسار المحدد بنجاح"

تفضل انظر .... test (7).accdb

ضع هذا في المديول Function salary1(frm As String) If Forms(frm)!المهنة = "طبيب" Then Forms(frm)!الراتب = 10000 ElseIf Forms(frm)!المهنة = "مهندس" Then Forms(frm)!الراتب = 9000 ElseIf Forms(frm)!المهنة = "صيدلي" Then Forms(frm)!الراتب = 8000 ElseIf Forms(frm)!المهنة = "معاون طبيب" Then Forms(frm)!الراتب = 7000 ElseIf Forms(frm)!المهنة = "معاون مهندي" Then Forms(frm)!الراتب = 6000 ElseIf Forms(frm)!المهنة = "" Then Forms(frm)!الراتب = 0 End If End Function استدعيه من النموذج بهذا الكود Call salary1(Me.Name) DoCmd.RefreshRecord