Hi Everyone,
I have a code that auto generate a password for the newly created user. How do I make my small application to implement a force password change on first login without setting a default password. I don't use a default password because every newly created user has different auto generated password. Please advise, thank you very much in advance!
Midzie
Last Activity: Apr 13 '12, 10:14 AM
Joined: Jan 31 '12
Location:
-
How to force a password change on first login in vba
-
Hi Smiley/Neopa,
Thanks for the reply, my concern has been resolved. Thank you very much :-) -
I double check the existing table and I found that those are empty values not null values. How do I handle empty values in lstbox?Leave a comment:
-
How do I deselect null values from a list box?
Hi all, I have here a list box bound to my table Closed.Machine, but there are some null values from my table. So my list box have these values: ALL, ,01,02,03, and when I chose "null" the value next to it will appear in my report. Is there a way to exclude null values in my list box? If none, is there a way too that those records with null value from my closed.machine will appear in my query? Here's my code from my list box Row Source... -
Hi Neopa/ADezii,
Earlier I made this code that's why it only returned and recorded 1; 1; 1; 1; 1; in my tblLog:
I added the conDelimiter and it is working now:-) Thanks to both of you. I still added this code to return the number of records deleted in a message box:Code:strRecord = strRecordOrder & strRecordSchedule & strRecordNote & strRecordYearly & strRecordClosed
...Code:MsgBox CStr(db.RecordsAffected)
Leave a comment:
-
Deleting records from multiple tables
Hi Neopa and Seth, thanks for helping me. My purging button is already working. I have a follow up question on this, which can be found at How do I Log Multiple Values in One Message.Last edited by NeoPa; Feb 21 '12, 01:53 PM. Reason: Split new question away into separate thread and linked to it.Leave a comment:
-
How do I Log Multiple Values in One Message
This question was split away from Deleting records from multiple tables as we don't allow multiple questions per thread - NeoPa.
I have a follow up question for Deleting records from multiple tables. I included a msgbox in every after the delete execution returning the number of records deleted in each table by inserting this code:
...Code:strRecordOrder = MsgBox(CStr(db.RecordsAffected) & " records from table ORDER were deleted
-
Deleting records from multiple tables
Hi All, first of all please don't delete my post... I need some answers on it that's why I posted a question here. If anyone there could help me please, I am deleting records from multiple tables but it doesn't work for me.
...Code:StrSQL = "" PurgeMsg = MsgBox("Do you want to purge data?", 1, "Purging Data") If PurgeMsg = 1 Then 'delete from order StrSQL -
I think on my dates condition and ALL values of the two listboxes. When I select All it will display all the records regardless of the dates I set. Do I need to change my conditions?Leave a comment:
-
Two listboxes with multiselection and Date Range Query
Sample Records from table SLY
TransDate Machine Person In Charge Type
Feb. 7, 2008 BBAS Ashley B
Feb. 8, 2008 BHAL Janelle C
Feb. 9, 2008 ASCR Ness A
Feb. 10, 2008 PLYR Jennifer D
Feb. 11, 2008 KLMA April E
Hi all, if anyone could help me please. I have here a form with a txtStartDate, txtEndDate, lstMachine – bound to SLY.Machine with union select “ALL” and lstType –... -
I just want to ask a follow up question, what if I add another listbox here for filtering records? Is it possible? Another is that if i select "ALL" in the listbox the filtering date range was disregarded, I mean it should find first all records within the date range before selecting "ALL" codes in the listbox. Let's say, i have records from Feb 1 t0 28, 2012 with codes from listbox A, B, C, D, E and ALL. If I set start date -...Leave a comment:
-
Hi Smiley, it's working already. The error "Item not found in the collection" appeared because I didn't yet create a query "qrySLY" from query design. I created it and it's working already. I've chosen your first reply as the best answer. Thanks a lot!Leave a comment:
-
Hi Smiley, I stepped into my codes and I noticed it skipped these codes and error "Item not found in this collection" appeared.
...Code:Set qdef = db.CreateQueryDef("qrySLY", strSQL) 'Open the query, built using the In clause to set the criteria DoCmd.OpenQuery "qrySLY", acViewNormal 'Clear listbox selection after running query For Each varItem In Me.lstWorkSLY.ItemsSelectedLeave a comment:
-
Midzie started a topic Querying Records in VBA MS Access using Date Range and multiselection in ListBoxin AccessQuerying Records in VBA MS Access using Date Range and multiselection in ListBox
Hi All, if anyone could help me with my codes. I have a form with txtStartDate, txtEndDate, with a listbox lstWorkSLY and a cmdRunExtract button. I wanted to query records filtering txtStartDate to txtEndDate based on the items selected in lstWorkSLY. Here's my code, it is not working when I set Nov. 5, 2008 as my txtStartDate and Nov. 28, 2008 as my txtEndDate still all records with DateX June 1, 2008 to January 2009 appears as my output. I don't... -
Hi NeoPa/Smiley/ADezii - Thanks to all your efforts for helping me with my codes. More powers to all of you and to this website. To all beginners like me, let's keep on learning new things:-)Leave a comment:
-
Yes, it is working already... I have read it, thanks. Here's the revised codes.
...Code:Public Sub Login() On Error GoTo ErrorHandler: 'Check if data is entered in the Username textbox If IsNull(txtUsername) Or Me.txtUsername = "" Then MsgBox "Username is required", vbOKOnly, "Invalid Entry!" txtUsername.SetFocus Exit Sub 'CheckLeave a comment:
-
I rearranged the codes and removed the exit sub on condition if strPass = "" and if strPass<>, I used If elseif endif on it and added intLogAttempt = intLogAttempt + 1 on each condition so that it will call the condition "If user enters incorrect password for 3 times database will shutdown"Leave a comment:
-
Hi TheSmileyCoder, i still thank you for challenging me. Someday, I'll be a good programmer too, like you.Leave a comment:
-
Hi TheSmileyCoder, thanks for helping me. I followed your instruction, I got what I wanted it's working already....than ks a lot. I'm glad that I am learning a lot here. God bless us all:-)
...Code:Private Sub cmdLogin_Click() Call Login End Sub Public Sub Login() On Error GoTo ErrorHandler: If IsNull(txtUsername) Then 'Check Username MsgBox "Username is required" txtUsername.SetFocusLeave a comment:
-
I'm sorry, what part of the code will I rearranged? Thanks.Leave a comment:
No activity results to display
Leave a comment: