kod kısaltma

[macay]

Üstadlar, Aşağıdaki kodu en kısa nasıl yazabilirim, bir sürü örnek var ama bilgim az olduğu için yapamadım

Saygılarımla,

If Trim(Me.TxtBobMik1.Value) > 0 And Me.CboMakNo1.Value = "" Then
  Me.CboMakNo1.SetFocus
  MsgBox "Lütfen Makinayı seçin"
  Exit Sub
End If

If Trim(Me.TxtBobMik2.Value) > 0 And (Me.CboMakNo2.Value) = "" Then
  Me.CboMakNo2.SetFocus
  MsgBox "Lütfen Makinayı seçin"
  Exit Sub
End If

If Trim(Me.TxtBobMik3.Value) > 0 And (Me.CboMakNo3.Value) = "" Then
  Me.CboMakNo3.SetFocus
  MsgBox "Lütfen Makinayı seçin"
  Exit Sub
End If

 

[ynmcan]

Syn. Macay;
Aşağıdaki gibi deneyin.

For i = 1 To 3
If Trim(Me.Controls("TxtBobMik" & i).Value) > 0 And Me.Controls("CboMakNo" & i).Value = "" Then
  Me.Controls("CboMakNo" & i).SetFocus
  MsgBox "Lütfen Makinayı seçin"
  Exit Sub
End If
Next i

 

[macay]

Çok Teşekkürler sayın ynmCany, sizde olmasanız halim harap,sayenizde diğerlerinide yaptım, sizden bir yardım daha isteyebilirmiyim aşağıda kodunu pasif ettiğim şekilde txttopsure1=txtcalsure+txtstopsure diyerek txttopsure yi buluyorum onuda daha aşağıda eğer toplam sure 12 den küçükse süreyi doğru gir diye uyarı verdiyorum ama txtbox toplamlarını yaptıramadım yardımcı olurmusunuz.

Saygılarımla,

For i = 1 To 20

Me.Controls("TxtTopSure" & i) = Me.Controls("TxtCalSure" & i).Value + Me.Controls("TxtStopSure" & i).Value
Next i


'TxtTopSure1 = Val(TxtCalSure1.Value) + Val(TxtStopSure1.Value)
'TxtTopSure2 = Val(TxtCalSure2.Value) + Val(TxtStopSure2.Value)
'TxtTopSure3 = Val(TxtCalSure3.Value) + Val(TxtStopSure3.Value)
'TxtTopSure4 = Val(TxtCalSure4.Value) + Val(TxtStopSure4.Value)
'TxtTopSure5 = Val(TxtCalSure5.Value) + Val(TxtStopSure5.Value)
'TxtTopSure6 = Val(TxtCalSure6.Value) + Val(TxtStopSure6.Value)
'TxtTopSure7 = Val(TxtCalSure7.Value) + Val(TxtStopSure7.Value)
'TxtTopSure8 = Val(TxtCalSure8.Value) + Val(TxtStopSure8.Value)
'TxtTopSure9 = Val(TxtCalSure9.Value) + Val(TxtStopSure9.Value)
'TxtTopSure10 = Val(TxtCalSure10.Value) + Val(TxtStopSure10.Value)
'TxtTopSure11 = Val(TxtCalSure11.Value) + Val(TxtStopSure11.Value)
'TxtTopSure12 = Val(TxtCalSure12.Value) + Val(TxtStopSure12.Value)
'TxtTopSure13 = Val(TxtCalSure13.Value) + Val(TxtStopSure13.Value)
'TxtTopSure14 = Val(TxtCalSure14.Value) + Val(TxtStopSure14.Value)
'TxtTopSure15 = Val(TxtCalSure15.Value) + Val(TxtStopSure15.Value)
'TxtTopSure16 = Val(TxtCalSure16.Value) + Val(TxtStopSure16.Value)
'TxtTopSure17 = Val(TxtCalSure17.Value) + Val(TxtStopSure17.Value)
'TxtTopSure18 = Val(TxtCalSure18.Value) + Val(TxtStopSure18.Value)
'TxtTopSure19 = Val(TxtCalSure19.Value) + Val(TxtStopSure19.Value)
'TxtTopSure20 = Val(TxtCalSure20.Value) + Val(TxtStopSure20.Value)
'
''------------------------------------------------------------------------------
'
For i = 1 To 20
If Me.Controls("TxtBobMik" & i).Value > 0 And Me.Controls("TxtTopSure" & i).Value < 12 Then
  Controls("TxtstopSure" & i).SetFocus
  MsgBox "Lütfen stop süresini giriniz"
  Exit Sub
End If
Next i

 

[ynmcan]

Syn Macay;
Aşağıdaki şekilde deneyin.

For i = 1 To 20
Controls("TxtTopSure" & i) = Val(Controls("TxtCalSure" & i).Value) + Val(Controls("TxtStopSure" & i).Value)
Next i

 

[macay]

Sayın ynmCany, İlginiz için Tekrar teşekkür ederim sağolun.

Saygılarımla,

 

[ynmcan]

Rica ederim. Hayırlı akşamlar.