:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

อยากให้ Textbox สามารถกรอกได้4 ตัวขึ้นไป

ฟอรัมถาม-ตอบเกี่ยวกับ Visual Basic
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่างเพิ่มเติม)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
aonraya
Member
Member
Posts: 9
Joined: Tue Feb 14, 2017 10:22 am

อยากให้ Textbox สามารถกรอกได้4 ตัวขึ้นไป

#1

Post by aonraya »

VB error.jpg
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: อยากให้ Textbox สามารถกรอกได้4 ตัวขึ้นไป

#2

Post by snasui »

:D ช่วย Copy Code มาวางด้วยครับ

ในภาพตัวอักษรเล็กมากไม่สามารถอ่านได้ วิธีการวาง Code ให้เป็น Code ศึกษาได้จาก Link ของกฎการใช้บอร์ด่ข้อ 5 ด้านบนครับ
aonraya
Member
Member
Posts: 9
Joined: Tue Feb 14, 2017 10:22 am

Re: อยากให้ Textbox สามารถกรอกได้4 ตัวขึ้นไป

#3

Post by aonraya »

ทำได้แล้วค่ะอาจารย์ ขอบคุณมากๆค่ะ รบกวนอาจารย์ช่วยดูโค้ดเช็ค Admin กับ User ถ้าเป็น Admin ไม่สามารถลบข้อมูล Username password โดยแจ้ง MessageBox เตือน แต่ถ้าเป็น user สามารถทำการลบได้ ขอบคุณค่ะ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: อยากให้ Textbox สามารถกรอกได้4 ตัวขึ้นไป

#4

Post by snasui »

:D ให้แนบ Code มาในฟอรัมครับ

ดูวิธีวาง Code ให้แสดงเป็น Code เพื่อสะดวกต่อการอ่านและคัดลอกไปทดสอบได้ที่นี่ครับ viewtopic.php?f=6&t=1187 เป็น Link ในกฎการใช้บอร์ดข้อ 5 ด้านบน กรุณาอ่านกฎการใช้บอร์ดทุกข้อด้วยครับ :P
aonraya
Member
Member
Posts: 9
Joined: Tue Feb 14, 2017 10:22 am

Re: อยากให้ Textbox สามารถกรอกได้4 ตัวขึ้นไป

#5

Post by aonraya »

ถ้าหนูต้องการเช็คค่า ด้วยใช้ if เช็คว่าถ้าเป็นผู้ดูแลระบบ ไปตรงกับฐานข้อมูลตรงฟิวส์ Class = Adminไม่สามารถลบได้ โดยขึ้น MessageBox เตือนว่าไม่สามารถลบได้
ถ้า Admin สามารถลบ User ได้ ด้วยให้เช็คว่าฐานข้อมูลฟิวส์ class = Add user สามารถได้


Code: Select all

 Private Sub Botn_admin_delect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_admin_delect.Click
        sql = "select * from code1 where class='" & Admin.Text & "'"
        DA = New SqlClient.SqlDataAdapter(sql, cn)
        DS = New DataSet
        DA.Fill(DS, "code1")

        If DS.Tables("code1").Rows(0)("class") = "Admin" Then
            msg_error("ไม่สามารถลบ Admin ได้")
            Return
        End If


        Dim i As Integer = DataGridView1.CurrentRow.Index.ToString
        Dim fullname As String = DataGridView1.Item(0, i).Value
        sql = "delete from  code1 where fullname =  '" & fullname & "'"
        cmd = New SqlClient.SqlCommand(sql, cn)


        If cmd.ExecuteNonQuery = 0 Then
            msg_error("ไม่สามารถลบได้")
            refresh_add_manament()
        Else
            msg_ok("สำเร็จ")
        End If
    End Sub
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: อยากให้ Textbox สามารถกรอกได้4 ตัวขึ้นไป

#6

Post by snasui »

:D ค่อย ๆ ถามตอบกันไปนะครับ

