Macro is not running when my file is newly open
Macro is not running when my file is newly open
Hi,
I'm a newbie in OOO, i have a calc file and every time i open it, macro didn't work.
I need to edit the macro to make it run.
I know there's wrong with my code, and i Cant find it..
I'm a newbie in OOO, i have a calc file and every time i open it, macro didn't work.
I need to edit the macro to make it run.
I know there's wrong with my code, and i Cant find it..
OpenOffice 4.1 on Windows 7
Re: Macro is not running when my file is newly open
Please post your macro code and what you want it to do. Also, what edit do you make to the macro to make it run?
OpenOffice 4.1 on Windows 10 and Linux Mint
If your question is answered, please go to your first post, select the Edit button, and add [Solved] to the beginning of the title.
If your question is answered, please go to your first post, select the Edit button, and add [Solved] to the beginning of the title.
Re: Macro is not running when my file is newly open
Hi,
i tried to attach the file but it was too big.
Here's the process.
First there's a login form connected to a local database. Once successful it will proceed to another form that use the codes below.
if i newly open the file, the combobox is not working but if i edit the macro like put a space in any line and run the process again, it will work.
i tried to attach the file but it was too big.
Here's the process.
First there's a login form connected to a local database. Once successful it will proceed to another form that use the codes below.
if i newly open the file, the combobox is not working but if i edit the macro like put a space in any line and run the process again, it will work.
Code: Select all
Private Sub btnok_Click()
If txtacd.Text = "" Then
lblnotifok.caption = "Please provide ACD Number!"
ElseIf txtmobilenumber.Text = "" Then
lblnotifok.caption = "Please provide Mobile Number!"
ElseIf txtsubsname.Text = "" Then
lblnotifok.caption = "Please provide Subscribers Name!"
ElseIf len(lblnotifmobile.caption) > 5 then
goto Err1
Elseif len(lblnotifname.caption) > 5 then
goto Err1
Elseif len(lblnotifacd.caption) > 5 then
goto Err1
Err1:
lblnotifok.caption = lblnotifacd.caption & vbNewLine & lblnotifmobile.caption & vbNewLine & lblnotifname.caption
Else
newmainform.Hide
newhandsetavailment.ComboBox1.Text = ""
newhandsetavailment.ComboBox2.Text = ""
newhandsetavailment.ComboBox3.Text = ""
newhandsetavailment.ComboBox4.Text = ""
newhandsetavailment.ComboBox1.Enabled = False
newhandsetavailment.ComboBox2.Enabled = False
newhandsetavailment.ComboBox3.Enabled = False
newhandsetavailment.ComboBox4.Enabled = False
newrewards.Show
End If
End Sub
Private Sub btnsave_Click()
lblnotifacd.caption = ""
If txtmobilenumber.Text = "" Then
lblnotifmobile.caption = "Please provide Mobile number!"
txtmobilenumber.SetFocus
ElseIf txtsubsname.Text = "" Then
lblnotifname.caption = "Please provide Subscriber's Name!"
txtsubsname.SetFocus
ElseIf cmbcalltype.Text = "" Then
lblcalltype.caption = "Please provide Call Type!"
cmbcalltype.SetFocus
ElseIf cmbconcerntype.Text = "" Then
lblconcerntype.caption = "Please provide Concern Type!"
cmbconcerntype.SetFocus
ElseIf MsgBox("Are you sure you want to add this TCD?", vbQuestion + vbYesNo, "TCD") = vbYes Then
Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
Dim InteractionHandler as Object
Dim Statement As Object
Dim ResultSet As Object
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("TCD")
InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
Connection = DataSource.ConnectWithCompletion(InteractionHandler)
Statement = Connection.createStatement()
'Resultset =
Statement.executeQuery("INSERT INTO tcd VALUES ('" & txtsubsname.Text & "','" & txtmobilenumber.Text & "', '" & cmbcalltype.Text & "', '" & cmbconcerntype.Text & "', '" & newloginform.Label3.Caption & "', '" & txtverbatim.Text & "', '" & lbldate.Caption & "', '" & newloginform.Label2.Caption & "')")
'("Select * from LoginDbase WHERE EmployeeID = '" & txtusername.Text & "' and Password = '" & txtpassword.Text & "' ")
connection.close
MsgBox "TCD Sucessfully Saved!", vbInformation, "Top Call Driver"
txtcompile.Text = "ACD: " & txtacd.Text & Chr(13) & "Mobile Number: " & txtmobilenumber.Text & Chr(13) & "Subscribers Name: " & txtsubsname.Text & Chr(13) & "Call Type: " & cmbcalltype.Text & Chr(13) & "Concern Type: " & cmbconcerntype.Text & Chr(13) & "Customer Concern/Verbatim: " & txtverbatim.Text
txtsubsname.Text = ""
txtmobilenumber.Text = ""
cmbcalltype.Text = ""
cmbconcerntype.Text = ""
txtacd.Text = ""
txtverbatim.Text = ""
Else
End If
End Sub
Private Sub cmbconcerntype_Change()
If not IsEmpty(cmbconcerntype.text) then
lblconcerntype.caption = ""
End If
End Sub
Private Sub cmbcalltype_Change()
If not IsEmpty(cmbcalltype.text) then
lblcalltype.caption = ""
End If
Dim message
If cmbcalltype.Text = "RECONTRACTING AVAILMENT" Then
cmbconcerntype.Clear
With cmbconcerntype
.AddItem "HANDSET"
.AddItem "SIM ONLY"
End With
cmbconcerntype.Text = ""
ElseIf cmbcalltype.Text = "RECONTRACTING INQUIRY" Then
cmbconcerntype.Clear
With cmbconcerntype
.AddItem "QUALIFIED - UNDECIDED"
.AddItem "QUALIFIED - PREFERRED UNIT OOS"
.AddItem "NOT QUALIFIED - WITHIN CONTRACT"
.AddItem "NOT QUALIFIED - WITH OB/HOB"
.AddItem "NOT QUALIFIED - INSUFFICIENT CL"
End With
cmbconcerntype.Text = ""
ElseIf cmbcalltype.Text = "OTHERS" Then
cmbconcerntype.Clear
With cmbconcerntype
.AddItem "DROPPED CALL"
.AddItem "PRANK CALL"
End With
cmbconcerntype.Text = ""
ElseIf cmbcalltype.Text = "ACCOUNT RELATED" Then
cmbconcerntype.Clear
With cmbconcerntype
.AddItem "PLAN MODIFICATION"
.AddItem "LUP INQUIRY"
.AddItem "CHANGE SIM"
End With
cmbconcerntype.Text = ""
ElseIf cmbcalltype.Text = "BILLING RELATED" Then
cmbconcerntype.Clear
With cmbconcerntype
.AddItem "BILL INQUIRY"
.AddItem "BILL ADJUSTMENT"
End With
cmbconcerntype.Text = ""
ElseIf cmbcalltype.Text = "AFTERSALES/FOLLOW UP" Then
cmbconcerntype.Clear
With cmbconcerntype
.AddItem "RF REQUEST"
.AddItem "FOLLOW-UP WITHIN TAT DELIVERY"
.AddItem "FOLLOW-UP BEYOND TAT DELIVERY"
.AddItem "FOLLOW-UP WITHIN TAT PUP"
.AddItem "FOLLOW-UP BEYOND TAT PUP"
.AddItem "AGP COMPLAINT"
.AddItem "CANCELATION OF ORDER"
.AddItem "CASE CLOSURE FOR ACTIVATION"
End With
cmbconcerntype.Text = ""
ElseIf cmbcalltype.Text = "TRANSFER" Then
cmbconcerntype.Clear
With cmbconcerntype
.AddItem "BILLING RELATED"
.AddItem "ACCOUNT MODIFICATION"
.AddItem "PERMANENT DISCONNECTION"
.AddItem "TECHNICAL CONCERNS WIRELESS"
.AddItem "RECONNECTION"
.AddItem "SALES"
.AddItem "BROADBAND CONCERNS"
.AddItem "BUSINESS CONCERNS"
End With
cmbconcerntype.Text = ""
ElseIf cmbcalltype.Text = "REWARDS RELATED" Then
cmbconcerntype.Clear
With cmbconcerntype
.AddItem "REWARDS POINTS"
End With
cmbconcerntype.Text = ""
Else
End If
End Sub
Private Sub CommandButton1_Click()
Dim myApp As String
myApp = Shell("Notepad", vbNormalFocus)
'SendKeys "ARDD"
End Sub
''''DONE
Private Sub UserForm_Activate()
lbldate.Caption = Format(Now, "MM/dd/yyyy")
lblagentname.Caption = newloginform.Label2.Caption
txtacd.Text = ""
txtsubsname.Text = ""
txtmobilenumber.Text = ""
cmbcalltype.Text = ""
cmbconcerntype.Text = ""
' txtmobilenumber.Text = "9*********"
txtacd.SetFocus
lblnotifok.caption = ""
cmbcalltype.Clear
With cmbcalltype
.AddItem "RECONTRACTING AVAILMENT"
.AddItem "RECONTRACTING INQUIRY"
.AddItem "OTHERS"
.AddItem "ACCOUNT RELATED"
.AddItem "BILLING RELATED"
.AddItem "AFTERSALES/FOLLOW UP"
.AddItem "TRANSFER"
.AddItem "REWARDS RELATED"
End With
End Sub
'''''DONE''''
Private Sub txtacd_focusout()
If txtacd.text = "" then
lblnotifacd.caption = "Please provide ACD!"
ElseIf not isnumeric(txtacd.text) then
lblnotifacd.caption = "Only Numbers are accepted for ACD!"
'txtacd.SetFocus
ElseIf Not isempty(txtacd.text) then
lblnotifacd.caption = ""
End If
End Sub
'Private Sub txtacd_KeyPressed(e As System.Windows.Forms.KeyEventArgs)
' Dim event as Object
' event = com.sun.star.awt.Key
' Select Case e.KeyCode
' Case event.NUM0, event.NUM1, event.NUM2, event.NUM3, event.NUM4, event.NUM5, event.NUM6, event.NUM7, event.NUM8, event.NUM9
' Case event.BACKSPACE, event.SPACE, event.TAB, event.DELETE, event.DOWN, event.UP, event.LEFT, event.RIGHT
' Case Else
' e.KeyCode = 0
' Beep
' MsgBox "Only Numbers are accepted!", vbCritical, "Message"
' End Select
'End Sub
Private Sub txtmobilenumber_focusout()
If txtmobilenumber.text = "" then
lblnotifmobile.caption = "Please provide Mobile number!"
ElseIf Not isempty(txtmobilenumber.text) then
lblnotifmobile.caption = ""
If not isnumeric(txtmobilenumber.text) then
lblnotifmobile.caption = "Only Numbers are accepted for Mobile Number!"
ElseIf len(txtmobilenumber.text) <> 10 then
'Msgbox "Invalid mobile number format." & vbNewLine & "ex.9*********", 48, "Message"
lblnotifmobile.caption = "Invalid mobile number format."
'txtmobilenumber.Setfocus
End if
End if
End Sub
Private Sub txtsubsname_focusout()
If txtsubsname.text = "" then
lblnotifname.caption = "Please provide Subscriber's Name!"
Else
lblnotifname.caption = ""
End If
End Sub
OpenOffice 4.1 on Windows 7
Re: Macro is not running when my file is newly open
Use a free file sharing service, like the Google Drive or other. In this case you need share the link only in this forum.i tried to attach the file but it was too big.
Tibor Kovacs, Hungary; LO7.5.8 /Win7-10 x64Prof.
PortableApps/winPenPack: LO3.3.0-7.6.2;AOO4.1.14
Please, edit the initial post in the topic: add the word [Solved] at the beginning of the subject line - if your problem has been solved.
PortableApps/winPenPack: LO3.3.0-7.6.2;AOO4.1.14
Please, edit the initial post in the topic: add the word [Solved] at the beginning of the subject line - if your problem has been solved.
-
- Posts: 7
- Joined: Wed May 16, 2018 7:01 pm
Re: Macro is not running when my file is newly open
I have the same problem in Open Office writer. I record the macro, save it, it works fine until I close Open Office and go back in, then the macro is gone. I am saving under My Macros.
Open Office 4.1.5 on Windows 10
Re: Macro is not running when my file is newly open
In which format do you Save? OO's native ODF formats are best.
Apache OpenOffice 4.1.15 on Xubuntu 22.04.4 LTS
Re: Macro is not running when my file is newly open
OK - but which Library and which Module you saving to?I am saving under My Macros.
Use the Standard Library and Module 1
If you want to save your macros into the file, then use the "Filename" - Standard library - Module 1. You MUST use the native ODF fileformats in this case.
Last edited by Zizi64 on Wed May 16, 2018 9:04 pm, edited 1 time in total.
Tibor Kovacs, Hungary; LO7.5.8 /Win7-10 x64Prof.
PortableApps/winPenPack: LO3.3.0-7.6.2;AOO4.1.14
Please, edit the initial post in the topic: add the word [Solved] at the beginning of the subject line - if your problem has been solved.
PortableApps/winPenPack: LO3.3.0-7.6.2;AOO4.1.14
Please, edit the initial post in the topic: add the word [Solved] at the beginning of the subject line - if your problem has been solved.
-
- Posts: 7
- Joined: Wed May 16, 2018 7:01 pm
Re: Macro is not running when my file is newly open
yes, I am saving to the standard library and Module 1. I read an article about trying to create a new library and new module but I doubt that would help. Thanks for trying.
Open Office 4.1.5 on Windows 10
Re: Macro is not running when my file is newly open
Did you meant:yes, I am saving to the standard library and Module 1.
MyMacros - Standard library - Module 1
or
"YourFilename"- Standard library - Module 1
????
Are you using ODF filetypes?
Tibor Kovacs, Hungary; LO7.5.8 /Win7-10 x64Prof.
PortableApps/winPenPack: LO3.3.0-7.6.2;AOO4.1.14
Please, edit the initial post in the topic: add the word [Solved] at the beginning of the subject line - if your problem has been solved.
PortableApps/winPenPack: LO3.3.0-7.6.2;AOO4.1.14
Please, edit the initial post in the topic: add the word [Solved] at the beginning of the subject line - if your problem has been solved.
-
- Posts: 7
- Joined: Wed May 16, 2018 7:01 pm
Re: Macro is not running when my file is newly open
My Macros, standard library, module 1. I rewrote them (they were easy) and I will now exit Open Office and see if it saved them.
Open Office 4.1.5 on Windows 10