กระทู้เก่าบอร์ด อ.Yeadram
        
           1,189   4		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        จะเปลี่ยนมุมมองซับฟอร์มที่แสดงอยู่ให้เป็นแบ Data S      
    
      คือผมมี Sub Form ที่แสดงอยู่เป็นแบบ Single Form แต่ผมต้องการสร้างปุ่มเพื่อ Switch ให้มันแสดงเป็นแบบ data sheet ต้องเขียน code อย่างไรครับ    
    
  
				4 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R05873    
        
  
      โอ้ได้ความรู้ใหม่ ขอบคุณ อ.yeadram มากครับ    
    
  
        
    3 @R05893    
        
  
      พอดีสิ่งที่ผมต้องการมันสนับสนุนกันกับอีกกระทู้นึงครับ
http://www.thai-access.com/yeadram_view.php?topic_id=1384 ผมเลยใช้วิธี Set DefaultView ตอนสร้าง Form ไปเลย
ครับวิธีการก็ทำเหมือนกับ code ของคุณ Yeadram เลย...
แต่ใจจริงก็ยังอยากรู้นะครับว่ามันจะมี code ที่ switch ได้เลยหรือเปล่าโดยไม่ต้อง เปิดปิด form (เหมือนกับที่คลิ๊กปุ่มบน toolbar)
    
    
  http://www.thai-access.com/yeadram_view.php?topic_id=1384 ผมเลยใช้วิธี Set DefaultView ตอนสร้าง Form ไปเลย
ครับวิธีการก็ทำเหมือนกับ code ของคุณ Yeadram เลย...
แต่ใจจริงก็ยังอยากรู้นะครับว่ามันจะมี code ที่ switch ได้เลยหรือเปล่าโดยไม่ต้อง เปิดปิด form (เหมือนกับที่คลิ๊กปุ่มบน toolbar)
        
    4 @R05894    
        
    
      พอดีสิ่งที่ผมต้องการมันสนับสนุนกันกับอีกกระทู้นึงครับ
http://www.thai-access.com/yeadram_view.php?topic_id=1384 ผมเลยใช้วิธี Set DefaultView ตอนสร้าง Form ไปเลย
ครับวิธีการก็ทำเหมือนกับ code ของคุณ Yeadram เลย...
แต่ใจจริงก็ยังอยากรู้นะครับว่ามันจะมี code ที่ switch ได้เลยหรือเปล่าโดยไม่ต้อง เปิดปิด form (เหมือนกับที่คลิ๊กปุ่มบน toolbar)
    
    
  http://www.thai-access.com/yeadram_view.php?topic_id=1384 ผมเลยใช้วิธี Set DefaultView ตอนสร้าง Form ไปเลย
ครับวิธีการก็ทำเหมือนกับ code ของคุณ Yeadram เลย...
แต่ใจจริงก็ยังอยากรู้นะครับว่ามันจะมี code ที่ switch ได้เลยหรือเปล่าโดยไม่ต้อง เปิดปิด form (เหมือนกับที่คลิ๊กปุ่มบน toolbar)
      Time: 0.6018s
    
      
		
Private Sub Command122_Click()Dim tbView As Integer
Dim fmn As String
tbView = Me.Child0.Form.DefaultView
If tbView = 2 Then tbView = 1 Else tbView = 2
fmn = Me.Child0.Form.Name
Me.Child0.SourceObject = ""
DoCmd.OpenForm fmn, acDesign
Forms(fmn).DefaultView = tbView
DoCmd.Close acForm, fmn, acSaveYes
Me.Child0.SourceObject = fmn
End Sub