Macro is not running when my file is newly open

Creating a macro - Writing a Script - Using the API

Macro is not running when my file is newly open

Postby j0n » Thu May 10, 2018 5:03 am

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..:(
OpenOffice 4.1 on Windows 7
j0n
 
Posts: 2
Joined: Thu May 10, 2018 4:53 am

Re: Macro is not running when my file is newly open

Postby FJCC » Thu May 10, 2018 5:48 am

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?
AOO 3.4 or 4.1 on MS Windows XP ( before 2013-08-03) or Windows 7
If your question is answered, please go to your first post, select the Edit button, and add [Solved] to the beginning of the title.
FJCC
Moderator
 
Posts: 6518
Joined: Sat Nov 08, 2008 8:08 pm
Location: Colorado, USA

Re: Macro is not running when my file is newly open

Postby j0n » Thu May 10, 2018 6:03 am

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.


Code: Select all   Expand viewCollapse view

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
j0n
 
Posts: 2
Joined: Thu May 10, 2018 4:53 am

Re: Macro is not running when my file is newly open

Postby Zizi64 » Thu May 10, 2018 6:49 am

i tried to attach the file but it was too big.

Use a free file sharing service, like the Google Drive or other. In this case you need share the link only in this forum.
Tibor Kovacs, Hungary; LO4.4.7, LO5.4.7 on Win7x64Prof.
PortableApps, winPenPack: LO3.3.0-LO6.0.4 and AOO4.1.5
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.
User avatar
Zizi64
Volunteer
 
Posts: 6728
Joined: Wed May 26, 2010 7:55 am
Location: Budapest, Hungary

Re: Macro is not running when my file is newly open

Postby KarenRogers » Wed May 16, 2018 8:31 pm

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
KarenRogers
 
Posts: 7
Joined: Wed May 16, 2018 7:01 pm

Re: Macro is not running when my file is newly open

Postby RoryOF » Wed May 16, 2018 8:35 pm

In which format do you Save? OO's native ODF formats are best.
Apache OpenOffice 4.1.5 on Xubuntu 18.04 (mostly 64 bit version) and infrequently on Win2K/XP
14 October 2016 was Pooh's 90th birthday
User avatar
RoryOF
Moderator
 
Posts: 26709
Joined: Sat Jan 31, 2009 9:30 pm
Location: Ireland

Re: Macro is not running when my file is newly open

Postby Zizi64 » Wed May 16, 2018 8:51 pm

I am saving under My Macros.

OK - but which Library and which Module you saving to?

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; LO4.4.7, LO5.4.7 on Win7x64Prof.
PortableApps, winPenPack: LO3.3.0-LO6.0.4 and AOO4.1.5
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.
User avatar
Zizi64
Volunteer
 
Posts: 6728
Joined: Wed May 26, 2010 7:55 am
Location: Budapest, Hungary

Re: Macro is not running when my file is newly open

Postby KarenRogers » Wed May 16, 2018 9:01 pm

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
KarenRogers
 
Posts: 7
Joined: Wed May 16, 2018 7:01 pm

Re: Macro is not running when my file is newly open

Postby Zizi64 » Wed May 16, 2018 9:07 pm

yes, I am saving to the standard library and Module 1.

Did you meant:

MyMacros - Standard library - Module 1

or

"YourFilename"- Standard library - Module 1

????


Are you using ODF filetypes?
Tibor Kovacs, Hungary; LO4.4.7, LO5.4.7 on Win7x64Prof.
PortableApps, winPenPack: LO3.3.0-LO6.0.4 and AOO4.1.5
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.
User avatar
Zizi64
Volunteer
 
Posts: 6728
Joined: Wed May 26, 2010 7:55 am
Location: Budapest, Hungary

Re: Macro is not running when my file is newly open

Postby KarenRogers » Wed May 16, 2018 9:17 pm

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
KarenRogers
 
Posts: 7
Joined: Wed May 16, 2018 7:01 pm


Return to Macros and UNO API

Who is online

Users browsing this forum: No registered users and 6 guests