نمایش نتایج: از شماره 1 تا 6 , از مجموع 6

موضوع: انتقال اطلاعات از دو فرم به یک دیتابیس در امتداد یکدیگر

  1. #1


    آخرین بازدید
    2021/04/26
    تاریخ عضویت
    February 2010
    محل سکونت
    تهران-مشهد-عسلویه
    نوشته ها
    86
    امتیاز
    66
    سپاس
    67
    سپاس شده
    63 در 31 پست
    تعیین سطح نشده است

    Depressed انتقال اطلاعات از دو فرم به یک دیتابیس در امتداد یکدیگر

    سلام خدمت اساتید عزیز
    در فایل زیر 3 شیت داریم که 2 شیت درواقع فرم هستند و یک شیت دیتابیس. ( ابتدا باید فرم 1 تکمیل بشه و سپس فرم 2 ) . میخواستم وقتی اطلاعات در فرم 1 پر میشه و به دیتابیس انتقال میدیم با کد ویژوال، هرزمان فرم 2 پر شد اطلاعات باتوجه به آیتم منحصر بفرد (کدپرسنلی ) در امتداد همان اطلاعات قرار بگیره.
    مورد بعدی این که میخواستم در شیت استارت وقتی اپراتور روی فرم 1 کلیک میکنه قبل اینکه وارد فرم 1 بشه کد درخواست کنه و اگه اپراتور اون کد رو درست وارد کرد وارد فرم 1 بشه.
    ممنووون بابت پاسخگویی دوستان عزیز
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsx q new.xlsx اطلاعات (14.2 کیلو بایت, 23 نمایش)

  2.  

  3. #2


    آخرین بازدید
    2024/01/21
    تاریخ عضویت
    November 2013
    محل سکونت
    تهران
    نوشته ها
    1,519
    امتیاز
    6121
    سپاس
    2,884
    سپاس شده
    4,889 در 1,381 پست
    سطح اکسل
    71.67 %

    سلام،
    لينک فرم 1 را در صفحه استارت به اين ماکرو ربط دهيد:
    کد PHP:
    Sub Macro1()
    Dim C As String
    InputBox("کد دسترسي را وارد کنيد")
    If 
    "123" Then
    Sheet3
    .Activate
    Else
    MsgBox "کد غلط است"vbOKOnly
    End 
    If
    End Sub 
    و دگمه تاييد فرم دو را به چنين ماکرويي لينک دهيد:
    کد PHP:
    Sub Macro2()
    Dim C As Range
    For Each C In Sheet4.Range("F9:F500")
    Sheet2.Select
    Sheet2
    .Range("A2:A500").Find(C, , xlValuesxlWhole).Select
    Selection
    .Offset(05).Value C.Offset(01).Value
    Selection
    .Offset(06).Value C.Offset(02).Value
    Next
    End Sub 
    البته براي کد براي 500 سطر نوشته شده
    ویرایش توسط Ali Parsaei : 2016/02/08 در ساعت 12:55


  4. #3


    آخرین بازدید
    2021/04/26
    تاریخ عضویت
    February 2010
    محل سکونت
    تهران-مشهد-عسلویه
    نوشته ها
    86
    امتیاز
    66
    سپاس
    67
    سپاس شده
    63 در 31 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط علي پارسا نمایش پست ها
    سلام،
    لينک فرم 1 را در صفحه استارت به اين ماکرو ربط دهيد:
    کد PHP:
    Sub Macro1()
    Dim C As String
    InputBox("کد دسترسي را وارد کنيد")
    If 
    "123" Then
    Sheet3
    .Activate
    Else
    MsgBox "کد غلط است"vbOKOnly
    End 
    If
    End Sub 
    و دگمه تاييد فرم دو را به چنين ماکرويي لينک دهيد:
    کد PHP:
    Sub Macro2()
    Dim C As Range
    For Each C In Sheet4.Range("F9:F500")
    Sheet2.Select
    Sheet2
    .Range("A2:A500").Find(C, , xlValuesxlWhole).Select
    Selection
    .Offset(05).Value C.Offset(01).Value
    Selection
    .Offset(06).Value C.Offset(02).Value
    Next
    End Sub 
    البته براي کد براي 500 سطر نوشته شده
    ممنون از پاسخگویی . چطوری میشه بجای اینکه از offset استفاده کنیم، از تابع match استفاده کنیم تا داینامیک تر بشه؟

  5. #4


    آخرین بازدید
    2021/04/26
    تاریخ عضویت
    February 2010
    محل سکونت
    تهران-مشهد-عسلویه
    نوشته ها
    86
    امتیاز
    66
    سپاس
    67
    سپاس شده
    63 در 31 پست
    تعیین سطح نشده است

    چطوری میشه هنگامی که پسورد زده میشه به صورت * نمایش داده بشه؟ ( یعنی اپراتور که میزنه 123 ما *** مشاهده کنیم )

  6. #5


    آخرین بازدید
    2024/01/21
    تاریخ عضویت
    November 2013
    محل سکونت
    تهران
    نوشته ها
    1,519
    امتیاز
    6121
    سپاس
    2,884
    سپاس شده
    4,889 در 1,381 پست
    سطح اکسل
    71.67 %

    براي inputbox بلد نيستم چطور اين کار را مي شود کرد،
    ولي مي شود به جاي inputbox از يک يوزر فرم استفاده کرد و در آن يوزر فرم يک textbox براي ورود رمز قرار داد و کد را بر مبناي آن نوشت.
    در آن صورت مي توانيد در جلوي خصوصيت passwordchar براي تکست بکس عبارت "*" بنويسيد و در آن صورت هر چه که در تکست بکس تايپ کنيد به صورت ستاره مشاهده خواهد شد.

  7. سپاس ها (3)


  8. #6


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط exceliran نمایش پست ها
    ممنون از پاسخگویی . چطوری میشه بجای اینکه از offset استفاده کنیم، از تابع match استفاده کنیم تا داینامیک تر بشه؟
    با سلام.

    دوست عزیز نمیدونم منظورتان از داینامیک تر چی هستش.ولی همین کدی که دوست عزیزمان آقای پارسا زحمتش رو کشیدن خودش داینامیک هستش.

    بله، میتوان از Match یا Vlookup و یا توابع مشابه استفاده کرد ولی با این کدها من نیازی نمیبینم از این تابع استفاده کنم چون یکم گیج کننده میشه.

    به هرحال میتونید کد رو به شکل زیر بنویسید تا به قول شما داینامیکتر بشه...

    کد PHP:

    On Error Resume Next
    Dim C 
    As Range
    For Each C In Sheet4.Range("F9"Range("F100000").End(xlUp).Address)
    Sheet2.Select
    Sheet2
    .Range("A2"Range("a100000").End(xlUp).Address).Find(C, , xlValuesxlWhole).Select
    Selection
    .Offset(05).Value C.Offset(01).Value
    Selection
    .Offset(06).Value C.Offset(02).Value
    Next 
    باز اگر منظورتان را خوب متوجه نشدم بیشتر توضیح بدهید که منظورتان دقیقا چیست...؟
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/



  9. سپاس ها (3)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. وارد شدن اطلاعات به دیتابیس به صورت خودکار(کمک)
    توسط Radin در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 8
    آخرين نوشته: 2020/11/21, 06:03
  2. پاک کردن یکجا دیتابیس
    توسط alikaraj66 در انجمن سوالات اكسس - Access Questions
    پاسخ ها: 1
    آخرين نوشته: 2016/05/18, 11:18
  3. راهنمایی جهت ساخت یک دیتا بیس و خروجی گرفتن از آن
    توسط khatkhatii در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2014/05/18, 23:04
  4. استفاده از اکسل به عنوان دیتا بیس
    توسط anahita در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 11
    آخرين نوشته: 2013/05/27, 01:16
  5. کمک در آموزش دیتا بیس
    توسط saro1356 در انجمن پیوت تیبل و پايگاه داده - Pivot Table and Database
    پاسخ ها: 19
    آخرين نوشته: 2012/09/02, 11:32

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد