نمایش نتایج 1 تا 2 از 2

نام تاپیک: کمک فوری - سرچ در جدول و بارگذاری در تکست باکس

  1. #1

    کمک فوری - سرچ در جدول و بارگذاری در تکست باکس

    سلام
    لطفا این کد رو برام یکی بنویسه
    از جدول مثلا customer بر اساس یه فیلد مثلا meii_code یه مقداری جستجو بشه و بعد از پیدا شدن اطلاعات اون رکورد در چند تا تکست باکس که داخل فرم هستند بارگذاری بشن

    خودم این کد رو نوشتم اما خطا داره

    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset

    'Get the database and Recordset
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("Customer")

    rst.FindFirst "[meli_code] = '0430150199'"
    'Check the result
    If rst.NoMatch Then
    MsgBox "Record not found."

    Else
    Do While Not rst.NoMatch
    MsgBox "Customer name: " & rst!CustName
    rst.FindNext "[meli_code] LIKE '*parts*'"
    Loop

    'Search for the next matching record
    rst.FindNext "[meli_code] LIKE '*parts*'"
    End If


    روی این خط بهم خطا میده
    rst.FindFirst "[meli_code] = '0430150199'"
    میگه : operation is not supported for this type of object
    فایل های ضمیمه فایل های ضمیمه
    • نوع فایل: rar AS.rar‏ (88.0 کیلوبایت, 9 دیدار)
    آخرین ویرایش به وسیله rouzbeh_ziafati : شنبه 22 تیر 1398 در 09:30 صبح

  2. #2
    کاربر دائمی آواتار mazoolagh
    تاریخ عضویت
    اردیبهشت 1384
    سن
    71
    پست
    3,030

    نقل قول: کمک فوری - سرچ در جدول و بارگذاری در تکست باکس

    1- کد ها رو در تگ code یا vb قرار بدین تا خوانا باشه

    2- پیغام خطا خودش مشخص میکنه که نوع رکوردستی که باز کردین متد find رو پشتیبانی نمیکنه
    نوع رکوردست بصورت پیش فرض table هست، باید dynaset باشه
    SET RST=CURRENTDB.OPENRECORDSET("...",DBOPENDYNASET)


    3- کدی که برای جستجو نوشتین خوب نیست!

تاپیک های مشابه

  1. پاسخ: 1
    آخرین پست: یک شنبه 06 فروردین 1396, 09:01 صبح
  2. پاسخ: 7
    آخرین پست: سه شنبه 28 آذر 1391, 13:48 عصر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •