Posts by sacchiisNoob

Re: Error type 13 Mis Match error

i did that but it just gave me the same error i did found out how to solve it

LDiff = CDate(.Range("Q" & LRow).Value2) - Date

placed the cDate

hi when i run my login userform and click ok a macro message shud pop up stating the expired accounts on my database it worked fine before but when i tried to run it ERROR TYPE 13 pops up and its higlighting the

LDiff = .Range("Q" & LRow).Value2 - Date

part of my code
LDiff was declared as Long

did i miss anything? hope u guys can help me thank you in advance

here the whole code

Private Sub Workbook_Open()
usfrmlogin.show




Dim LRow As Long
Dim LResponse As String
Dim lname As String
Dim LFname As String
Dim LDiff As Long
Dim LDays As Long








LRow = 2
LDays = 90




With Sheets("DataBase")
  While LRow < 200
 
     If IsDate(.Range("Q" & LRow)) Then
       LDiff = .Range("Q" & LRow).Value2 - Date
        If (LDiff > 0) And (LDiff <= LDays) Then
        
           lname = .Range("B" & LRow).Value
           LFname = .Range("C" & LRow).Value
           LResponse = LResponse & lname & "," & LFname & "License will expire in " & LDiff & "days." & Chr(10)
         
         End If
       End If
       
       LRow = LRow + 1
       




Wend
  If CBool(Len(LResponse)) Then
    MsgBox "These Licenses are nearing expiration:" & Chr(10) & LResponse, vbCritical, "WARNING"
  
  
  
    End If
   End With
   




End Sub

Re: Compile Error : cannot find project or property

sorry not that i dont know anything or unsure of the basics of windows i just got confused and worried why the program from the stick got the error of the other computer. anyhow thank your for u help i think i figured out how to solve my problem..

Re: Compile Error : cannot find project or property

i tried to open the usb that i used to transfer my project to the other laptop it gave me the same error. but i checked my MS Office i have an outlook. but when i run the project saved in my HD it worked fine. im confused

Re: Compile Error : cannot find project or property

outlook is the only thing i need to install? Great!! ill try the outlook first coz i don't really know how to not refer my codes to outlook I'm just starting to know the ins and out of VBA Thank you so much thats a big help

Re: Highlight a row in a textbox to signal the date is alreadty expired

oh thankie ill try if this one can help solve my problem.

Hi I have tried running my project to another computer both are using excel 2013. When I run the project on my laptop it works fine however when I try to run it in my friend's laptop it gives the compile error : Cannot find Project or Property.
[ATTACH=CONFIG]68921[/ATTACH][ATTACH=CONFIG]68922[/ATTACH]
This happens when the code in my thisworkbook (alerts the expired dates, see code below)

Private Sub Workbook_Open()usfrmlogin.show




Dim LRow As Long
Dim LResponse As String
Dim lname As String
Dim LFname As String
Dim LDiff As Long
Dim LDays As Long








LRow = 2
LDays = 90




With Sheets("DataBase")
  While LRow < 200
 
     If IsDate(.Range("Q" & LRow)) Then
       LDiff = .Range("Q" & LRow).Value2 - Date
        If (LDiff > 0) And (LDiff <= LDays) Then
        
           lname = .Range("B" & LRow).value
           LFname = .Range("C" & LRow).value
           LResponse = LResponse & lname & "," & LFname & "License will expire in " & LDiff & "days." & Chr(10)
         
         End If
       End If
       
       LRow = LRow + 1
       




Wend
  If CBool(Len(LResponse)) Then
    MsgBox "These Licenses are nearing expiration:" & Chr(10) & LResponse, vbCritical, "WARNING"
  
  
  
    End If
   End With
   




End Sub

runs upon login and it displays a reference dialogue box after clicking ok. Then the word date is highlighted. I don't know if i should click/tick one of the choices and i don't know which one to tick. Does my friend need to install a missing library? Thank you in advance

Re: Highlight a row in a textbox to signal the date is alreadty expired

i see thank you very much

Hello i would like to ask if there is a way you can highlight a row in a listbox when the due date is coming so the user will know who's account is expiring? is it doable with a code? Looking forward to your replies thank you in advance!

Re: Displaying Normal Date formatb to a textbox instead of the searial value of the d

wow i learned something new thank u guys i would definitely take note of that

Re: Displaying Normal Date formatb to a textbox instead of the searial value of the d

oh my gosh it worked!! thank u so so so much Pike and thank you too sktneer u guys are awesome

Re: Displaying Normal Date formatb to a textbox instead of the searial value of the d

nice! i will definitely try that thank you so much!

Re: Displaying Normal Date formatb to a textbox instead of the searial value of the d

hi sorry for the incomplete details here is the project im working on atm
https://www.dropbox.com/s/1umhutug0mpw50r/Book1.xlsm?dl=0
i hope this would be helpful. thank you

Re: Displaying Normal Date formatb to a textbox instead of the searial value of the d

hi sktneer
this is the code i used in retrieving my datas

Private Sub lstSearch_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'dim the variables
Dim i As Integer
On Error Resume Next
'find the selected list item
i = Me.lstSearch.ListIndex
'add the values to the text boxes
Me.tbEmpNo.value = Me.lstSearch.Column(0, i)
Me.tbFamName.value = Me.lstSearch.Column(1, i)
Me.tbFirstName.value = Me.lstSearch.Column(2, i)
Me.tbMidName.value = Me.lstSearch.Column(3, i)
Me.tbConNum.value = Me.lstSearch.Column(4, i)
Me.tbAge.value = Me.lstSearch.Column(5, i)
Me.tbPresAdd.value = Me.lstSearch.Column(6, i)
Me.tbProvAdd.value = Me.lstSearch.Column(7, i)
Me.tbdob.value = Me.lstSearch.Column(8, i)
Me.tbpob.value = Me.lstSearch.Column(9, i)
Me.tbsss.value = Me.lstSearch.Column(10, i)
Me.tbph.value = Me.lstSearch.Column(11, i)
Me.tbpn.value = Me.lstSearch.Column(12, i)
Me.tbtin.value = Me.lstSearch.Column(13, i)
Me.tbsgl.value = Me.lstSearch.Column(14, i)
Me.tbdi.value= Me.lstSearch.Column(15, i)
Me.tbed.value = Me.lstSearch.Column(16, i)
Me.cbEduc.value = Me.lstSearch.Column(17, i)
Me.tbCourse.value = Me.lstSearch.Column(18, i)
Me.cbPre1.value = Me.lstSearch.Column(19, i)
Me.cbPre2.value = Me.lstSearch.Column(20, i)
Me.cbPrev1.value = Me.lstSearch.Column(21, i)
Me.cbPrev2.value = Me.lstSearch.Column(22, i)
Me.tbSkills.value = Me.lstSearch.Column(23, i)
Me.tbdh.value = Me.lstSearch.Column(24, i)
'reset error handler
On Error GoTo 0
End Sub

Hi im a noob when i comes to VBA and this is my first time to create a program. i have been beating my brains out for days now . I would like to ask if any of you knows how to make the textbox display the normal date format like dd/mm/yyyy coz every time i try to retrieve the whole worksheet all the textbox for my date displays serial values like 30698 ( 01/17/1984). I have done the format cell still the same result. and when i press CTL~
it shows that my date columns are in serial value. is there a code that can help display the right date format? or do i need to tweek something in my excel worksheet to change it? thank you in advance.
[ATTACH=CONFIG]68875[/ATTACH]