عمل جستجو [بایگانی] - برنامه نویس

ITST-1

دوشنبه 17 مهر 1385, 13:02 عصر

با سلام

دوستان من جدولی دارم که در آن فیلدی شامل نام و نام خانوادگی است .

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

سنبله کار

سه شنبه 18 مهر 1385, 08:14 صبح

اینجا رو ببینید احتمالا کمکتون کنه http://barnamenevis.org/forum/showthread.php?t=50952

mohammadgij

سه شنبه 18 مهر 1385, 17:17 عصر

اینجا رو هم ببین
http://barnamenevis.org/forum/showpost.php?p=255097&postcount=37

ITST-1

چهارشنبه 19 مهر 1385, 10:56 صبح

دوستان من ایک کدها را وارد کردهام اما واسه بعضی از نام و نام خانوادگی ها عمل نمی کند مثلا(ماشاءاله موسوی هنجی)نمی دانم علت چیست ا

Dim strname As String
Dim strSearch As String
Dim msg As Integer
If IsNull(Me![txtsearch]) Or (Me![txtsearch]) = "" Then
msg = MsgBox(" . äÇã ÑÇ ÌåÊ ÌÓÊÌæ æÇÑÏ äãÇÆíÏ" & vbCrLf & _
" ", vbOKOnly, "...ÈÑäÇãå")

Me![txtsearch].SetFocus
Exit Sub
End If

DoCmd.ShowAllRecords
DoCmd.GoToControl ("flname")
DoCmd.FindRecord Me!txtsearch

FLNAME.SetFocus
strname = FLNAME.Value
txtsearch.SetFocus
strSearch = txtsearch.Text

If strname = strSearch Then
FLNAME.SetFocus
' txtSearch = ""

'' Else
'' MsgBox " " & strSearch & " ÏÑ Çíä ÓíÓÊã ËÈÊ äÔÏå ÇÓÊ ", _
, "ÑÇåäãÇ"
'' txtsearch.SetFocus
End If
End Sub