শব্দ / অ্যাক্সেস ভিবিএ মোট

আমার ভিবিএ ওয়ার্ড টেবিল কলাম ক্যালকুলেশন সাহায্য প্রয়োজন। আমার ওয়ার্ড টেবিলটি অ্যাক্সেস ডাটাবেস ভিবিএ ব্যবহার করে একটি ওয়ার্ড টেমপ্লেটে তৈরি করা হয়েছে। আমার সারণির শেষ কলামের জন্য যোগফল গণনা করতে হবে। তবে আমার টেবিলটিতে সারিগুলির কোনও সংখ্যক নির্ধারিত নেই। আমি কোনও সাফল্যের জন্য বিভিন্ন অপশন চেষ্টা করেছি .... নিম্নলিখিতটি সারণিটি সাফল্যের সাথে তৈরি করে এবং একটি গণনা করে তবে আমার টেবিলের কেবলমাত্র শেষ দুটি সারি (বর্তমানে আমি যে রেকর্ডটিতে রয়েছি তার জন্য 3 সারি) তবে যোগফল গণনা করে না পুরো কলামের আশা হিসাবে। আমি কী মিস করছি তা আমি কাজ করতে পারি না?

Dim rs2 As DAO.Recordset
Set rs2 = CurrentDb().OpenRecordset("SELECT * FROM InvoiceServiceLineItems WHERE InvoiceID=" & Forms!invoicedetail!ID, dbOpenSnapshot)

   With rs2
    .MoveLast
        If Not .EOF Then
            .MoveLast
            .MoveFirst
        End If
    End With

Dim indx As Integer
For indx = 1 To rs2.RecordCount
    With oDoc.Tables(3)
        .Cell(indx, 1).Range.Text = Nz(rs2![LineItemCode], "")
        .Cell(indx, 2).Range.Text = Nz(rs2![Description], "")
        .Cell(indx, 3).Range.Text = Nz(rs2![InitialTerm], "")
        .Cell(indx, 4).Range.Text = Format(Nz(rs2![UnitPrice], ""), "Currency")
        .Cell(indx, 5).Range.Text = Nz(rs2![Quantity], "")
        .Cell(indx, 6).Range.Text = Format(Nz(rs2![LineTotal], ""), "Currency")
        If rs2.AbsolutePosition <> rs2.RecordCount = -1 Then .Columns(1).Cells.Add

        .Cell(indx, 6).AutoSum
    End With
    rs2.MoveNext
Next indx

microsoft-word vba

— ডিক্লান জি
সূত্র

আমি শুরুতে যুক্তি অনুসরণ করি না। আপনি .মালোস্ট তারপরে যদি এটি না হয়। EOF (এটি কীভাবে হবে না?) আপনি অন্য কাজ করেন ove তাহলে একটি .মোভ ফার্স্ট? সুতরাং প্রথমটি কীভাবে রেকর্ডসেটটি শুরু হয় যদি শুরু হয় L আপনি বলছেন এটি কেবল সর্বশেষ দুটি রেকর্ড প্রক্রিয়াজাত করছে তবে আমার গণনা দ্বারা এটি কেবল একটি রেকর্ড প্রক্রিয়া করা উচিত - শেষটি। সম্ভবত আপনার কেবল প্রথমটি মুছে ফেলা দরকার .আমাদের সর্বশেষ বা সর্বনিম্ন শর্তে .মোভ ফার্স্টটি নিঃশর্তভাবে রেখে দিন।

— বিল হিলিমান

ধন্যবাদ বিল। আমি আপনার অন্তর্দৃষ্টি সহ সমস্ত কিছুর বিভিন্ন প্রকারের চেষ্টা করেছি, তবে এখনও আমার সম্পূর্ণ প্রত্যাশিত মোটটি পাচ্ছি না। রেকর্ড রয়েছে তবে দু'জনের সংক্ষিপ্তসার হচ্ছে! লড়াই চালিয়ে যাবে। আমি সম্ভব জিনিসগুলিতে অস্পষ্ট তবে আমি যদি সফল হয় তবে এখানে সমাধান যুক্ত করব।

— ডিক্লান জি

সম্ভবত, আপনি লুপের বাইরে অটোসাম সেট করতে চাইবেন এবং যোগফলের মোট সেল সূচকটি হবে "রেকর্ডকઉન્ટ + 1"।

আপনি পৃথক ক্যোয়ারী যেমন শেষে ব্যবহার করে সমষ্টিটিও করতে পারেন

SELECT sum(LineTotal) as querySumTotal FROM InvoiceServiceLineItems WHERE InvoiceID=" & Forms!invoicedetail!ID

— Yorik
সূত্র