[حل شده] کد دستور جستجو و ویرایش در فرم

[mohammad59]

سلام
خدمت دوستان
فرمی طراحی کردم که اطلاعات رو وارد اکسل میکنه تو این فرم کلید جستجو قراردادم ولی متاسفانه موفق به نوشتن دستورش نشدم

از دوستان تقاضا دارم دستوری برای کلید جستجو بنویسن که وقتی کد پرسنلی رو وارد میکنیم باز زدن کلید جستجو بتوان ویرایش و ثبت کرد

فایل پیوست رو گذاشتم خدمتتون

با سپاس

[iranweld]

با سلام

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

[mohammad59]

سپاسگزارم

ولی موردی که هست بعداز فراخوانی وقتی ویرایش می کنی تو ردیف جدید ثبت میکنه که بابد تو همون ردیف ویرایش رو انجام بده

[iranweld]

سپاسگزارم

ولی موردی که هست بعداز فراخوانی وقتی ویرایش می کنی تو ردیف جدید ثبت میکنه که بابد تو همون ردیف ویرایش رو انجام بده

فایل پیوست را بررسی بفرمایید.

Public x As Integer 

 If x = 0 Then
  
  Cells(emptyRow, 1).Value = TextBox1.Value
  Cells(emptyRow, 2).Value = TextBox2.Value
  Cells(emptyRow, 3).Value = TextBox3.Value
    Cells(emptyRow, 4).Value = TextBox4.Value
    
    If Len(ComboBox2) = 1 And Len(ComboBox3) = 1 Then
    
  Cells(emptyRow, 5).Value = "0" & ComboBox3.Value & "/" & "0" & ComboBox2.Value & "/" & ComboBox1.Value
  
  ElseIf Len(ComboBox2) = 1 Then
  
  Cells(emptyRow, 5).Value = ComboBox3.Value & "/" & "0" & ComboBox2.Value & "/" & ComboBox1.Value
  
  ElseIf Len(ComboBox3) = 1 Then
  
  Cells(emptyRow, 5).Value = "0" & ComboBox3.Value & "/" & ComboBox2.Value & "/" & ComboBox1.Value
  
  End If
  
  If OptionButton1.Value = True Then
      Cells(emptyRow, 6).Value = "ÔÚÈ"
  Else
      Cells(emptyRow, 6).Value = "ÏÝÊÑí"
  End If
  
  Else
  
  
  Cells(x, 1).Value = TextBox1.Value
  Cells(x, 2).Value = TextBox2.Value
  Cells(x, 3).Value = TextBox3.Value
    Cells(x, 4).Value = TextBox4.Value
    
    If Len(ComboBox2) = 1 And Len(ComboBox3) = 1 Then
    
  Cells(x, 5).Value = "0" & ComboBox3.Value & "/" & "0" & ComboBox2.Value & "/" & ComboBox1.Value
  
  ElseIf Len(ComboBox2) = 1 Then
  
  Cells(x, 5).Value = ComboBox3.Value & "/" & "0" & ComboBox2.Value & "/" & ComboBox1.Value
  
  ElseIf Len(ComboBox3) = 1 Then
  
  Cells(x, 5).Value = "0" & ComboBox3.Value & "/" & ComboBox2.Value & "/" & ComboBox1.Value
  
  End If
  
  If OptionButton1.Value = True Then
      Cells(x, 6).Value = "ÔÚÈ"
  Else
      Cells(x, 6).Value = "ÏÝÊÑí"
  End If
  
  End If
  
End Sub 

[majid_mx4]

با سلام

لطفا فایل ضمیمه را بررسی نمایید

خلاصه : ویرایش بر اساس کد پرسنلی

پایدار باشید میر

[mohammad59]

مهندس جان تغییرات رو ثبت میکنه در همون ردیف ولی جدول رو که خالی میکنم کد جدید بزنم تو همون ردیفی که تغییرات قبلی رو اعمال کرده درج میشه

[mohammad59]

درضمن هاComboBox رو هم ژر نمی کنه

[mohammad59]

ممنونم از پاسختون
یه موردی که هست کلید حذف رو که میزنی باید ردیف اکسل رو هم خالی کنه که این فقط فرم رو خالی میکنه

[iranweld]

ممنونم از پاسختون
یه موردی که هست کلید حذف رو که میزنی باید ردیف اکسل رو هم خالی کنه که این فقط فرم رو خالی میکنه

فایل پیوست را بررسی بفرمایید

[mohammad59]

مهندس جان اوکیه

فقط حذف رو که میزنی تکس باکس 1 رو خالی نمی کنه

حذف رو که بزنید باید هم فرم رو خالی کنه هم ردیف مربوطه در اکسل رو خالی کنه

ببخشید خیلی دردسر شد

[iranweld]

تغییرات دیگری در فرم اعمال شد

در ردیف های شیت امکان خالی شدن وجود ندارد چون عمل جستجو بر اساس آخرین ردیف خالی صورت میگیرد برنامه دچار مشکل میگردد

[mohammad59]

مهندس جان خیلی خیلی ممنون و سپاسگزارم