کد دستور جستجو و ویرایش در فرم

[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 رو خالی نمی کنه

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

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