Loading...
  1. Lưu ý: Để tài khoản không bị banned: Vui lòng: Đăng đúng chuyên mục, không spam, không comment quảng cáo trong chủ đề của người khác, không đăng bài PR/SEO trong Box mua bán. >> Spam, đăng sai chuyên mục là không có đất sống ở diễn đàn này !
    Dismiss Notice
  2. Ra mắt diễn đàn mua bán rao vặt Dofollow tại địa chỉ >>> http://muabanraovattop.com Mua bán rao vặt
    Dismiss Notice
  3. Bạn muốn đăng bài hỏi đáp hãy vào >>> Hỏi Đáp 24h tại địa chỉ: hoidap.thongtin24h.net
    Dismiss Notice
  4. Bạn muốn Dò số, Cập nhật KQXS kiến thiết nhanh nhất trên Smartphone thì vào đây>> Xổ số 24h truy cập địa chỉ: Xoso.thongtin24h.net
    Dismiss Notice
  5. Xem tivi online, TV Show chất lượng HD, trực tiếp các trận bóng đá vào đây >>> Xem Tivi online truy cập: tivi.thongtin24h.net
    Dismiss Notice

[Questions] Xin các bác sua đoạn code

Thảo luận trong 'vBulletin & Templates'

    Chia sẻ trang này

  1. TT24h©

    TT24h© Administrator Staff Member

    Ads Tại đây
    *Xin các bác sua đoạn code * Chào cả nhà Em có 1 bảng lưu thông tin: Full Name, Email Company, Email Personal Em tạo 1 nút Send Email với đoạn code sau Option...

    Xin các bác sua đoạn code

    Chào cả nhà

    Em có 1 bảng lưu thông tin: Full Name, Email Company, Email Personal

    Em tạo 1 nút Send Email với đoạn code sau

    Option Compare Database
    Option Explicit

    Private Sub cmdContact_Click()
    Call AddContact( _
    Me.FullName, Me.LastName, Me.Address, _
    Me.City, Me.State, Me.PostalCode, Me.Email)
    End Sub

    Private Sub cmdEmail_Click()
    Call SendEmail(Me.EmailCompany)
    End Sub

    Private Sub Email_Change()
    Call HandleEnabling(Me.EmailCompany.Text, Me.FullName)
    End Sub

    Private Sub FirstName_Change()
    Call HandleEnabling(Me.EmailCompany, Me.FullName.Text)
    End Sub

    Private Sub Form_Current()
    Call HandleEnabling(Me.EmailCompany, Me.FullName)
    End Sub

    Private Sub HandleEnabling( _
    varEmail As Variant, varFirstName As Variant)
    cmdEmail.Enabled = Len(varEmail & "") > 0
    cmdContact.Enabled = Len(varFirstName & "") > 0
    End Sub



    Nó ko chạy :( bác nào giúp e với được ko

    Cảm ơn ạ
    Loading...

Chia sẻ trang này