Loading...
  1. Chú ý: Để tài khoản không bị banned: Đăng đúng chuyên mục, không spam, không comment quảng cáo chèn link trong chủ đề của người khác, dùng từ vô nghĩa Uppp...
    >> Không đăng bài PR/SEO trong các Box mua bán.
    >> Các thành viên bấm Report khi phát hiện nội dung/bình luận Spam BQT sẽ xử lý triệt để
    >> Spam là không có đất sống ở diễn đàn này !
    Dismiss Notice
  2. SIÊU KHUYẾN MÃI >> QUẢNG CÁO BANNER TẠI VỊ TRÍ NÀY GIÁ CHỈ 150K/1TH (SIZE 728x220)

    >> LIÊN HỆ NGAY: 0909.819.057
    Dismiss Notice
  3. Đăng tin hiệu quả tại diễn đàn Mua bán rao vặt Dofollow tại địa chỉ >>> http://muabanraovattop.com
    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