ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] §PÂ_textbox¬O§_¬°ªÅ­È

[µo°Ý] §PÂ_textbox¬O§_¬°ªÅ­È

¤j®a¦n

§Ú²{¦b¦³¤C­Ótextbox §Ú·Q­nª¾¹D¥L¬O§_¬°ªÅ­È

§Ú¥Î
  1. If TextBox7.Text And TextBox8.Text And TextBox9.Text And TextBox10.Text And TextBox11.Text And TextBox12.Text And TextBox13.Text = "" Then
  2. msgbox "½Ð¿é¤JÃöÁä¦r!"
  3. else
  4. end if
½Æ»s¥N½X
¥i¬O¥L·|¸ò§Ú»¡ «¬ºA¤£²Å¦X

½Ð°Ý­n«ç»ò§ï¤~¹ï©O?

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2015-10-14 17:11 ½s¿è

±N And §ï¦¨ &¡@
And, Or ¥Î©ó¡e±ø¥ó¡f§PÂ_¡A
&¡@¤~¬O³s±µ¦r¦ê¡ã¡ã

©Î°Ñ¦Ò¡G
Dim j&, T$
For j = 7 To 13
¡@¡@T = T & Controls("TextBox" & j)
Next j
If T = "" Then MsgBox "½Ð¿é¤JÃöÁä¦r!": Exit Sub

¥t¤@°Ñ¦Ò¡G
Dim j&, Jm%
For j = 7 To 13
¡@¡@If Controls("TextBox" & j) <> "" Then Jm = 1: Exit For
Next j
If Jm = 0 Then MsgBox "½Ð¿é¤JÃöÁä¦r!": Exit Sub

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD