แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - ปิ่นณรงค์

หน้า: 1 ... 18 19 20 [21]
361
ใช่ครับ F22 ในทีนี้ผมว่า อาจจะอ้างไปถึง คอลั่มที่ 22 ของตาราง excel หรือเปล่าถึงมันจะว่างเปล่าอยู่ก็ลองกดเลือก
กดลบ และกด ล้างการจัดรูปแบบ ดูเผื่อช่วยได้
โพสต์นี้ได้รับคำขอบคุณจาก: Earth

362
ห้อง MS Access / > แทนค่าใน Tables
« เมื่อ: 27 มี.ค. 61 , 16:04:47 »
ทำได้ยังครับ :smile:
โพสต์นี้ได้รับคำขอบคุณจาก: Bravo_M79

363
ห้อง MS Access / > เปลี่ยนแป้นภาษาด้วย VB
« เมื่อ: 26 มี.ค. 61 , 13:25:36 »
เมื่อกดเครื่องหมาย * ใน textbox1 แล้วให้แป้นพิมพ์เปลี่ยนเป็นภาษาอังกฤษ เราต้องเขียนโค๊ต อย่างไรครับ

สามารถทำได้ครับ กรณีที่เรากดปุ่ม * แล้วให้เปลี่ยนภาษาตามที่เรากำหนดไว้สามารถทำได้ดังนี้
ผมกำหนด textbox ชื่อ text1

คำสั่งบน Module

โค๊ด: [Select]
Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32.dll" (ByVal mylanguage As Long, Flag As Boolean) As Long
Private Const Eng = 1033 
Private Const Th = 1054
Sub keyEng()
Call ActivateKeyboardLayout(Eng, True)
End Sub
Sub KeyTh()
Call ActivateKeyboardLayout(Th, True)
End Sub

คำสั่ง Event ที่ Text1
โค๊ด: [Select]
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyMultiply Then
Call keyEng
End If
End Sub
ตัวอย่างการใช้งานด้านล่างครับ
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown, kitisak

364
VDO นี้น่าตรงตามที่ต้องการครับ

เป็นการใช้ Combobox คู่กับ Listbox ครับ VDO มีหลาย Part นะครับ เขาสอนตั้งแต่เริ่มสร้าง จนเสร็จสิ้นเลย อธิบายละเอียดมาก
ผมว่า คำสั่งมันเยอะไป เลยให้ทดลองทำเองเลยน่าจะดีกว่าครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

365
ห้อง MS Access / > ซ่อน Page Header
« เมื่อ: 06 มี.ค. 61 , 15:15:41 »
ผมลองใช้
ที่ ControlTextBox ใส่
โค๊ด: [Select]
="Page " & [Page] & " of " & [Pages]
ที่ตัวรายงานใส่
โค๊ด: [Select]
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
Cancel = Me.Page = Me.Pages
End Sub







มันได้ผลครับพี่ลอง Print แล้วเลขหน้าติดมา เว้นแต่หน้าสุดท้ายที่ไม่มีเลขหน้า
โพสต์นี้ได้รับคำขอบคุณจาก: Un

366
ไม่ได้เหมือนกันเลยค่ะ
Me.Type_cmb คือชื่อ Combobox ที่เลือก Type ในหน้าฟอร์มนั้นหรือเปล่าครับ / หรือถ้าสะดวกส่งไฟล์ มาที่เมล pinnarong1115@hotmail.com เดี่ยวผมดูให้
โพสต์นี้ได้รับคำขอบคุณจาก: Earth

367
มีอีกแบบนะครับ ใช้ตัวนี้แทน ทำให้แสดง All ไว้ตลอด ตอนกดเลือกรายการครับ
โหลดตัวอย่างได้ด้านล่าง
โพสต์นี้ได้รับคำขอบคุณจาก: Earth

368
มันไม่หายนะครับ เมื่อเปิดรายงานแล้วปิดรายงาน All ก็จะแสดงขึ้นมาใหม่ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Earth

369
มันมี 2 อันนะครับ อันบน นั้นผมเขียนคำสั่งผิดเอาอันนี้นะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Earth

370
ถ้าเราจะให้เล่นในฟอร์มโดยใช้ตัวเล่น ของ WindowsMediaPlayer ได้ไหมครับ แต่ตัวไฟล์เสียงจะแยกออกมาจากตัวโปรแกรม
โดยกำหนด ตำแหน่งของไฟล์เสียงครับผมลองทำแบบง่ายๆ ได้ดังนี้


ตัวอย่างคำสั่ง
โค๊ด: [Select]
Private Sub Form_Current()
Call PlaymusicOnForm
End Sub
Sub PlaymusicOnForm()
Dim LinkAddress As String
LinkAddress = "C:\Sound\SleepAway.mp3" 'กำหนดตำแหน่งไฟล์เสียง
Me.WindowsMediaPlayer.URL = LinkAddress
Me.WindowsMediaPlayer.Visible = False
End Sub

ลองสร้างโฟลเดอร์ Sound ไปไว้ที่ Drive C: แล้วเอาไฟล์เสียงใส่ลงไป แล้วไปกำหนดตำแหน่งของเสียงตรง LinkAddress = "C:\Sound\ชื่อไฟล์......mp3"  แล้วลองเปิดฟอร์มดูครับ

ส่วนวิธีการแบบอื่นๆ ลองปรึกษาอาจารย์ TTT อาจารย์สันติสุขดูครับพี่
โพสต์นี้ได้รับคำขอบคุณจาก: สิทธิพร วิเชียรโชติ

371
สามารถกำหนดได้ดังนี้คับ สมมุติว่ามีตัว combobox อยู่ชื่อว่า cmbtype และฟอร์มชื่อ Formreport
ที่ตัว Query  ตรง Column ชื่อว่า type ใส่ criteria ว่า [Forms]![Formreport]![cmbtype]
แล้ว สร้างปุ่มซักตัว ใส่คำสั่ง  Docmd.Openreport.............. เพื่อไว้เปิดรายงานครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

372
ถ้าจะแก้ไขเกี่ยวกับ Form ต้องไปตั้งค่าที่ ฟอร์มครับไม่ใช่ไปตั้งค่าที่ตัว Control  กดตามนี้ครับ

โพสต์นี้ได้รับคำขอบคุณจาก: สิทธิพร วิเชียรโชติ

373
ขออนุญาติ ตอบแทน อาจารย์นะครับ

Form_Current  คือกดไปที่คุณสมบัติฟอร์มครับ ตรงแท๊บเหตุการณ์ แล้วกดตามลูกศรที่ผมชี้ไว้เพื่อใส่ Code ครับ


ส่วน Bound Objects คือ ชื่อของกรอบวัตถุที่ท่านได้กำหนดไว้ (จากที่ดูตัวอย่าง ชื่อว่า "รูป" ครับ)
ส่วนการกำหนด Control ก็ใส่ได้ประมาณนี้ครับ

Private Sub Form_Current()
รูป.SetFocus
รูป.AutoActivate = 1
End Sub

หมายเหตุ การกำหนดชื่อ Control ผมคิดว่าควรตั้งเป็นภาษาอังกฤษดีกว่าครับ เพื่อไม่ให้มีปัญหาภายหลัง
โพสต์นี้ได้รับคำขอบคุณจาก: สิทธิพร วิเชียรโชติ

374
สวัสดีครับ มีตัวอย่างไหม เผื่อผมแก้ให้ได้
โพสต์นี้ได้รับคำขอบคุณจาก: TaroKung Ichimura

หน้า: 1 ... 18 19 20 [21]