การจะทราบว่าเป็น Admin หรือไม่ก็ต้อง Query มาเทียบกับตัวแปรใด ๆ ก่อนว่าใช่ Admin หรือไม่ ตรงนี้ติดตรงไหนหรือไม่ อย่างไรครับ
aonraya
Member
Member
Posts: 9
Joined: Tue Feb 14, 2017 10:22 am

Re: อยากให้ Textbox สามารถกรอกได้4 ตัวขึ้นไป

#7

Post by aonraya »

มันเทียบยังค่ะ แล้ว Query ยังไงค่ะอาจาร์ยพอเว็บหรือมีตัวอย่างไหมค่ะ ต้องใช้ if เช็คหรือเปล่า คือหนูอยากเช็คฟิวส์ class ถ้าเป็น Admin ให้แจ้งเตือน แล้วสามารถลบได้
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: อยากให้ Textbox สามารถกรอกได้4 ตัวขึ้นไป

#8

Post by snasui »

:shock: ที่เขียนมาด้านบนนั้นหากเขียนเองจะต้องทราบแล้วครับว่าเทียบแล้วยัง เทียบแล้วได้หรือไม่ได้และติดตรงบรรทัดใด อย่างไรครับ

ผมต้องการทราบสิ่งที่เป็นปัญหาว่าติดปัญหาตรงไหน จะได้เจาะไปยังประเด็นที่เป็นปัญหาครับ

If ใช้ในการตรวจสอบว่าจริงหรือเท็จ สำหรับกรณีที่ถามมานี้สามารถใช้ If ตรวจสอบได้ หากว่าเข้าเงื่อนไขคือเป็น Admin ก็ให้แจ้งเตือนก่อนแล้วค่อยลบ หากไม่เข้าเงื่อนไขนี้ก็สามารถลบได้เลย หรือแม้จะมีอีกหลายเงื่อนไขก็สามารถใช้ EleIf ตรวจสอบต่อไปได้ แต่หากเงื่อนไขมีจำนวนมากจะไม่ใช้ IF ครับ

การใช้ If ดูได้จากที่นี่ครับ https://msdn.microsoft.com/en-us/library/752y8abs.aspx
การเชื่อมต่อ Database ดูที่นี่ครับ https://social.msdn.microsoft.com/Forum ... =vbgeneral
User avatar
cheapache
Member
Member
Posts: 72
Joined: Mon Sep 07, 2015 10:39 am

Re: อยากให้ Textbox สามารถกรอกได้4 ตัวขึ้นไป

#9

Post by cheapache »

ผมไม่ทราบว่าสามารถทำได้หรือยังนะครับ แต่อยากช่วยแนะนำ ถ้าหากอยากให้แต่ละการทำงานแยก admin ทำได้อย่างนึง user ทำได้อีกอย่างนึง

ให้สร้างตัวแปรใดตัวแปรนึงขึ้นมา เช่น

Dim status As boolean

และใน Even ที่อ่านค่ามาจากฐานข้อมูลให้ใช้ if เพื่อเช็คค่าจากฐานข้อมูลใน class นั้นว่า เป็น admin หรือ user เช่น ให้ที่นี้สมมติว่าเป็น form load นะครับ

Private sub form_load (sender As Object, e As Evenarvt) handles form.load

#คำสั่งติดต่อฐานข้อมูล แล้วนำค่าในฟิลสถานะ admin user นั้นมาเก็บในตัวแปรใดๆ เช่น a1
If a1 = "admin" then
status = true
else if a1 = "user" then
status = false
end if

และหลังจากนั้น ในการทำงานต่างๆ หรือใน even ต่างๆที่คุณเขียนภายในโปรแกรม ก็จะใช้ตัวแปร status นี้ เป็นการแยกการทำงานให้ต่างกัน ระหว่าง admin และ user ครับ เช่น

Private button_click (sender as object, e as evenarg) handles button.click

If status = true then
Textbox1.text = "I'm admin"
Else if status = false then
Textbox1.text = "I'm user"
End if

End sub

หวังว่าคงจะเป็นประโยชน์สำหรับคุณนะครับ
Post Reply