لینک بودن تکست باکس در فرم

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • ناصر خان خان

    • 2015/12/22
    • 118
    • 54.00
    #1

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

    سلام خدمت استادان گرامی
    طبق فایل پیوستی میخوام که توی فرم لیست فروشم هروقت کد کالایی و بزنم تو عنوانش اسم کالا رو بیاره. با هم لینک باشن.
    ممنونم
    فایل های پیوست شده
    هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت
    برچسب ها: هیچ‌کدام
    • iranweld

      • 2015/03/29
      • 3341
      #2
      با سلام

      کدهای ذیل را به فایل اضافه کنید

      کد PHP:
      Private Sub code_Change()
             z1 = Range("sales[[#Headers],[کد]]").End(xlDown).Row   
      If Len(code) > 1 Then 
             For i = 6 To z1  
      If Left(Range("d" & i), Len(code)) = code Then
        TextBox1       = Range("e" & i)  
      Else
              Range("d" & i) = "" 
             End If 
             Next 
       End       If 
      End Sub 
      کد HTML:
      Private Sub code_Change()
 z1 = Range("sales[[#Headers],[کد]]").End(xlDown).Row  
If Len(code) > 1 Then
 For i = 6 To z1 
 If Left(Range("d" & i), Len(code)) = code Then
 TextBox1 = Range("e" & i)  
Else
 Range("d" & i) = ""
 End If
 Next
 End If
End Sub
      Last edited by iranweld; 2021/04/21, 12:27.

        کامنت

        • ناصر خان خان

          • 2015/12/22
          • 118
          • 54.00
          #3
          سلام خدمت استاد گرامی
          این اصلا جواب نداد یعنی بعد یافتن اون کد بقیه رو خذف میکنه.
          لطفا زحمت بکشید خودتون داخل فایل بگذارید شاید جایی رو اشنباه میکنم.
          ممنونم
          هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت

            کامنت

            • iranweld

              • 2015/03/29
              • 3341
              #4
              نوشته اصلی توسط ناصر خان خان
              سلام خدمت استاد گرامی
              این اصلا جواب نداد یعنی بعد یافتن اون کد بقیه رو خذف میکنه.
              لطفا زحمت بکشید خودتون داخل فایل بگذارید شاید جایی رو اشنباه میکنم.
              ممنونم
              بررسی بفرمایید
              فایل های پیوست شده

                کامنت

                • ناصر خان خان

                  • 2015/12/22
                  • 118
                  • 54.00
                  #5
                  نوشته اصلی توسط iranweld
                  بررسی بفرمایید
                  با سلام و تشکر از وقتی که گذاشتید. دوباره همونطوریه وقتی کد و تایپ میکنی توی لیست بقیه کدها رو پاک میکنه؟؟؟!!!!
                  هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت

                    کامنت

                    • iranweld

                      • 2015/03/29
                      • 3341
                      #6
                      نوشته اصلی توسط ناصر خان خان
                      با سلام و تشکر از وقتی که گذاشتید. دوباره همونطوریه وقتی کد و تایپ میکنی توی لیست بقیه کدها رو پاک میکنه؟؟؟!!!!
                      با عرض پوزش بخاطر اشتباه در کدنویسی
                      کد اصلاح گردید

                      کد PHP:
                      Private Sub code_Change()

                                             z1 = Cells(Rows.count, "b").End(xlUp).Row

                      If Len(code) > 1 Then

                                             For i = 6 To z1

                                             If Left(Range("d" & i), Len(code)) = code Then

                        TextBox1                       = Range("e" & i)

                        Exit For

                      Else

                                              TextBox1 = ""

                                             End If


                                             Next

                       End                       If

                      End Sub 

                        کامنت

                        • ناصر خان خان

                          • 2015/12/22
                          • 118
                          • 54.00
                          #7
                          نوشته اصلی توسط iranweld
                          با عرض پوزش بخاطر اشتباه در کدنویسی
                          کد اصلاح گردید

                          کد PHP:
                          Private Sub code_Change()

                                                     z1 = Cells(Rows.count, "b").End(xlUp).Row

                          If Len(code) > 1 Then

                                                     For i = 6 To z1

                                                     If Left(Range("d" & i), Len(code)) = code Then

                            TextBox1                           = Range("e" & i)

                            Exit For

                          Else

                                                      TextBox1 = ""

                                                     End If


                                                     Next

                           End                           If

                          End Sub 

                          با تشکر از شما دوست عزیز مشکل حل شد.
                          هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت

                            کامنت

                            قبلی template بعدی
                            چند لحظه..