แสดงกระทู้

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.


Topics - kitisak

หน้า: [1] 2
1
ห้อง MS Access / เปิดฟอร์มแล้ว ...
« เมื่อ: 09 เม.ย. 64 , 09:52:58 »
1. เปิดฟอร์มแล้วให้ซ่อนหน้าต่างนำทาง โค้ดอย่างไรครับ
2. เปิดฟอร์มแล้วให้ขอบซ้ายของฟอร์มชิดขอบหน้าต่าง (ตอนนี้หน้าต่างมันอยู่กึ่งกลาง) กำหนดตรงไหนครับ

2
เมื่อก่อนเรียงตัวอักษรตามตัวอักษร
ไม่รู้ว่าลงวินโดว์ใหม่หรือเปล่า โปรแกรมมันเรียงลำดับตามสระดังรูปครับ
จะแก้ไขอย่างไร ให้เรียงลำดับตามตัวอักษร

3
เช่นพิมพ์คำว่า กิติ
คอมโบบ๊อกซ์มันจะขึ้นรายการ
กิติ
กิติพงษ์
กิติพัธ
กิติศักดิ์
...
แต่มันไม่ขึ้นต้องไปตั้งค่าตรงไหนครับ

4
ห้อง MS Access / Code ใช้งานไม่ได้
« เมื่อ: 21 มี.ค. 64 , 13:06:14 »
จากโศกนาฏกรรม คราวที่แล้ว แอคเซสลบโค้ด VB เราทิ้งหมด เลยมาเริ่มทำใหม่ ใน แอคเซส 64 bit ปรากฏว่าใช้งานไม่ได้ ทั้งที่เปิดใช้งาน มาโครแล้ว
Private Sub cbFname_AfterUpdate()
    MsgBox "ขอบคุณ"
End Sub
จะมีกรอบโต้ตอบตามรูปด้านล่าง จะแก้ไขอย่างไร ครับ

5
ห้อง MS Access / ลบ Code เราเฉยเลย
« เมื่อ: 19 มี.ค. 64 , 12:37:15 »
ใช้ได้มาหลายปี วันนี้เปิดมามีหน้าต่างแจ้งตามรูป พอกด OK เปิดได้แต่ลบ code VB เราหมดเลย ดีที่มีไฟล์สำรองไว้ คราวนี้เราจะเปิดอย่างไรได้ครับ

6
ห้อง MS Access / ตรวจสอบนามสกุลไฟล์
« เมื่อ: 15 มี.ค. 64 , 21:55:18 »
เราจะตรวจสอบนามสกุลไฟล์
จากชื่อไฟล์ที่กำหนดใน text box ได้อย่างไรครับ

7
เราจะเก็บค่า text box ไว้ในตัวแปรก่อนมีการเปลี่ยนแปลงได้อย่างไร
ลองในเหตุการณ์ before update แล้วไม่ได้ครับ

8
ห้อง MS Access / Invalid procedure call or argument
« เมื่อ: 31 ก.ค. 63 , 18:54:21 »
อยู่ดี ๆ มันฟ้องว่า Invalid procedure call or argument หลาย ๆ ฟอร์ม สาเหตุเพราะอะไร และแก้ไขอย่างไรครับ

9
เราจะเขียนโค๊ดอย่างไร เพื่อให้ใน textbox ไม่ให้พิมพ์ตัวอักษรต้องห้ามในการตั้งชื่อไฟล์ เช่น / * ? ครับ

10
จะซ่อนทั้งกลุ่ม โชว์ทั้งกลุ่ม แบบนี้ได้อย่างไร (คือมีวิธีเอา text box มาเป็นกลุ่มเดียวกัน แล้วซ่อนทั้งกลุ่ม)
เช่น
txtGroup1A0.visibel = false
txtGroup1A1.visibel = false
txtGroup1A2.visibel = false
txtGroup1A3.visibel = false
txtGroup1A4.visibel = false
txtGroup1A6.visibel = false

11
ผมทำการ copy ไฟล์ และลบไฟล์เดิมทิ้ง
ปัญหามีว่า ไฟล์เดิม มันเปิดอยู่ คำสั่งไม่ทำงาน เราจะคำสั่งยังไง หากไฟล์เปิดอยู่ให้ปิดก่อนแล้วลบทิ้ง
***
Dim sPath, sfilename, sLink, sCopyInto, myOutput As String
Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    sfilename = GetFileName
    myOutput = Right(sfilename, Len(sfilename) - InStrRev(sfilename, "."))
    sPath = GetFilePath
    sLink = sPath & sfilename
   
   'If Dir("CurrentProject.path & '\map\' & Me.NewName & '.' & myOutput", vbNormal) = "" Then
   
   
    sCopyInto = [Forms]![manHisInsu]![folderInsu] & "\" & [Forms]![manHisInsu]![Even2] & "." & myOutput
    fso.CopyFile sLink, sCopyInto
    Set fso = Nothing
   
    If sPath = [Forms]![manHisInsu]![folderInsu] & "\" Then
        Else
        Kill sLink
    End If
   
   
    MsgBox ("บันทึกเรียบร้อยแล้ว"), vbInformation, "ผลการทำงาน"

Exit_Command33_Click:
    Exit Sub

Err_Command33_Click:
    MsgBox " ไฟลนี้อาจเปิดอยู่ ให้ปิดไฟล์นี้เสียก่อน"
    Resume Exit_Command33_Click

12
จะตรวจสอบว่าใน textbox มีอักษรไทยปนหรือไม่
ถ้ามีให้มี msgbox แจ้งเตือน ต้องทำอย่างไรครับ

13
ห้อง MS Access / ลบไฟล์ที่เลือก
« เมื่อ: 24 ส.ค. 61 , 16:06:40 »
เราจะลบไฟล์จากไดอะล็อกบ๊อกซ์ ที่เราสร้าง จะทำอย่างไรครับ

14
มีหลักเกณฑ์อะไรบ้างครับที่สร้าง ACCESS เพื่อใช้ในรุ่น 2010-2016 และรุ่นที่ใหม่กว่า
และใช้ได้ทั้ง Office 32 bit 64 bit โดยไม่มีปัญหา

15
ไฟล์เดิมรุ่น 2010 ไปเปิดรุ่นที่สูงกว่า
- มันจะฟ้องประมาณว่า ไม่สามารถอ่าน VBA เดิมได้ ต้องลบ VBA ก่อนจึงเปิดได้
- พอเปิดแล้ว คำสั่งที่เขียนด้วย VBA ทั้งในฟอร์ม รายงาน โมดูล หายหมดครับ
- จะแก้ไขอย่างไรครับ

16
ห้อง MS Access / สร้างสายงาน
« เมื่อ: 13 ส.ค. 61 , 21:33:04 »
ต้องการเขียนโปรแกรมสำหรับสร้างสายงานครับ
รูปที่ 1 ในช่องผู้แนะนำถ้าเลือก กุลนิษฐ์   อุตสาหะ
จะไปเพิ่มข้อมูลในเรคคอร์ใหม่ในตารางตามรูป 2
โดยในคอลัม 1 , 2 , 3 และ 4 มีข้อมูลเหมือน กุลนิษฐ์   อุตสาหะ และ
เพิ่มชื่อ ชูเชิด  ศรีสวัสดิ์  ไปในคอลัมน์ต่อจาก กุลนิษฐ์ จะทำได้ไหมครับ



หน้า: [1] 2