PDA

View Full Version : سوال: شمارش و نمایش تعداد تکرار شدن یک اسم در جدول توسط دستور یا کویری؟؟؟



nani4u
سه شنبه 19 آذر 1392, 21:53 عصر
دوستان من هرچقدر توی اینترنت گشتم نتونستم دوستوری پیدا کنم که تعداد تکرار شدن یک اسم در جدول را برام در یک تکست باکس نمایش بده ؟

میخوام وقتی اسم کسی را وارد میکنم خودش جستجو کنه و برام نمایش بده که این شخص چند بار اسمش توی جدول هست .

اگه دوستان لطف کنن و این کار برام انجام بدن ممنون میشم .
شمارش و نمایش تعداد تکرار شدن یک اسم در جدول توسط دستور یا کویری؟؟؟:گریه:

فایل ضمیمه شد لطفا برام اصلاحش کنید............

hamid-nice
چهارشنبه 20 آذر 1392, 18:08 عصر
با سلام از نمونه زیر کمک بگیر
موفق باشید

nani4u
چهارشنبه 20 آذر 1392, 19:08 عصر
دوست عزیز فایل کلی خطای رفرنس میده میشه فایل بدون خطا بفرستید؟:گریه:

لطفا در مورد کدی که نوشتید بیشتر توضیخ بدید

nani4u
چهارشنبه 20 آذر 1392, 19:14 عصر
با سلام از نمونه زیر کمک بگیر
موفق باشید
113795
کمک کمک کمک کمک کمک کمک

hamid-nice
چهارشنبه 20 آذر 1392, 21:15 عصر
با سلام
فایل پست 1 را به روز کردم دوباره دانلود کنید
موفق باشید

nani4u
جمعه 22 آذر 1392, 11:58 صبح
با سلام
فایل پست 1 را به روز کردم دوباره دانلود کنید
موفق باشید

میشه این کدر را برام توضیح بدین؟
Private Sub ID_BeforeUpdate(Cancel As Integer)
err.Clear
On Error Resume Next
DoCmd.SetWarnings False
Dim p As String
Text168 = Me.ID
p = DCount("[ID]", "table1", "[ID]='" & Form_input.ID & "'")
Text168 = p
If p <> 0 Then
'Me.ID = Null
Cancel = True
MsgBox " æÌæÏ ÏÇÑÏ ID ", , ÊÚÏÇÏ
' Me.ID = Null
MsgBox p
End If
End Sub

hamid-nice
جمعه 22 آذر 1392, 16:01 عصر
کدام خط را می خواهید توضیح بدم ؟

nani4u
جمعه 22 آذر 1392, 18:33 عصر
کدام خط را می خواهید توضیح بدم ؟

میخوام به محض وارد شدن شماره پرونده یا نام و نام خانوادگی شخص تعداد مراجعه اون شخص در تکست( تعداد مراجعه) نمایش بده . لطفا هم با شماره پرونده و هم با نام و نام خانوادگی برام حلش کنید ممنونتون میشم . مثلا احمد احمدی دوبار اسمش تکرار شده میخوام برام تعداد 2 بار مراجعه را نمایش بد.

nani4u
شنبه 23 آذر 1392, 17:08 عصر
دوستان کسی نیست کمکم کنه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟:گریه:

safakia
شنبه 23 آذر 1392, 20:11 عصر
شما بایستی دوتا جدول داشته باشید وتوسط رابطه یک به چند به هم وصل شده باشند بعد شمارشگر با queryشمرده شود یعنی هر شخص بایشتی یک شماره پرونده داشته باشه اگه حل نشد بگید خودم طراحی می کنم شب خوش

hamid-nice
شنبه 23 آذر 1392, 20:57 عصر
دوستان کسی نیست کمکم کنه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟:گریه:
در رویداد oncurrent فرم عبارت زیر را بنویسید
در مورد شماره پرونده !!!!!!!

Text13 = DCount("fname", "table1", "[Fname]='" & Me.Fname & "' And [Lname]='" & Me.Lname & "'")

توضیح :
برای فیلد های رشته ای از علامت ' استفاده می شود که نوع رشته ای بودن فیلد را معین می کند(مثل کد بالا )
و برای فیلد های تاریخ از علامت #
و برای فیلد های از نوع نامبر هیچی لازم نیست بذارید

در ضمن برای موارد بیشتر به تاپیک های سایت از جمله سر بزنید:
http://barnamenevis.org/showthread.php?77475-DCount&highlight=dcount
و
http://barnamenevis.org/showthread.php?373806-%D8%B3%D9%88%D8%A7%D9%84-%D8%AA%DA%A9%D8%B1%D8%A7%D8%B1%DB%8C-%28-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-%D8%AA%D8%A7%D8%A8%D8%B9-Dcount-%29&highlight=dcount
و ...

nani4u
شنبه 23 آذر 1392, 22:04 عصر
در رویداد oncurrent فرم عبارت زیر را بنویسید
در مورد شماره پرونده !!!!!!!

Text13 = DCount("fname", "table1", "[Fname]='" & Me.Fname & "' And [Lname]='" & Me.Lname & "'")

توضیح :
برای فیلد های رشته ای از علامت ' استفاده می شود که نوع رشته ای بودن فیلد را معین می کند(مثل کد بالا )
و برای فیلد های تاریخ از علامت #
و برای فیلد های از نوع نامبر هیچی لازم نیست بذارید

در ضمن برای موارد بیشتر به تاپیک های سایت از جمله سر بزنید:
http://barnamenevis.org/showthread.php?77475-DCount&highlight=dcount
و
http://barnamenevis.org/showthread.php?373806-%D8%B3%D9%88%D8%A7%D9%84-%D8%AA%DA%A9%D8%B1%D8%A7%D8%B1%DB%8C-%28-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-%D8%AA%D8%A7%D8%A8%D8%B9-Dcount-%29&highlight=dcount
و ...

حمید جان ممنونم بابت راهنمایی و پاسخگویی سریعت .

یه سوال اگه بخوام نتیجه در جدولم ذخیره و ثبت بشه یعنی داخل یک فیلد جدید باید چکار کنم؟
امیدوارم که همیشه موفق باشی:قلب:

hamid-nice
شنبه 23 آذر 1392, 22:21 عصر
یک فیلد جدید در جدول بساز مثلا Totalinput , یک تکست باکس روی فرم به نام TotalTXT و این تکست باکس را باند کن به فیلد Totalinput ، و در رویداد oncurrent فرم بنویسید :

me.TotalTXT=me.Text13
موفق باشید.